¡¶¼ÆËã»úVB³ÌÐòÉè¼Æ¡·¸´Ï°ÊÔÌâ
1£® ÔÚVisual BasicÖÐ×î»ù±¾µÄ¶ÔÏóÊÇ£¨ £©£¬ËüÊÇÓ¦ÓóÌÐòµÄ»ùʯ £¨A£©±êÇ© £¨B£©´°Ìå £¨C£©Îı¾¿ò £¨D£©ÃüÁî°´Å¥ 2£® ʼþÇý¶¯Ó¦ÓóÌÐòµÄµäÐͲÙ×÷ÐòÁÐÊÇ£¨ £©
£¨A£© Æô¶¯Ó¦ÓóÌÐò¡¢¼ÓÔØÏÔʾ´°Ì壬½ÓÊÕʼþ£¬Ö´ÐдúÂ룬µÈ´ýÏ´Îʼþ £¨B£© ½ÓÊÕʼþ£¬Æô¶¯Ó¦ÓóÌÐò£¬¼ÓÔØÏÔʾ´°Ì壬ִÐдúÂ룬µÈ´ýÏ´Îʼþ £¨C£© Ö´ÐдúÂ룬Æô¶¯Ó¦ÓóÌÐò£¬¼ÓÔØÏÔʾ´°Ì壬½ÓÊÕʼþ£¬µÈ´ýÏ´Îʼþ £¨D£© µÈ´ýÏ´Îʼþ£¬½ÓÊÕʼþ£¬Æô¶¯Ó¦ÓóÌÐò£¬¼ÓÔØÏÔʾ´°Ì壬ִÐдúÂë 3£® ¶ÔÓÚ²»Í¬µÄ¶ÔÏóÓв»Í¬µÄÊôÐÔ£¬µ«ËùÓеĶÔÏó¶¼¹²Í¬ÓµÓеÄÊôÐÔÊÇ£¨ £© £¨A£©Picture £¨B£©Caption £¨C£©Name £¨D£©Lcon
4£® ´Ó¼üÅÌÉÏÊäÈëÁ½¸ö×Ö·û´®£¬·Ö±ð±£´æÔÚ±äÁ¿str1ºÍstr2ÖС£È·¶¨µÚ¶þ¸ö×Ö·û´®ÔÚµÚÒ»¸ö×Ö·û´®
ÖÐÆðʼλÖõĺ¯ÊýÊÇ£¨ £© £¨A£©Left £¨B£©Mid £¨C£©String £¨D£©Instr 5£® º¯ÊýInt(100*Rnd+1)µÄȡֵ·¶Î§ÊÇ£¨ £© £¨A£©´Ó1µ½100 £¨B£©´Ó0µ½100 £¨C£©´Ó1µ½101 £¨D£©´Ó0µ½101 6£® Èç¹û½«²¼¶û³£Á¿ÖµTrue¸³Öµ¸øÒ»¸öÕûÐͱäÁ¿£¬ÔòÕûÐͱäÁ¿µÄֵΪ£¨ £© £¨A£©0 £¨B£©-1 £¨C£©True £¨D£©False 7£® ÏÂÁзûºÅ³£Á¿µÄÉêÃ÷ÖУ¬£¨ £©ÊDz»ºÏ·¨µÄ £¨A£©Const a As Single = 1.1 £¨B£©Const a As Integer = ¡°12¡± £¨C£©Const a As Double = Sin(1) £¨D£©Const a = ¡°OK¡± 8£® ½«±äÁ¿kËÄÉáÎåÈë±£Áô2λСÊýµÄ±í´ïʽÊÇ£¨ £© £¨A£©Int((k+0.5)*100)/100 £¨B£©Int(k*100)/100+0.5 £¨C£©Int(k*100+0.5)/100 £¨D£©Int(k*(100+0.5))/100
9£® ¼ÙÉèaºÍbÊÇÕûÐͱäÁ¿£¬Ôò±íʾÌõ¼þ¡°1¡Üa£¼8ºÍ1£¼b¡Ü8ÖÐÖ»ÒªÓÐÒ»¸ö³ÉÁ¢¼´¿É¡±µÄÂß¼±í
´ïʽÊÇ£¨ £©
£¨A£© 1<=a And a<8 And 1
£¨B£© (1<=a And a<8 ) And Not(1
£¨D£© Not(1<=a And a<8) Or (1
s.Name = ¡°ÕÅÈý¡±
£¨C£© Dim s As Type Student
s.Name = ¡°ÕÅÈý¡±
£¨D£© Dim s As Type
s.Name = ¡°ÕÅÈý¡±
11£® ÒÔÏÂÓï¾äµÄÊä³ö½á¹ûÊÇ£¨ £©
¡¶¼ÆËã»ú³ÌÐòÉè¼ÆA¡·ÆÚÄ©¸´Ï°Ì⣨´ð°¸£© µÚ 1 Ò³ ¹² 35 Ò³
Print Format$(32548.5, ¡°000,000.00¡±) £¨A£©32548.5 £¨B£©32,548.5 £¨C£©032,548.50 £¨D£©32,548.50 12£® ¼Ù¶¨Pic1ºÍTxt1·Ö±ðÊÇͼƬ¿òºÍÎı¾¿òµÄÃû³Æ£¬ÏÂÁв»ÕýÈ·µÄÓï¾äÊÇ£¨ £© £¨A£©Print ¡°abcd¡± £¨B£©Pic1.Print ¡°abcd¡± £¨C£©Txt1.Print ¡°abcd\ £¨D£©Debug.Print ¡°abcd¡± 13£® ÏÂÁÐÓï¾äÖ´Ðкó£¬Êä³öµÄ½á¹ûÊÇ£¨ £© age$ = 18 Print ¡°ÄãµÄÄêÁäÊÇ£º¡±; Print age
£¨A£©ÄãµÄÄêÁäÊÇ£º¡õ18 £¨B£©ÄãµÄÄêÁäÊÇ£º¡õ¡õ18 £¨C£©¡±ÄãµÄÄêÁäÊÇ£º¡±¡õ18 £¨D£©¡±ÄãµÄÄêÁäÊÇ£º¡±¡õ¡õ18 ×¢Ò⣺·ûºÅ¡°¡õ¡±±íʾ¿Õ¸ñ
14£® Ö´ÐÐÓï¾äm=Len(Mid(¡°Î÷ÄϽ»Í¨´óѧ03¼¶È«ÌåѧÉú¡±,5,5))ºó£¬mµÄÖµÊÇ£¨ ¡¾4¡¿ £© £¨A£©½»Í¨´óѧ £¨B£©´óѧ03¼¶ £¨C£©5 £¨D£©8
15£® ÔÚ½çÃæÉè¼Æ½×¶Î£¬µ±Ë«»÷´°ÌåÉϵÄij¸ö¿Ø¼þʱ£¬Ëù´ò¿ªµÄ´°¿ÚÊÇ£¨ ¡¾1¡¿ £© £¨A£©ÊôÐÔ´°¿Ú £¨B£©´úÂë´°¿Ú £¨C£©¹¤¾ßÏä´°¿Ú £¨D£©¹¤³Ì×ÊÔ´¹ÜÀíÆ÷´°¿Ú 16£® ÒÔÏÂÐðÊöÖÐÕýÈ·µÄÊÇ£¨ ¡¾2¡¿ £© £¨A£©¶ÔÏóµÄNameÊôÐÔÖµ¿ÉÒÔΪ¿Õ
£¨B£©´°ÌåµÄNameÊôÐÔÖ¸¶¨´°ÌåµÄÃû³Æ£¬ÓÃÀ´±êʶһ¸ö´°Ìå £¨C£©¿ÉÒÔÔÚ³ÌÐòÔËÐÐÆÚ¼ä¸Ä±ä¶ÔÏóµÄNameÊôÐÔÖµ
£¨D£©´°ÌåµÄNameÊôÐÔµÄÖµÊÇÏÔʾÔÚ´°Ìå±êÌâÀ¸ÖеÄÎı¾
17£® ÔÚ´°ÌåÉϻһ¸öÃüÁî°´Å¥£¬ÆäÃû³ÆÎªCommand1£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º
Private Sub Command1_Click() A=45678
Print Format(A,¡±000.00¡±) End Sub
³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬´°ÌåÉÏÏÔʾµÄÊÇ£¨ ¡¾4¡¿ £©
£¨A£©456.78 £¨B£©45678.00 £¨C£©45678 £¨D£©00456.78 18£® ÔÚ´°ÌåÉϻһ¸öÃû³ÆÎªCommand1µÄÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º
Private Sub Command1_Click() Move 500,500 End Sub
³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Ö´ÐеIJÙ×÷Ϊ£¨ ¡¾1¡¿ £© £¨A£©ÃüÁî°´Å¥ÒÆ¶¯µ½¾à´°Ìå×ó±ß½ç¡¢Éϱ߽ç¸÷500µÄλÖà £¨B£©´°ÌåÒÆ¶¯µ½¾àÆÁÄ»×ó±ß½ç¡¢Éϱ߽ç¸÷500µÄλÖà £¨C£©ÃüÁî°´Å¥Ïò×ó¡¢ÓÒ·½Ïò¸÷ÒÆ¶¯500 £¨D£©´°ÌåÏò×ó¡¢ÉÏ·½Ïò¸÷ÒÆ¶¯500
19£® ¸Õ½¨Á¢Ò»¸öеıê×¼EXE¹¤³Ìºó£¬²»ÔÚ¹¤¾ßÏäÖгöÏֵĿؼþÊÇ£¨ ¡¾3¡¿ £© £¨A£©Í¨ÓöԻ°¿ò £¨B£©µ¥Ñ¡°´Å¥ £¨C£©Í¼Æ¬¿ò £¨D£©×éºÏ¿ò 20£® ÒÔÏÂÐðÊöÖдíÎóµÄÊÇ
£¨A£©Visual Basic ÊÇʼþÇý¶¯ÐÍ¿ÉÊÓ»¯±à³Ì¹¤¾ß
£¨B£©Visual BasicÓ¦ÓóÌÐò²»¾ßÓÐÃ÷ÏԵĿªÊ¼ºÍ½áÊøÓï¾ä
£¨C£©Visual Basic¹¤¾ßÏäÖеÄËùÓпؼþ¶¼¾ßÓпí¶È£¨Width£©ºÍ¸ß¶È£¨Height£©ÊôÐÔ £¨D£©Visual BasicÖпؼþµÄijЩÊôÐÔÖ»ÄÜÔÚÔËÐÐʱÉèÖà 21£® ÒÔÏÂÐðÊöÖдíÎóµÄÊÇ
¡¶¼ÆËã»ú³ÌÐòÉè¼ÆA¡·ÆÚÄ©¸´Ï°Ì⣨´ð°¸£© µÚ 2 Ò³ ¹² 35 Ò³
£¨A£©´°ÌåÎļþ°üº¬¸Ã´°Ìå¼°Æä¿Ø¼þµÄÊôÐÔ £¨B£©ÒÔ.BASΪÀ©Õ¹ÃûµÄÎļþÊDZê׼ģ¿éÎļþ £¨C£©Ò»¸ö¹¤³ÌÖпÉÒÔº¬Óжà¸ö±ê׼ģ¿éÎļþ
£¨D£©ÔÚ¹¤³Ì×ÊÔ´¹ÜÀíÆ÷´°¿ÚÖÐÖ»Äܰüº¬Ò»¸ö¹¤³ÌÎļþ¼°ÊôÓڸù¤³ÌµÄÆäËûÎļþ 22£® ÒÔϹØÓÚº¯Êý¹ý³ÌµÄÐðÊöÖУ¬ÕýÈ·µÄÊÇ£¨ ¡¾4¡¿ £© £¨A£©º¯Êý¹ý³ÌÐβεÄÀàÐÍÓ뺯Êý·µ»ØÖµµÄÀàÐÍûÓйØÏµ £¨B£©ÔÚº¯Êý¹ý³ÌÖУ¬¹ý³ÌµÄ·µ»ØÖµ¿ÉÒÔÓжà¸ö
£¨C£©µ±Êý×é×÷Ϊº¯Êý¹ý³ÌµÄ²ÎÊýʱ£¬¼ÈÄÜÒÔ´«Öµ·½Ê½´«µÝ£¬Ò²ÄÜÒÔ´«µØÖ··½Ê½´«µÝ £¨D£©Èç¹û²»Ö¸Ã÷º¯Êý¹ý³Ì²ÎÊýµÄÀàÐÍ£¬Ôò¸Ã²ÎÊýûÓÐÊý¾ÝÀàÐÍ 23£® ÉèÓÐÈçϱäÁ¿ÉùÃ÷£º Dim TestDate As Date
Ϊ±äÁ¿TestDateÕýÈ·¸³ÖµµÄ±í´ïʽÊÇ£¨ ¡¾4¡¿ £© £¨A£©TestDate = # ¡°6/22/2003 ¡± # £¨B£©TestDate = # 6/22/2003 #
£¨C£©TestDate = Date( ¡° 6/22/2003 ¡±)
£¨D£©TestDate = Format( ¡°m/d/yy ¡±, ¡° 6/22/2003 ¡±) 24£® ÔÚ´°ÌåÉÏÓÐÈô¸É¿Ø¼þ£¬ÆäÖÐÓÐÒ»¸öÃû³ÆÎªText1µÄÎı¾¿ò¡£Ó°ÏìText1µÄTab˳ÐòµÄÐÔÊÇ£¨ ¡¾4¡¿ £©
£¨A£©TabStop £¨B£©Enabled £¨C£©Visible £¨D£©TabIndex 25£® ÒÔϹØÓÚ±äÁ¿×÷ÒµÓÃÓòµÄÐðÊöÖУ¬ÕýÈ·µÄÊÇ£¨ ¡¾4¡¿ £©
£¨A£©´°ÌåÖз²±»ÉùÃ÷ΪPrivateµÄ±äÁ¿Ö»ÄÜÔÚij¸öÖ¸¶¨µÄ¹ý³ÌÖÐʹÓà £¨B£©È«¾Ö±äÁ¿Ö»ÄÜÔÚ±ê׼ģ¿éÖÐÉùÃ÷
£¨C£©Ä£¿é¼¶±äÁ¿Ö»ÄÜÓÃPrivate¹Ø¼ü×ÖÉùÃ÷
£¨D£©StaticÀàÐͱäÁ¿µÄ×÷ÓÃÓòÊÇËüËùÔڵĴ°Ìå»òÄ£¿éÎļþ
26£® ÔÚ´°ÌåÉϻһ¸öÃû³ÆÎªCom1µÄÃüÁî°´Å¥£¬È»ºó±àдÈçϳÌÐò£º Private Sub com1_Click( ) Static X As Integer Static Y As Integer Cls
Y=1 : Y=Y+10 : X=X+Y Print X, Y End Sub
³ÌÐòÔËÐÐʱ£¬Èý´Îµ¥»÷ÃüÁî°´Å¥Com1ºó£¬´°ÌåÉÏÏÔʾµÄ½á¹ûΪ£¨ ¡¾5¡¿ £© £¨A£©33 11 £¨B£©63 31 £¨C£©60 30 £¨D£©31 31 27£® ÒÔϹØÏµ±í´ïʽÖУ¬ÆäֵΪFalseµÄÊÇ£¨ ¡¾4¡¿ £©
£¨A£©¡±FINE¡±>¡±Fine¡± £¨B£©¡±good¡±<>¡±god¡± £¨C£©¡±BASIC¡±=Ucase(¡°Basic¡±) £¨D£©¡±good¡±>¡±god¡± 28£® Éèa = 3 £¬b = 5£¬ÔòÒÔϱí´ïÊ½ÖµÎªÕæµÄÊÇ£¨ ¡¾6¡¿ £© £¨A£©(-3+5) And (b > 0) £¨B£©a >= b And b > 10 £¨C£©(a > b) Or (b > 0) £¨D£©(a < 0) Eqv (b > 0) 29£® Óï¾äPrint 6 / 5 * 6 \\ 5 Mod 2 µÄÊä³ö½á¹ûÊÇ£¨ ¡¾4¡¿ £©
£¨A£©0 £¨B£©1 £¨C£©2 £¨D£©3 30£® ÒÔ϶¨ÒåÊý×é»ò¸øÊý×éÔªËØ¸³ÖµµÄÓï¾äÖУ¬ÕýÈ·µÄÊÇ£¨ ¡¾4¡¿ £© £¨A£©Dim Arr as Variant £¨B£©Dim Arr(10) as Integer Arr=Array(1,2,3,4,5,6,7,8) Arr=Array(1,2,3,4,5,6,7,8) £¨C£©Dim Arr%(10) £¨D£©Dim a(3),b(3) as Integer
¡¶¼ÆËã»ú³ÌÐòÉè¼ÆA¡·ÆÚÄ©¸´Ï°Ì⣨´ð°¸£© µÚ 3 Ò³ ¹² 35 Ò³
Êô
Arr(1)=¡±ABCDEFGH¡± a(0)=0 a(1)=1 a(2)=2 b=a
31£® ÔÚ´°ÌåÉϻһ¸öÃû³ÆÎªList1µÄÁбí¿ò£¬ÎªÁ˶ÔÁбí¿òÖеÄÿ¸öÏîÄ¿¶¼ÄܽøÐд¦Àí£¬
ӦʹÓõÄÑ»·Óï¾äΪ£¨ ¡¾4¡¿ £©
£¨A£©For i=0 To List1.ListCount-1 £¨B£©For i=0 To List1.Count-1 ¡¡ ¡¡ Next Next
£¨C£©For i=1 To List1.ListCount £¨D£©For i=1 To List1.Count ¡¡ ¡¡ Next Next 32£® ÒÔϹØÓÚͼƬ¿ò¿Ø¼þµÄ˵·¨ÖУ¬´íÎóµÄÊÇ£¨ ¡¾4¡¿ £©
£¨A£©¿ÉÒÔͨ¹ýPrint·½·¨ÔÚͼƬ¿òÖÐÊä³öÎı¾
£¨B£©Çå¿ÕͼƬ¿ò¿Ø¼þÖÐͼÐεķ½·¨Ö®Ò»ÊǼÓÔØÒ»¸ö¿ÕͼÐÎ £¨C£©Í¼Æ¬¿ò¿Ø¼þ¿ÉÒÔ×÷ΪÈÝÆ÷ʹÓÃ
£¨D£©ÓÃStretchÊôÐÔ¿ÉÒÔ×Ô¶¯µ÷ÕûͼƬ¿òÖÐͼÐεĴóС 33£® ÉèÓÐÓï¾ä
x = InputBox( ¡°ÇëÊäÈëÊýÖµ¡± , ¡° 0 ¡± , ¡°Ê¾Àý¡±)
Ôò³ÌÐòÔËÐкó£¬Èç¹û´Ó¼üÅÌÊäÈë100²¢°´»Ø³µ¼ü£¬ÏÂÁÐÐðÊöÖÐÕýÈ·µÄÊÇ£¨ ¡¾7¡¿ £© £¨A£©0ÊÇĬÈÏÖµ
£¨B£©±äÁ¿xµÄÖµÊÇÊýÖµ100 £¨C£©±äÁ¿xµÄÖµÊÇ×Ö·û´® ¡°100¡±
£¨D£©ÔÚInputBox¶Ô»°¿ò±êÌâÀ¸ÖÐÏÔʾµÄÊÇ¡°ÇëÊäÈëÊýÖµ¡± 34£® ÒÔÏÂÐðÊöÖдíÎóµÄÊÇ
£¨A£©´°Ìå»ò¿Ø¼þµÄʼþµÄÃû³Æ¿ÉÒÔÓɱà³ÌÈËԱȷ¶¨ £¨B£©Òƶ¯Êó±êʱ£¬»á´¥·¢MouseMoveʼþ £¨C£©¿Ø¼þµÄÃû³Æ¿ÉÒÔÓɱà³ÌÈËÔ±É趨 £¨D£©Ë«»÷Êó±ê¿ÉÒÔ´¥·¢DblClickʼþ
35£® ´Ó¼üÅÌÉÏÊäÈëÁ½¸ö×Ö·û´®£¬·Ö±ð±£´æÔÚ±äÁ¿Str1£¬Str2ÖУ¬È·¶¨µÚ¶þ¸ö×Ö·û´®ÔÚµÚÒ»¸ö×Ö·û
´®ÖÐÆðʼλÖõĺ¯ÊýÊÇ£¨ ¡¾8¡¿ £©
£¨A£©Mid £¨B£©Instr £¨C£©String £¨D£©Left 36£® ÒÔÏÂÄܹ»´¥·¢Îı¾¿òChangeʼþµÄ²Ù×÷ÊÇ£¨ ¡¾9¡¿ £© £¨A£©Îı¾¿ò»ñµÃ½¹µã £¨B£©¸Ä±äÎı¾¿òµÄÄÚÈÝ £¨C£©Îı¾¿òʧȥ½¹µã £¨D£©ÉèÖÃÎı¾¿òµÄ½¹µã
37£® Éèa = ¡°Î÷ÄϽ»Í¨´óѧ¶ëÃ¼Ð£Çø¡±£¬ÏÂÃæÊ¹b = ¡°¶ëÃ¼Ð£Çø¡±µÄÓï¾äÊÇ£¨ ¡¾10¡¿ £© £¨A£©b = Left (a , 15 , 8 ) £¨B£©b = Left ( a , 7 , 4 ) £¨C£©b = Mid ( a , 15 , 8 ) £¨D£©b = Mid ( a , 7 , 4 )
38£® ÔÚ´°ÌåÉÏÓÐÒ»¸öÎı¾¿ò¿Ø¼þ£¬Ãû³ÆÎªTxtTime£»Ò»¸ö¼ÆÊ±Æ÷¿Ø¼þ£¬Ãû³ÆÎªTimer1£¬Òª Çóÿ
Ò»ÃëÖÓÔÚÎı¾¿òÖÐÏÔʾһ´Îµ±Ç°Ê±¼ä¡£³ÌÐòΪ£º Private Sub Timer1 _ ( ) TxtTime.Text = Time End Sub
ÔÚÏ»®ÏßÉÏÓ¦ÌîÈëµÄÄÚÈÝÊÇ£¨ ¡¾11¡¿ £©
£¨A£©Visible £¨B£©Interval £¨C£©Timer £¨D£©Enabled 39£® ÒÔÏÂÄÜÕýÈ·¶¨ÒåÊý¾ÝÀàÐÍStudentµÄ´úÂëÊÇ
¡¶¼ÆËã»ú³ÌÐòÉè¼ÆA¡·ÆÚÄ©¸´Ï°Ì⣨´ð°¸£© µÚ 4 Ò³ ¹² 35 Ò³
Ïà¹ØÍÆ¼ö£º