2005Äê9ÔÂ
È«¹ú¼ÆËã»úµÈ¼¶¿¼ÊÔ¶þ¼¶±ÊÊÔÊÔ¾í ¹«¹²»ù´¡ÖªÊ¶ºÍVisual BasicÓïÑÔ³ÌÐòÉè¼Æ
(¿¼ÊÔʱ¼ä90·ÖÖÓ£¬Âú·Ö100·Ö)
Ò»¡¢Ñ¡ÔñÌâ(ÿСÌâ2·Ö,¹²70·Ö)
ÏÂÁи÷ÌâA)¡¢B)¡¢C)¡¢D)ËĸöÑ¡ÏîÖУ¬Ö»ÓÐÒ»¸öÑ¡ÏîÊÇÕýÈ·µÄ¡£Ç뽫ÕýÈ·Ñ¡ÏîÌîÍ¿ÔÚ´ðÌ⿨ÏàӦλÖÃÉÏ£¬´ðÔÚÊÔ¾íÉϲ»µÃ·Ö¡£
£¨1£©ÏÂÁÐÐðÊöÖÐÕýÈ·µÄÊÇ C ¡£
A£®³ÌÐòÉè¼Æ¾ÍÊDZàÖÆ³ÌÐò B£®³ÌÐòµÄ²âÊÔ±ØÐëÓɳÌÐòÔ±×Ô¼ºÈ¥Íê³É C£®³ÌÐò¾µ÷ÊԸĴíºó»¹Ó¦½øÐÐÔÙ²âÊÔ D£®³ÌÐò¾µ÷ÊԸĴíºó²»±Ø½øÐÐÔÙ²âÊÔ
£¨2£©ÏÂÁÐÊý¾Ý½á¹¹ÖУ¬ÄÜÓöþ·Ö·¨½øÐвéÕÒµÄÊÇ A ¡£
A£®Ë³Ðò´æ´¢µÄÓÐÐòÏßÐÔ±í B£®ÏßÐÔÁ´±í C£®¶þ²æÁ´±í D£®ÓÐÐòÏßÐÔÁ´±í
£¨3£©ÏÂÁйØÓÚÕ»µÄÃèÊöÕýÈ·µÄÊÇ C ¡£ A£®ÔÚÕ»ÖÐÖ»ÄܲåÈëÔªËØ¶ø²»ÄÜɾ³ýÔªËØ B£®ÔÚÕ»ÖÐÖ»ÄÜɾ³ýÔªËØ¶ø²»ÄܲåÈëÔªËØ
C£®Õ»ÊÇÌØÊâµÄÏßÐÔ±í£¬Ö»ÄÜÔÚÒ»¶Ë²åÈë»òɾ³ýÔªËØ
D£®Õ»ÊÇÌØÊâµÄÏßÐÔ±í£¬Ö»ÄÜÔÚÒ»¶Ë²åÈëÔªËØ£¬¶øÔÚÁíÒ»¶Ëɾ³ýÔªËØ
£¨4£©ÏÂÁÐÐðÊöÖÐÕýÈ·µÄÊÇ D ¡£ A£®Ò»¸öÂß¼Êý¾Ý½á¹¹Ö»ÄÜÓÐÒ»ÖÖ´æ´¢½á¹¹
B£®Êý¾ÝµÄÂß¼½á¹¹ÊôÓÚÏßÐԽṹ£¬´æ´¢½á¹¹ÊôÓÚ·ÇÏßÐԽṹ
C£®Ò»¸öÂß¼Êý¾Ý½á¹¹¿ÉÒÔÓжàÖÖ´æ´¢½á¹¹£¬ÇÒ¸÷ÖÖ´æ´¢½á¹¹²»Ó°ÏìÊý¾Ý´¦ÀíµÄЧÂÊ D£®Ò»¸öÂß¼Êý¾Ý½á¹¹¿ÉÒÔÓжàÖÖ´æ´¢½á¹¹£¬ÇÒ¸÷ÖÖ´æ´¢½á¹¹Ó°ÏìÊý¾Ý´¦ÀíµÄЧÂÊ
£¨5£©ÏÂÁÐÃèÊöÖÐÕýÈ·µÄÊÇ C ¡£ A£®Èí¼þ¹¤³ÌÖ»Êǽâ¾öÈí¼þÏîÄ¿µÄ¹ÜÀíÎÊÌâ B£®Èí¼þ¹¤³ÌÖ÷Òª½â¾öÈí¼þ²úÆ·µÄÉú²úÂÊÎÊÌâ
C£®Èí¼þ¹¤³ÌµÄÖ÷Ҫ˼ÏëÊÇÇ¿µ÷ÔÚÈí¼þ¿ª·¢¹ý³ÌÖÐÐèÒªÓ¦Óù¤³Ì»¯ÔÔò D£®Èí¼þ¹¤³ÌÖ»Êǽâ¾öÈí¼þ¿ª·¢Öеļ¼ÊõÎÊÌâ
£¨6£©ÔÚÈí¼þÉè¼ÆÖУ¬²»ÊôÓÚ¹ý³ÌÉè¼Æ¹¤¾ßµÄÊÇ D ¡£ A£®PDL(¹ý³ÌÉè¼ÆÓïÑÔ) B£®PADͼ C£®N-Sͼ D£®DFDͼ
£¨7£©ÏÂÁÐÐðÊöÖÐÕýÈ·µÄÊÇ A ¡£
A£®Èí¼þ½»¸¶Ê¹Óúó»¹ÐèÒª½øÐÐά»¤ B£®Èí¼þÒ»µ©½»¸¶Ê¹ÓþͲ»ÐèÒªÔÙ½øÐÐά»¤ C£®Èí¼þ½»¸¶Ê¹ÓúóÆäÉúÃüÖÜÆÚ¾Í½áÊø D£®Èí¼þά»¤ÊÇÖ¸ÐÞ¸´³ÌÐòÖб»ÆÆ»µµÄÖ¸Áî
£¨8£©Êý¾Ý¿âÉè¼ÆµÄ¸ù±¾Ä¿±êÊÇÒª½â¾ö A ¡£
A£®Êý¾Ý¹²ÏíÎÊÌâ B£®Êý¾Ý°²È«ÎÊÌâ C£®´óÁ¿Êý¾Ý´æ´¢ÎÊÌâ D£®¼ò»¯Êý¾Ýά»¤
£¨9£©ÉèÓÐÈçϹØÏµ±í: R S A 1 2 B 1 2 C 2 3 A 3 B 1 C 3 T A 1 2 3 B 1 2 1 C 2 3 3
ÔòÏÂÁвÙ×÷ÖÐÕýÈ·µÄÊÇ B ¡£
A£®T£½R¡ÉS B£®T£½R¡ÈS C£®T£½R¡ÁS D£®T£½R/S
£¨10£©Êý¾Ý¿âϵͳµÄºËÐÄÊÇ B ¡£
A£®Êý¾ÝÄ£ÐÍ B£®Êý¾Ý¿â¹ÜÀíϵͳ C£®Êý¾Ý¿â D£®Êý¾Ý¿â¹ÜÀíÔ±
£¨11£©¼Ù¶¨Ò»¸öVisual BasicÓ¦ÓóÌÐòÓÉÒ»¸ö´°ÌåÄ£¿éºÍÒ»¸ö±ê׼ģ¿é¹¹³É¡£ÎªÁ˱£´æ¸ÃÓ¦ÓóÌÐò£¬ÒÔÏÂÕýÈ·µÄ²Ù×÷ÊÇ B ¡£
A£®Ö»±£´æ´°ÌåÄ£¿éÎļþ B£®·Ö±ð±£´æ´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍ¹¤³ÌÎļþ C£®Ö»±£´æ´°ÌåÄ£¿éºÍ±ê׼ģ¿éÎļþ D£®Ö»±£´æ¹¤³ÌÎļþ
£¨12£©ÎªÁËÇå³ý´°ÌåÉϵÄÒ»¸ö¿Ø¼þ£¬ÏÂÁÐÕýÈ·µÄ²Ù×÷ÊÇ C ¡£ A£®°´»Ø³µ¼ü B£®°´Esc¼ü
C£®Ñ¡Ôñ£¨µ¥»÷£©ÒªÇå³ýµÄ¿Ø¼þ£¬È»ºó°´Del¼ü D£®Ñ¡Ôñ£¨µ¥»÷£©ÒªÇå³ýµÄ¿Ø¼þ£¬È»ºó°´»Ø³µ¼ü
£¨13£©ÒÔÏÂÐðÊöÖдíÎóµÄÊÇ C ¡£
A£®´ò¿ªÒ»¸ö¹¤³ÌÎļþʱ£¬ÏµÍ³×Ô¶¯×°ÈëÓë¸Ã¹¤³ÌÓйصĴ°Ìå¡¢±ê׼ģ¿éµÈÎļþ B£®µ±³ÌÐòÔËÐÐʱ£¬Ë«»÷Ò»¸ö´°Ì壬Ôò´¥·¢¸Ã´°ÌåµÄDblClickʼþ C£®Visual BasicÓ¦ÓóÌÐòÖ»ÄÜÒÔ½âÊÍ·½Ê½Ö´ÐÐ D£®Ê¼þ¿ÉÒÔÓÉÓû§Òý·¢£¬Ò²¿ÉÒÔÓÉϵͳÒý·¢
£¨14£©Éèa=2, b=3, c=4, d=5, ÏÂÁбí´ïʽµÄÖµÊÇ D ¡£ Not a<=c Or 4*c=b^2 And b<>a+c
A£®-1 B£®1 C£®True D£®False
£¨15£©Éèa = 5£¬b = 10£¬ÔòÖ´ÐÐ c = Int((b - a) * Rnd + a) + 1 ºó£¬cÖµµÄ·¶Î§Îª C ¡£ A£®5¡«10 B£®6¡«9 C£®6¡«10 D£®5¡«9
£¨16£©ÔÚ´°ÌåÉϻһ¸öÃüÁî°´Å¥£¬Ãû³ÆÎªCommand1£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º Private Sub Command1_Click() a$ = \ b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, b$, c$, 1 End Sub
ÔËÐгÌÐò£¬µ¥»÷ÃüÁî°´Å¥£¬ÔòÔÚµ¯³öµÄÐÅÏ¢¿òµÄ±êÌâÀ¸ÖÐÏÔʾµÄÊÇ C ¡£ A£®software and hardware B£®software C£®hardware D£®-1
£¨17£©ÔÚ´°ÌåÉϻһ¸öÃüÁî°´Å¥ºÍÒ»¸öÎı¾¿ò£¬ÆäÃû³Æ·Ö±ðΪCommand1ºÍText1£¬°ÑÎı¾¿òµÄTextÊôÐÔÉèÖÃΪ¿Õ°×£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º Private Sub Command1_Click() a = InputBox(\ b = InputBox(\ Text1.Text = b + a End Sub
³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Èç¹ûÔÚÊäÈë¶Ô»°¿òÖзֱðÊäÈë8ºÍ10£¬ÔòÎı¾¿òÖÐÏÔʾµÄÄÚÈÝÊÇ A ¡£
A£®108 B£®18 C£®810 D£®³ö´í
£¨18£©ÔÚ´°ÌåÉÏ»Á½¸öÎı¾¿ò£¬ÆäÃû³Æ·Ö±ðΪText1ºÍText2£¬È»ºó±àдÈçϳÌÐò£º Private Sub Form_Load() Show
Text1.Text = \ Text2.Text = \ Text1.SetFocus End Sub
Private Sub Text1_Change()
Text2.Text = Mid(Text1.Text, 8) End Sub
³ÌÐòÔËÐкó£¬Èç¹ûÔÚÎı¾¿òText1ÖÐÊäÈëBeijingChina£¬ÔòÔÚÎı¾¿òText2ÖÐÏÔʾµÄÄÚÈÝÊÇ B ¡£
A£®BeijingChina B£®China C£®Beijing D£®BeijingC
£¨19£©ÔÚ´°ÌåÉϻһ¸öÁбí¿òºÍÒ»¸öÃüÁî°´Å¥£¬ÆäÃû³Æ·Ö±ðΪList1ºÍCommand1£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º
Private Sub Form_Load() List1.AddItem \ List1.AddItem \ List1.AddItem \ End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount) = \ End Sub
³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Æä½á¹ûΪ B ¡£ A£®°Ñ×Ö·û´®¡°AAAA¡±Ìí¼Óµ½Áбí¿òÖУ¬µ«Î»Öò»ÄÜÈ·¶¨
B£®°Ñ×Ö·û´®¡°AAAA¡±Ìí¼Óµ½Áбí¿òµÄ×îºó£¨¼´¡°Item 3¡±µÄºóÃæ£© C£®°ÑÁбí¿òÖÐÔÓеÄ×îºóÒ»Ïî¸ÄΪ¡°AAAA¡±
D£®°Ñ×Ö·û´®¡°AAAA¡±²åÈëµ½Áбí¿òµÄ×îÇ°Ãæ£¨¼´¡°Item 1¡±µÄÇ°Ãæ£©
£¨20£©¼Ù¶¨ÓÐÈçÏÂʼþ¹ý³Ì£º Private Sub Form_Click()
Dim x As Integer, n As Integer x = 1 n = 0
Do While x < 28 x = x * 3 n = n + 1 Loop Print x, n End Sub
³ÌÐòÔËÐк󣬵¥»÷´°Ì壬Êä³ö½á¹ûÊÇ A ¡£ A£®81 4 B£®56 3 C£®28 1 D£®243 5
£¨21£©ÓÐÈçϳÌÐò£º Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do
Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop
Loop Until Check = False Print Counter, Check End Sub
³ÌÐòÔËÐк󣬵¥»÷´°Ì壬Êä³ö½á¹ûΪ D ¡£
A£®15 0 B£®20 -1 C£®10 True D£®10 False
£¨22£©ÓÐÈçϳÌÐò£º Private Sub Form_Click()
Dim i As Integer, sum As Integer sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub