Çë½Ì´ó¼Ò¸öÎÊÌâ ÎÒÔÚÓÃvbÉÏλ»úÊÕ¼¯¶à¸öÏÂλµ¥Æ¬»ú´«ÉÏÀ´µÄζÈÊý¾Ý£¬ÎÒÏëÒ»µ©Î¶Ȳ»´ï±ê¾Í³ö±¨¾¯Éù£¬²»ÖªÔÚvbÖÐÈçºÎʵÏÖ±¨¾¯¹¦ÄÜ×î¼òµ¥ÄØ£¿¸Õ½Ó´¥vb »¹ÍûÅóÓÑÃǶà¶àÖ¸µã лл
beep
¶÷ ±ÈÈçÎÒÐèÒª±¨¾¯60S »¹µÃÓö¨Ê±Æ÷°É
ÒýÓÃ
¶÷ ±ÈÈçÎÒÐèÒª±¨¾¯60S »¹µÃÓö¨Ê±Æ÷°É
µ±È»Ê¹ÓÃTimer¼ÆÊ±Æ÷.
Private Declare S ......
ÈçÌ⣬²»Ê¹ÓöÁȡע²á±íµÄ·½·¨£¨¸Ð¾õ²»×¼È·ControlSet001-ControlSet003ÄÇô¶àÏîҪȥÅжϣ©
²»Ê¹ÓÃö¾ÙµÄ·½Ê½£¬Ì«ÂýÁË£¬ÎÒÖ»ÐèÒª¶Áȡijһ¸öµÄÆô¶¯ÀàÐÍ£¨ÊÖ¶¯£¬×Ô¶¯£¬½ûÖ¹£©£¬×´Ì¬¼´¿É
Èç¹û¿ÉÒÔʵÏÖÆô¶¯£¬Í£Ö¹·þÎñ£¬Çл»Æô¶¯ÀàÐÍ£¨ÊÖ¶¯£¬×Ô¶¯£¬½ûÖ¹£©¸üºÃ£¬Ã»ÓеϰÎÒÖ»ÓÐÓ ......
ÎÒÏëÓÃ×Ö·û´®±äÁ¿À´´æÖüVBµÄijһÌõÖ¸ÁÔÚÒ»¶¨Ìõ¼þϵ÷³öÀ´Ö´ÐС£
ÀýÈç
Private Sub Command1_Click()
Dim str As String
str = "text1.text=""²âÊԳɹ¦"""
???
End Sub
ʲôָÁî¿ÉÒÔÈÃstrÖеÄ×Ö·ûÖ¸ÁîÖ´Ð ......
vbµÄ400ºÅ´íÎó ¡°´°ÌåÒѾÏÔʾ£¬²»ÄÜÏÔʾΪģʽ´°Ì塱
Ôõô½â¾ö¡«
×Ó´°ÌåÎÒÊÇ´ÓÆäËûµÄ¹¤³Ìµ½½üÀ´µÄ¡«
ÒѾÏÔʾµÄ´°Ì壨²»ÊÇģʽ´°Ì壩£¬¿ÉÒÔÓÃnewÔÙÏÔʾһ¸ö
Dim FormNew As New Form1
FormNew.show
²»ÄÜForm1.show vbmodal»òÕßForm1.show 1
ÒýÓÃ
ÒѾÏÔʾµÄ´°Ì壨²»ÊÇģʽ´°Ì壩£¬¿ÉÒÔÓÃnewÔÙÏÔ ......
ÈçºÎʵÏÖ£¬µ¥»÷ÃüÁî°´Å¥Command1ʱ£¬
¸Ã´°ÌåÉϵÄÎı¾¿ò¶ÔÏóText1Òþ²Ø£¬
Ôٴε¥»÷£¬ÓÖÖØÐÂÏÔʾ£¨½öÓÃÒÔÏ´úÂ룬ÔÚÏ»®Ïß´¦Ìî¿Õ£©
Private Sub Command1_Click£¨£©
Text1.Visible=___________
End Sub
Ñé֤һϣ¬Â¥ÉϵĴ𰸺ܶԣ¡£¡
......
¹ØÏµÊ½
-5¡ÜX¡Ü5
Ëù¶ÔÓ¦µÄ²¼¶û±í´ïʽÊÇ_____?
ÒýÓÃ
If X>=-5 And X <=5 Then
Debug.Print "X>=-5 And X <=5"
End If
Ding .........
»¹ÓÐÒ»¸ö£º
VB code:
If (Abs(X) <= 5) Then MsgBox "-5¡ÜX¡Ü5", 64
ÒýÓÃ
If X& ......