VBʵÑéÖ¸µ¼Ï°Ìâ - ͼÎÄ

Case Is<=10 y=5+2*x Case Is<=15 y=x-5

Case 1s>15 y=O

End Select

Èý. ±à³ÌÌâ

1. ÊäÈëÈý½ÇÐεÄÈýÌõ±ßa¡¢b¡¢cµÄÖµ£¬¸ù¾ÝÆäÊýÖµ£¬ÅжÏÄÜ·ñ¹¹³ÉÈý½ÇÐΡ£ÈôÄÜ£¬»¹ÒªÏÔʾÈý½ÇÐεÄÐÔÖÊ£ºµÈ±ßÈý½ÇÐΡ¢µÈÑüÈý½ÇÐΡ¢Ö±½ÇÈý½ÇÐΡ¢ÈÎÒâÈý½ÇÐΡ£

2. ÊäÈëÒ»Äê·Ý£¬ÅжÏËüÊÇ·ñΪÈòÄ꣬²¢ÏÔʾÓйØÐÅÏ¢¡£ÅжÏÈòÄêµÄÌõ¼þÊÇ£ºÄê·ÝÄܱ»4Õû³ýµ«²»Äܱ»100Õû³ý£¬»òÕßÄÜ400Õû³ý¡£

3. ÒÑÖªÈí¼þѧԺÈëѧ²âÊԼƷÖÇé¿öΪ£ºÊýѧ£¨math£©Âú·Ö50·Ö£»¼ÆËã»ú£¨computer£©Âú·Ö100·Ö£»ÍâÓï6¼¶£¨lang6£©Îª¡°ÓÅÐ㡱¼Ó15·Ö¡¢¡°Í¨¹ý¡±¼Ó8 ·Ö£¬ÍâÓï4¼¶£¨lang4£©Îª¡°ºÏ¸ñ¡±¼Ó6·Ö£¬ÍâÓïÖ»ÄܼÆÒ»´Î×î¸ßµÄ·ÖÊý¡£ÀûÓÃInputBoxÊäÈëÒ»¸öѧÉúµÄ¶ÔÓ¦¿Î³ÌµÄ³É¼¨£¬±àд¼ÆË㿼ÊÔ×Ü·Ö£¨sum£©µÄ³ÌÐò¶Î¡£×¢£ºÀ¨ºÅÄÚΪ¶ÔÓ¦¿Î³ÌµÄ±äÁ¿Ãû¡£

4. Çó·½³Ì ax2?bx?c?0µÄ¸ù¡£ 5. Èθø3¸öʵÊý£¬ÇóÖмäÊý¡£

µÚËÄÕ ѭ»·½á¹¹³ÌÐòÉè¼Æ

Ò». Ñ¡ÔñÌâ

1. ÒÔÏÂ________ÊÇÕýÈ·µÄFor?Next½á¹¹¡£

£¨A£©For x = 1 To Step 10 £¨B£©For x = 3 To ¨C 3 Step ¨C 3 ? ? Next x Next x

£¨C£©For x = 1 To Step 10 £¨D£©For x = 3 To 10 Step 3 re : ? ? Next x Next y If i = 10 Then GoTo re

2. ÏÂÁÐÑ­»·Óï¾äÄÜÕý³£½áÊøÑ­»·µÄÊÇ________¡£

£¨A£©i = 5 £¨B£©i = 1 Do Do

i = i + 1 i = i + 2

Loop Until i < 0 Loop Until i = 10 £¨C£©i = 10 £¨D£©i = 6 Do Do

i = i ¨C 1 i = i ¨C 2

Loop Until i < 0 Loop Until i = 1 3. ÏÂÃæ³ÌÐò¶ÎµÄÔËÐнá¹ûΪ________¡£ For i = 3 To 1 Step ¨C 1 Print Spc(5 ¨C i);

- 44 -

For j = 1 To 2 * i ¨C 1 Print£¢*£¢; Next j Print Next i

£¨A£© * £¨B£©* * * * * £¨C£©* * * * * £¨£Ä£©* * * * * * * * * * * * * * * * * * * * * * * * * 4. ÏÂÁгÌÐòµ±ÔÚÎı¾¿òÊäÈë¡°ABCD¡±Ëĸö×Ö·ûʱ£¬´°ÌåÉÏÏÔʾµÄÊÇ________¡£ Private Sub Text1_Change( ) Print Text1.Text; End Sub

£¨£Á£©ABCD £¨£Â£©A B C D £¨C£©AABABCABCD £¨D£©A AB ABC ABCD

5. Äĸö³ÌÐò¶Î²»ÄÜ·Ö±ðÕýÈ·ÏÔʾ1!¡¢2!¡¢3!¡¢4!µÄÖµ________¡£ £¨A£©For i = 1 To 4 £¨B£©For i = 1 To 4 n = 1 For j = 1 To i For j = 1 To i n = 1 n = n * j n = n * j Next j Next j Print n Print n Next i Next i £¨C£©n = 1 £¨D£©n = 1 For j = 1 To 4 j = 1

n = n * j Do While j < = 4 print n n = n * j Next j Print n j = j + 1 Loop 6.ÓгÌÐò¶Î£º x% = 2

Do While x < 8 Print ¡° * ¡± ; X = x + 2 Loop

Ö´ÐкóµÄÊä³ö½á¹ûÊÇ________¡£

£¨A) * £¨B) ** £¨C) *** £¨D) **** 7.ÓгÌÐò¶Î£º Dim K% K = 5

- 45 -

Do Until K = 0 K = K ¨C 1 Loop

Ö´ÐÐÑ­»·ÌåµÄ´ÎÊýÊÇ£¨ £©¡£

£¨A) Ò»´ÎÒ²²»Ö´ÐÐ £¨B) Ò»´Î £¨C) Îå´Î £¨D) ÎÞÏÞ´Î 8.ÏÂÃæÃèÊöÖдíÎóµÄÊÇ________¡£

£¨A) Ö´ÐÐDo until <Ìõ¼þ> ¡­ loop Óï¾äÖУ¬µ±¡´Ìõ¼þ¡µÎªfalse ʱ£¬½áÊøÑ­»·ÌåµÄÖ´ÐС£ £¨B) Ö´ÐÐWhile <Ìõ¼þ> ¡­ Wend Óï¾äʱ£¬Ñ­»·Ìå¿ÉÄÜÒ»´ÎÒ²²»Ö´ÐС£ £¨C) Do ¡­ loop While<Ìõ¼þ> Óï¾äµÄÑ­»·Ìå¿ÉÄÜÒ»´ÎÒ²²»Ö´ÐС£

£¨D) Ö´ÐÐDo ¡­ loop Until<Ìõ¼þ> Óï¾äÖУ¬µ±¡´Ìõ¼þ¡µÎªtrue ʱ£¬½áÊøÑ­»·ÌåµÄÖ´ÐС£ 9. ÏÂÃæ³ÌÐò¶ÎÖÐÑ­»·Óï¾äµÄÑ­»·´ÎÊýÊÇ________¡£

For x = 10 To 1 Step ¨C3 Print x Next x

£¨A) 0 £¨B) 4 £¨C) 5 £¨D) 10

10. Ö´ÐÐÓï¾ä For I = 1 to 3 : I = I+1 : Next I ºó±äÁ¿I µÄÖµÊÇ________¡£ £¨A) 3 £¨B) 4 £¨C) 5 £¨D) 6 11. ÏÂÁгÌÐò¶ÎÖ´ÐкóÊä³öµÄ½á¹ûÊÇ________¡£

For I=1 To 2 S = 1

For j = 0 To I ¨C 1 S = S + S * j Next j Print S, Next I

£¨A) 1 1 £¨B) 1 2 £¨C) 2 1 £¨D) 2 2

12. ÔÚ´°ÌåÉÏ»­Á½¸öÃû³ÆΪtext1¡¢text2µÄÎı¾¿òºÍÒ»¸öÃû³ÆΪcommand1µÄÃüÁî°´Å¥£¬È»

ºó±àдÈçÏÂʼþ¹ý³Ì£º

Private sub command1-click()

Dim x as integer ,n as integer X=1 N=0

Do while x <20 X=x*3 N=n+1 Loop

Text1.text=str(x) Text2.text=str(n) End sub

³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥¡£ÔÚÁ½¸öÎı¾¿òÖÐÏÔʾµÄÖµ·Ö±ðÊÇ________ £¨A)9ºÍ2 £¨B)27ºÍ3

- 46 -

£¨C)195ºÍ3 £¨D)600ºÍ4 13. ÉèÓÐÒÔϳÌÐò

Private Sub Command1-Click()

Dim sum As Double, x As Double Sum=0 N=0

For i=1 to 5 x=n / i n=n+1

sum=sum+x Next End Sub

¸Ã³ÌÐòͨ¹ýForÑ­»·¼ÆËãÒ»¸ö±í´ïʽµÄÖµ£¬Õâ¸ö±í´ïʽÊÇ________

£¨A£©1+1/2+2/3+3/4+4/5 £¨B£©1+1/2+2/3+3/4 £¨C£©1/2+2/3+3/4+4/5 £¨D£©1+1/2+1/3+1/4+1/5

14. ÔÚ´°ÌåÉÏ»­Ò»¸öÃû³ÆΪCommand1 µÄÃüÁî°´Å¥£¬Ò»¸öÃû³ÆΪLabel1 µÄ±êÇ©£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º

Private Sub Command1-Click£¨£© S=0

For i=1 To 15 X=2*i-1

If x Mod 3=0 Then s=s+1 Next i

Label1.Caption=s End Sub

³ÌÐòÔËÐк󵥻÷ÃüÁî°´Å¥£¬Ôò±êÇ©ÖÐÏÔʾµÄÄÚÈÝÊÇ________¡£ £¨A£©1 £¨B£©5 £¨C£©27 £¨D£©45 15. ÏÂÁгÌÐò¶ÎÖ´ÐеĽá¹ûΪ________ K=0

For J=1 To 2 For I=1 To 3 K=I+1 Next I

For I=1 To 7 K=K+1 Next I Next J Print K

£¨A£©10 £¨B£©6 £¨C£©11 £¨D£©16

16. ÔÚ´°ÌåÉÏ»­Ò»¸öÃû³ÆΪCommand1µÄÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º

Privrate Sub Commandl_Click() X=0

N=InputBox(¡°¡±) For i=1 To n

- 47 -