vbѧϰ7ÌìºóÓöµ½µÄÎÊÌâ
ÎÒÀûÓù¤×÷ÒµÓàʱ¼äѧÁ˵ãVB£¬¾ÍѧÁËÒ»¸öÐÇÆÚ£¬Ïë×ö¸ö³ÌÐò£¬½á¹ûµ÷ÁË2¸öСʱҲûµ÷³öÀ´£¬Çë¸ßÊÖ¸øÎÒÖ¸µãÏÂÎҵijÌÐòΪʲôÓм¸¸ö²»ÄÜʵÏÖ£¬¸ÃÔõôÐ޸ģ¿
ÓÉÓÚÎÒûʲô±à³Ì»ù´¡£¬¿ÉÄܳÌÐòÖÐÓкܶàÔÔòÐÔ´íÎó£¬Çë²»Òª³°Ð¦ÎÒ
ÎÒµÄÎÊÌâÓúìɫעÊͱêʾ³öÀ´ÁË
1.¼Ç¼´òÖеÄÊý¾ÝΪʲôÏÔʾ×ܲ¿ÕýÈ·
2.¼Ç¼δ´òÖеÄÊý¾ÝΪʲô×ÜÏßÊDz»ÕýÈ·
3.ÎÒÍ˳öµÄʱºò£¬ÔõôÄÜÕæÕýÍ˳ö
4.»÷ÖÐ×Ö»á³öÏÖ±¬Õ¨Í¼Æ¬µÄ£¬ÄÇÎÒkeyupµÄʱºòÏûʧ£¬¸ÃÔõô×ö£¿
³ÌÐò´úÂëÈçÏ£º
Private Sub Form_Load()
Dim j As Integer 'Ñ»·Í³¼ÆLabel3
Dim keychange As String '¶¨ÒåËæ¼´³öÏÖµÄ×Ö
Record = 0 '¼Ç¼´òÖеÄ×Ö
missword = 0 '¼Ç¼δ´òÖеÄ×Ö
Image1.Visible = False
For j = 0 To Label3.Count - 1
Label3(j).Top = 0 - 600 * Rnd 'ÒÀ´ÎÉèÖÃÿ¸ö×ֵĸ߶È
Label3(j).Left = 4800 * Rnd 'ÒÀ´ÎÉèÖÃÿ¸ö×ÖµÄλÖÃ
If Form2.Option1.Value Then
keychange = Chr((97 - 65 + 1) * Rnd + 65) 'Ëæ¼´³öÏÖ×ÖĸµÄAssciÂë,Ð
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔÀ´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½
Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£
mark
pls learn from ba ......