Next i

For i = 1 To 3 k = k + p (i) * 2 Next i MsgBox k End Sub

A£®33 B£®28 C£®37 D£®35 43£®ÓÐÈçϳÌÐò£º

Dim a (3,3 ) As Integer For m = 1 To 3 For n = 1 To 3

a ( m , n) = ( m-1) * 3 + n Next n Next m

For m = 2 To 3 For n = 1 To 2 MsgBox a(m,n) Next n Next m

ÔËÐкóÏûÏ¢¿òÒÀ´ÎÊä³öµÄ½á¹ûÊÇ ¡£

A£®2 5 3 6 B£®2 3 5 6 C£®4 7 5 8 D£®4 5 7 8 44£®ÓÐÈçϳÌÐò£¬ÔËÐкóÊä³öµÄÊÇ ¡£ Private Sub Command1_Click () Dim aj ( 10 ) For j = 6 To 10 Aj (j) = j * 2 Next j

MsgBox aj (1) + aj (j) End Sub

A£®5 B£®20 C£®22 D£®ÏÔʾ³ö´íÐÅÏ¢ 45£®ÔÚ´°ÌåÉÏ»­Ò»¸öÃû³ÆΪCommand1µÄÃüÁî°´Å¥ºÍÒ»¸öÃû³ÆΪText1µÄÎı¾¿ò£¬È»ºó±àдÈçϳÌÐò£º

Private Sub Command_Click ( ) Dim x , y , z As Integer x = 5 : y = 7 : z = 0 Text1 = \

Call fun ( x , y , z ) Text1 = Str ( z ) End Sub

Sub fun( ByVal a As Integer , ByVal b As Integer, c As Integer ) C = a + b End Sub

³ÌÐòÔËÐкó£¬Èç¹ûµ¥»÷ÃüÁî°´Å¥£¬ÔòÔÚÎı¾¿òÖÐÏÔʾµÄÄÚÈÝÊÇ ¡£ A£®0 B£®12 C£®Str(z) D£®Ã»ÓÐÏÔʾ

46£®ÔĶÁ³ÌÐò£º

Function F ( a As Integer ) b = 0 : Static c

b = b + 1 : c = c + 1 : F = a + b + c End Function

Private Sub Command1_Click ( ) Dim a As Integer a = 2

For i = 1 To 3 MsgBox F ( a ) Next i End Sub

ÔËÐÐÉÏÃæµÄ³ÌÐò£¬µ¥»÷ÃüÁî°´Å¥£¬ÔËÐкóÏûÏ¢¿òÒÀ´ÎÊä³ö½á¹ûΪ ¡£ A£®4 4 4 B£®4 5 6 C£®4 6 8 D£®4 7 9 47£®ÓÐÈçϳÌÐò£º

Private Function func ( ByVal a As Integer , ByVal b As Integer ) Func = a + b End Function

Private Sub Command1_Click ( ) Dim x As Integer , y As Integer Dim z As Integer , r As Integer x = 2 : y = 5 : z = 8

r = func ( func ( x , y ) , z ) MsgBox r End Sub

µ±ÔÚCommand1°´Å¥Éϵ¥»÷£¬¸Ã³ÌÐòµÄÊä³ö½á¹ûÊÇ ¡£ A£®12 B£®13 C£®14 D£®15 48£®ÔÚ´°ÌåÉÏ»­Ò»¸öÃû³ÆΪCommand1µÄÃüÁî°´Å¥ºÍ3¸öÃû³ÆΪLabel1¡¢Label2¡¢Label3µÄ±êÇ©£¬È»ºó±àдÈçϳÌÐò¶Î£º Private x As Integer

Private Sub Command_Click()

Static y As Integer : Dim z As Integer n = 10 : z = n + z : y = y + z : x = x + z

Label1.Caption = x : Label2.Caption = y : Label3.Caption = z End Sub

ÔËÐгÌÐò£¬Á¬Ðø3´Îµ¥»÷ÃüÁî°´Å¥ºó£¬Ôò3¸ö±êÇ©ÖÐÏÔʾµÄÄÚÈÝÊÇ ¡£ A£®30 30 30 B£®10 10 10 C£®30 30 10 D£®10 30 10

49£®ÔÚ´°ÌåÖÐÌí¼ÓÁËÒ»¸öÎı¾¿òºÍÒ»¸öÃüÁî°´Å¥£¨Ãû³Æ·Ö±ðΪtTextºÍ

bCommand£©£¬²¢±àдÁËÏàÓ¦µÄʼþ¹ý³Ì¡£ÔËÐд˴°Ìåºó£¬ÔÚÎı¾¿òÖÐÊäÈëÒ»¸ö×Ö·û£¬ÔòÃüÁî°´Å¥ÉϵıêÌâ±äΪ¡°¼ÆËã»úµÈ¼¶¿¼ÊÔ¡±¡£ÒÔÏÂÄÜʵÏÖÉÏÊö²Ù×÷µÄÓï¾äÊÇ ¡£

A£®Caption£½£¢¼ÆËã»úµÈ¼¶¿¼ÊÔ£¢ B£®bCommand.Caption£½¼ÆËã»úµÈ¼¶¿¼ÊÔ

C£®Caption£½£¢¼ÆËã»úµÈ¼¶¿¼ÊÔ£¢

D£®bCommand.Caption£½£¢¼ÆËã»úµÈ¼¶¿¼ÊÔ£¢

50£®ÔÚ´°ÌåÖÐÌí¼ÓÒ»¸öÃû³ÆΪCommand1µÄÃüÁî°´Å¥£¬È»ºó±àдÈçϳÌÐò£º Public x As integer

Private Sub Command1_Click£¨£© x£½10

Call s1 £ºCall s2 £ºMsgBox x End Sub

Private Sub s1£¨£© x£½x£«20 End Sub

Private Sub s2£¨£© Dim x As integer x£½x+20 End Sub

´°Ìå´ò¿ªÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬ÔòÏûÏ¢¿òµÄÊä³ö½á¹ûΪ ¡£ A£®10 B£®30 C£®40 D£®50

²Î¿¼´ð°¸

1. C 2.C 3.C 4.D 5.A 6.C 7.B 8.D 9. A 10.C 11.B 12.B 13.B 14.A 15.B 16.C 17.B 18.A 19.A 20.D 21.B 22.B 23.D 24.B 25.B 26.B 27.B 28.B 29.B 30.A 31.C 32.D 33.A 34.D 35.C 36.C 37.B 38.C 39.A 40.C 41.A 42.A 43.D 44.D 45.B 46.B 47.D 48.C

49.D 50.B