9ÔÂÈ«¹ú¼ÆËã»úµÈ¼¶¿¼ÊÔ¶þ¼¶VBÓïÑÔ±ÊÊÔÊÔÌâ¼°´ð°¸ ÏÂÔØ±¾ÎÄ

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