µ±Ç°Î»ÖãºÊ×Ò³ > È«Ì×ÊÔÌâ1 .doc
È«Ì×ÊÔÌâ1
±Õ¾í¿¼ÊÔ£¬¿¼ÊÔʱ¼ä120·ÖÖÓ
Ò»¡¢Ñ¡ÔñÌ⣨40·Ö£¬Ã¿Ìâ2·Ö£©
1£©¼ÙÈçÒ»¸öVisual Basic Ó¦ÓóÌÐòÓÉÒ»¸ö´°ÌåÄ£¿éºÍÒ»¸ö±ê׼ģ¿é¹¹³É¡£ÎªÁ˱£´æ¸ÃÓ¦ÓóÌÐò£¬ÒÔÏÂÕýÈ·µÄ²Ù×÷ÊÇ
A£©Ö»±£´æ´°ÌåÄ£¿éÎļþ
B£©·Ö±ð±£´æ´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍ¹¤³ÌÎļþ C£©Ö»±£´æ´°ÌåÄ£¿éºÍ±ê׼ģ¿éÎļþ¡£ D£©Ö»±£´æ¹¤³ÌÎļþ¡£
2) ÒÔϲ»ÊôÓÚVisual BasicϵͳµÄÎļþÀàÐÍÊÇ
A) .frm B) .bat C) .vbg D) .vbp
3£©ÎªÁËÇå³ý´°ÌåÉϵÄÒ»¸ö¿Ø¼þ£¬ÏÂÁÐÕýÈ·µÄ²Ù×÷ÊÇ£º A£©Ñ¡Ôñ£¨µ¥»÷£©ÒªÇå³ýµÄ¿Ø¼þ£¬È»ºó°´Del¼ü B£©°´»Ø³µ¼ü C£©°´esc¼ü
D£©Ñ¡Ôñ£¨µ¥»÷£©ÒªÇå³ýµÄ¿Ø¼þ£¬È»ºó°´»Ø³µ¼ü
4£©ÒÔÏÂÐðÊöÖдíÎóµÄÊÇ
A) Ë«»÷Êó±ê¿ÉÒÔ´¥·¢DblCLickʼþ
B) ´°Ìå»ò¿Ø¼þµÄʼþµÄÃû³Æ¿ÉÒÔÓɱà³ÌÈËԱȷ¶¨ C) ÒÆ¶¯Êó±êʱ£¬»á´¥·¢MouseMoveʼþ D) ¿Ø¼þµÄÃû³Æ¿ÉÒÔÓɱà³ÌÈËÔ±É趨
5£© ÒÔÏÂÐðÊöÕýÈ·µÄÊÇ
A£©VB³ÌÐòÖÐdCount ºÍ DCOUNTÊÇÁ½¸ö²»Í¬µÄ±äÁ¿
B£©VBµÄÓï¾äÒÔ»»Ðзû£¨»Ø³µ£©×÷Ϊ½áÊø·û£¬Ò»ÐпÉÒÔÓжà¸öÓï¾ä£¬ÓÃðºÅ¡°:¡±·Ö¸î C£©ÔÚVB6.0ÖÐÔ´³ÌÐòÖв»ÔÙ±£ÁôÐкÅ
D£©VBÔ´³ÌÐòÖеÄÒ»ÐпÉÒÔ³¬¹ý255¸ö×Ö·û£¬²¢ÇÒûÓ㤶ÈÏÞÖÆ
6£©ÕýÈ·±í´ïË«¾«¶È¸¡µãÊý(Double)3.14159µÄ±í´ïʽΪ A£©3.14159 B) 0.314159E+1 C) 3.14159# D) 3.14159!
7£©Éèa=10, b=5, c=1, Ö´ÐÐÓï¾äPrint a>b>cºó£¬´°ÌåÉÏÏÔʾµÄÊÇ
A) True B) False C) 1 D) ³ö´íÐÅÏ¢ 8£©Óï¾äPrint 5/4*6\\5 Mod 2µÄÊä³ö½á¹ûÊÇ
A) 0 B) 1 C) 2
D) 3
9) Èç¹ûÒª¸Ä±ä´°ÌåµÄ±êÌ⣬ÔòÐèÒªÉèÖõÄÊôÐÔÊÇ
A) Caption B) Name C) BackColor D) BorderStyle 10) Éè×éºÏ¿òCombolÖÐÓÐ3¸öÏîÄ¿£¬ÔòÒÔÏÂÄÜɾ³ý×îºóÒ»ÏîµÄÓï¾äÊÇ
A) Combol.RemoveItem Text B) Combol.RemoveItem 2 C) Combol.RemoveItem 3
D) Combol.RemoveItem Combol.Listcount
11£©Èç¹ûÒªÔڲ˵¥ÖÐÌí¼ÓÒ»¸ö·Ö¸ôÏߣ¬ÔòÓ¦½«ÆäCaptionÊôÐÔÉèÖÃΪ
A) = B) * C) & D) -
12£©ÔÚ´°ÌåÉϻһ¸öÃû³ÆÎªCommand1µÄÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì: Private Sub Command1_ Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1
Loop While a <=0 Print s; a End Sub
³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´£¬Ôò´°ÌåÉÏÏÔʾµÄÄÚÈÝÊÇ
A) 7 9 B) 34 0 C) 9 7 D) ËÀÑ»·
13£©ÒÔϹØÓÚº¯Êý¹ý³ÌµÄÐðÊöÖУ¬ÕýÈ·µÄÊÇ£º
A£© Èç¹û²»Ö¸Ã÷º¯Êý¹ý³Ì²ÎÊýµÄÀàÐÍ£¬Ôò¸Ã²ÎÊýûÓÐÊý¾ÝÀàÐÍ B£©º¯Êý¹ý³ÌµÄ·µ»ØÖµ¿ÉÒÔÓжà¸ö
C£©µ±Êý×é×÷Ϊº¯Êý¹ý³ÌµÄ²ÎÊýʱ£¬¼ÈÄÜÒÔ´«Öµ·½Ê½´«µÝ£¬Ò²ÄÜÒÔ´«ÒýÓ÷½Ê½´«µÝ D£©º¯Êý¹ý³ÌÐβεÄÀàÐÍÓ뺯Êý·µ»ØÖµµÄÀàÐÍûÓйØÏµ
14£©¼ÙÉèÓйý³Ì
Public Sub Test(ByVal A As Integer, ByVal B As Integer) C%=A+B
End SubÔò²»ÕýÈ·µÄµ÷ÓÃΪ A£©Call Test(2, 3) B£©C% = Test(2, 3) C£©Test 2, 3
D£©Call Test(2,2+3)
15)ÒÔϹØÓÚkeyPressʼþ¹ý³ÌÖвÎÊýKeyAsciiµÄÐðÊöÖÐÕýÈ·µÄÊÇ A£©KeyAscii²ÎÊýÊÇËù°´¼üµÄASCIIÂë B£©KeyAscii²ÎÊýµÄÊý¾ÝÀàÐÍΪ×Ö·û´® C£©KeyAscii²ÎÊý¿ÉÒÔÊ¡ÂÔ
D£©KeyAscii²ÎÊýÊÇËù°´¼üÉϱê×¢µÄ×Ö·û
16)Èç¹ûÒ»¸ö¹¤³Ìº¬Óжà¸ö´°Ìå¼°±ê׼ģ¿é£¬ÔòÒÔÏÂÐðÊöÖдíÎóµÄÊÇ A£©ÈκÎʱ¿Ì×î¶àÖ»ÓÐÒ»¸ö´°ÌåÊǻ´°Ìå B£©²»Äܰѱê׼ģ¿éÉèÖÃΪÆô¶¯Ä£¿é
C£©ÓÃhide·½·¨Ö»ÊÇÒþ²ØÒ»¸ö´°Ì壬²»ÄÜÄÚ´æÖÐÇå³ý¸Ã´°Ìå
D£©Èç¹û¹¤³ÌÖк¬ÓÐsub main ¹ý³Ì£¬Ôò³ÌÐòÒ»¶¨Ê×ÏÈÖ´Ðиùý³Ì¡£
17)Ŀ¼Áбí¿òµÄpathÊôÐÔµÄ×÷ÓÃÊÇ
A£©ÏÔʾµ±Ç°Çý¶¯Æ÷»òÖ¸¶¨Çý¶¯Æ÷ÉϵÄij¸öĿ¼ÏµÄÎļþÃû B£©ÏÔʾµ±Ç°Çý¶¯Æ÷»òÖ¸¶¨Çý¶¯Æ÷ÉϵÄĿ¼½á¹¹ C£©ÏÔʾ¸ùĿ¼ÏµÄÎļþÃû D) ÏÔʾָ¶¨Â·¾¶ÏµÄÎļþ
18£©ÏÂÃæ²»ÄÜÕýÈ·°´Ë³Ðò·ÃÎÊģʽ´ò¿ª¡±C:\\A.txt¡±µÄÓï¾äÊÇ A£©open ¡±C:\\A.txt¡± for append as #1 Ϊ˳Ðò·ÃÎÊģʽ B£©open ¡±C:\\A.txt¡± for random as #1 len=128 C£©Ö´ÐÐopen ¡±C:\\A.txt¡± for input as #1 D) open ¡±C:\\A.txt¡± for output as #1
19£©ÏÂÃæ¹ØÓÚDAOÊý¾Ý×é¼þ˵Ã÷ÕýÈ¡µÄÊÇ
A£©Í¨¹ýdatabaseÊôÐÔ¸ü¸ÄÊý¾Ý¿âºó£¬Êý¾Ý×é¼þ»á×Ô¶¯¸üÐÂÊý¾Ý
B£©ÎÞÂÛÔÚµ¥Óû§ºÍ¶àÓû§»·¾³Ï£¬¼òµ¥µÄµ÷ÓÃrecordcountÊôÐÔ¶¼ÄÜ»ñµÃ׼ȷµÄ¼Ç¼×ÜÊý C£©µ±¼Ç¼ָÕëµ½´ï×îºóÒ»Ìõ¼Ç¼֮ºó£¬EOFֵΪtrue D) µ±¼Ç¼¼¯Îª¿Õʱ£¬BOFΪFALSE
20£©¹ØÓڼǼ²Ù×÷µÄ˵Ã÷´íÎóµÄ
A£©ÔÚͨ¹ýAddnewÔö¼Ó¼Ç¼ºó£¬ÐèÒªµ÷ÓÃUpdate·½·¨¸üÐÂÊý¾Ý¿â B£©ÔÚͨ¹ýDeleteɾ³ý¼Ç¼ºó£¬ÐèÒªµ÷ÓÃUpdate·½·¨¸üÐÂÊý¾Ý¿â C£©ÔÚͨ¹ýDeleteɾ³ý¼Ç¼ºó£¬ÐèÒªµ÷ÓÃmovelast»òmovenext·½·¨ D) ÔÚͨ¹ýEdit±à¼¼Ç¼ºó£¬ÐèÒªµ÷ÓÃUpdate·½·¨¸üÐÂÊý¾Ý¿â
¶þ¡¢Ìî¿ÕÌ⣨30·Ö£¬Ã¿¿Õ2·Ö£©
1£© ½á¹¹»¯³ÌÐòÉè¼ÆÖаѳÌÐòµÄ½á¹û¹æ¶¨Îª___¡¾1¡¿___¡¢___¡¾2¡¿____¡¢_¡¾3¡¿__ÈýÖÖ»ù±¾½á¹¹¡£ 2£©Visual BasicÓ¦ÓóÌÐòÖбê׼ģ¿éÎļþµÄÀ©Õ¹ÃûÊÇ¡¾4¡¿ ¡£
3) ÉèÓÐÈçϳÌÐò¶Î£º
a$=\
b$=Mid(a$,InStr(a$,\
Ö´ÐÐÉÏÃæµÄ³ÌÐò¶Îºó£¬±äÁ¿b$µÄֵΪ¡¾5¡¿ ¡£
4£©ÎªÁËʹ±êÇ©ÄÜ×Ô¶¯µ÷Õû´óСÒÔÏÔʾȫ²¿Îı¾ÄÚÈÝ£¬Ó¦°Ñ±êÇ©µÄ¡¾6¡¿ ÊôÐÔÉèÖÃΪTrue¡£ 5£©VBÖпÉÒÔ¹¹³ÉÑ»·µÄÓï¾ä°üÀ¨ ¡¾7¡¿ ¡¢ ¡¾8¡¿ ¡¢ ¡¾9¡¿
6£©ÓëÊýѧ±í´ïʽ
cos2(a?b)3x?5¶ÔÓ¦µÄVisual Basic±í´ïʽÊÇ¡¾10¡¿ ¡£ 7) ½«CÅ̸ùĿ¼ÏµÄͼÐÎÎļþmoon.jpg×°ÈëͼƬ¿òPicture1µÄÓï¾äÊÇ ¡¾11¡¿ ¡£ 8£©ÎªÁËʹ¼ÆÊ±Æ÷¿Ø¼þTimer1ÿ¸ô0.5Ãë´¥·¢Ò»´ÎTimerʼþ£¬Ó¦½«Timer1¿Ø¼þµÄ¡¾12¡¿ÊôÐÔÉèÖÃΪ¡¾13¡¿9£© ÉèÓÐÒÔϺ¯Êý¹ý³Ì
Function Fun(m as integer) as integer Dim k as integer ,sum as integer Sum=0
For k=m to 1 step ¨C2
¡£ Sum=sum +k Next k Fun=sum End function
ÈôÔÚ³ÌÐòÖÐÓÃÓï¾äs=fun(10)µ÷Óôκ¯Êý£¬ÔòsµÄֵΪ¡¾14¡¿
10£© Ãû³ÆÎªForm1µÄ´°ÌåÉϻһ¸öÎı¾¿ò£¬ÆäÃû³ÆÎªText1,ÔÚÊôÐÔ´°¿ÚÖаѸÃÎı¾µÄMultilineÊôÐÔÉèÖÃΪtrue£¬È»ºó±àдÈçϵÄʼþ¹ý³Ì¡£ Private sub form_click()
Open ¡°d:\\test\\smtext1.txt¡± fot input as #1 Do while not __¡¾15¡¿___ Line input #1,aspect$
Whole$=whole$+aspect$+chr$(13)+chr$(10) Loop
Text1.text=whole$ Close #1
Èý¡¢±à³Ì£¨30·Ö£¬Ã¿Ìâ10·Ö£©
1¡¢±à³ÌʵÏÖ£¬½«Á½¸ö±äÁ¿µÄÖµ½øÐн»»»£¬ÀýÈça=5,b=4ÔËÐгÌÐòºóa=4,b=5¡£ 2¡¢±àдʵÏÖ£¬¼ÆËã1-100Ö®¼äËùÓÐÄܱ»3Õû³ýµÄÊýµÃºÍ¡£
3¡¢Éè¼ÆÒ»¸öformÃû³ÆÎªform1£¬Ìí¼Ó¡°´ò¿ªÎļþ¡±°´Å¥cmdOpen,£¬ ¡°±£´æÎļþ¡±°´Å¥ÎªcmdSave£¬Îı¾¿òΪtxtSource¡£Í¨¹ýµã»÷¡°´ò¿ªÎļþ¡±°´Å¥µ÷ÓÃͨÓöԻ°¿òcommonDialog1Ñ¡ÔñÒ»Îı¾£¨À©Õ¹Ãûdat£©¡±c:\\test.dat¡±£¬½«ÄÚÈÝÏÔʾµ½txtSourceÖУ¬È»ºóͨ¹ýµã»÷¡°±£´æÎļþ¡±°´Å¥½«´ËÎı¾¿òµÄÄÚÈݱ£´æµ½¡°c:\\test.txt¡±ÖС£ÒªÇóʹÓÃopenÃüÁî´ò¿ªÎļþ£¬ÔÚform1_loadÖгõʼ»¯cmdOpenºÍcmdSaveµÄ±êÌâÊôÐÔ¡£
´ð°¸£º Ò»¡¢Ñ¡ÔñÌâ
1.B 2.B 3.A 4.B 5.B 6.C 7.B 8.B 9.A 10.B 11.D 12 .C 13.D 14.B 15.A 16.D 17.B 18.B 19.C 20.B ¶þ¡¢Ìî¿ÕÌâ
1.˳Ðò 2.Ñ¡Ôñ 3.Ñ»· 4..BAS 5.Shanghai 6.AutoSize
7.while wend 8. for next 9. do while 10.cos(a+b)*cos(a+b)/(3*x)+5
11picture1.picture=loadpicture(\
12. interval 13.500 14. 30 15.EOF(1) Èý¡¢±à³ÌÌâ 1¡¢
Sub swap()
Dim c As Integer, a As Integer, b As Integer a=inputbox(¡°Enter an integer a¡±) b=inputbox(¡°Enter an integerb¡±) print a,b c = a a = b
¹²·ÖÏí92ƪÏà¹ØÎĵµ