Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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Âë,Ð


Ïà¹ØÎÊ´ð£º

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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×öÔ¶³ÌÉÏ´«ÎļþʱµÄ½ø¶ÈÌõ£¿

ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

VB ·ÃÎÊÍøÂç¹²Ïí

¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔ­À´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½

Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£


mark

pls learn from ba ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ