c=30 End Select Print c

11¡¢ ÏÂÃæÕâ¶Î³ÌÐòÖ´ÐкóÊÇÇó1~99µÄƽ·½µÄºÍ£¬Ç뽫ÏÂÃæ´úÂë²¹³äÍêÕû¡£ Private Sub Command1_Click() Dim x As Integer Dim sum As Double x = 1

Do While x <= ___________ sum = ___________ +x*x x = ___________ Loop Print sum End Sub

12¡¢ Óï¾äForm1.Print \µÄÊä³ö½á¹ûΪ£º___________¡£ 13¡¢ Ö´ÐÐÏÂÃæ³ÌÐò£¬Êä³ö½á¹ûÊÇn=___________£¬j=___________¡£ Dim j as integer,n as integer j=1£ºn=0 Do While n<3 j=j * (j+1) n=n+1 Loop

Print n; j

14¡¢ Ö´ÐÐÏÂÁгÌÐò¶Îºó£¬±äÁ¿A¡¢BµÄÖµ·Ö±ðΪ ( ) ¡¢( ) A =300:B=500:c=200 C=A : A=B :B=C Print A,B

15¡¢ Ö´ÐÐÏÂÃæ³ÌÐò¶ÎµÄÔËÐнá¹ûΪ£º( ) X=8:y=2 If x*y<15 then Y=y-1 Else Y=-1 End if Print y-x>0

16¡¢ Ö´ÐÐÏÂÃæ³ÌÐò¶Îºó£¬Êä³ö½á¹ûΪ£º( ) X=3:y=1

If x>1 then y=y+1 If x>2 then y=y+1 If x>3 then y=y+1 Print y

17¡¢ ÓÐÏÂÁгÌÐò¶Î£º Dim a,b,c a=1:b=2:c=3 a=b=c print a

³ÌÐòÔËÐкó£¬Êä³öµÄ½á¹ûÊÇ£¨ £©¡£ 18¡¢ num=0 while num<=2 num=num+1 wend print num

ÒÔÉϳÌÐò¶ÎµÄÊä³ö½á¹ûÊÇ£¨ £©¡£ 19¡¢ s=5

For i=2.6 to 4.9 step 0.6 s=s+1 Next i

ÒÔÉϳÌÐò¶ÎÖ´Ðкó£¬sµÄֵΪ£¨ £©¡£ 20¡¢ ĬÈÏÇé¿öÏÂ,Êý×éϱêµÄϽçÊÇ_____

21¡¢ VBÖУ¬°´ÕÕÊý×éµÄάÊý·ÖΪ___________________¡¢___________________¡¢___________________¡£

22¡¢ Èç¹û¼¸¸ö¿Ø¼þ¾ßÓÐÏàͬµÄ_____ÊôÐÔ£¬ÔòÕâЩ¿Ø¼þ³ÆΪÊý×é¿Ø¼þ¡£ 23¡¢ ÏÂÃæ³ÌÐò¶ÎÖ´Ðкó£¬a(4)µÄֵΪ___________ Private Sub Command1_Click() Dim a(4) as Integer a(0)=3 For i=1 to 4 a(i)= a(i-1)+i Next i Print a(4) End Sub

24¡¢ Ö´ÐÐÏÂÃæ³ÌÐò£¬Êä³ö½á¹ûÊÇ___________¡£ Private Sub Command1_Click() Dim aa As Variant aa=Array(1,2,3,4) Print aa(1) End Sub 25¡¢ ÓÐÈçϳÌÐò´úÂë Dim a() as string

a=split(\Îä#ÒÄ#ѧ#Ôº\ print a(2)

ÒÔÉϳÌÐòµÄÖ´Ðнá¹ûÊÇ( )¡£ 26¡¢ ÓÐÈçϳÌÐò´úÂë

Private Sub Command1_Click() Dim A(2 To 7) As Integer Dim i As Integer For i = 2 To 7 A(i) = i Next i

print A(i - 2) End Sub

ÒÔÉϳÌÐòµÄÖ´Ðнá¹ûÊÇ( )¡£

27¡¢ Ö´ÐÐÒÔϳÌÐò¶Îºó£¬xºÍaµÄÖµ·Ö±ðΪ£º£¨ £©¡¢£¨ Private Sub Command1_Click() Dim a As Integer, b As Integer a = 10: b = 10 Call mysub(a, b) Print a End Sub

Private Sub mysub(ByVal x As Integer, ByRef y As Integer) x = x * 2 y = y \\ 2 Print x End Sub

28¡¢ÉèÓÐÏÂÁк¯Êý¹ý³Ì£º

Function fun(m As Integer)As Integer Dim k As Integer,sum As Integer

£©¡£ sum=0

For k=m To 1 Step -3 sum=sum+k Next k fun=sum End Function

ÈôÔÚ³ÌÐòÖÐÓÃÓï¾äs=fun(9)µ÷Óô˺¯Êý£¬Ôòs µÄֵΪ( )¡£ 29¡¢ ÓÐÏÂÁгÌÐò¶Î£º

Private Sub Form_Click() Dim x, y As Integer x =8: y = 12 nc x, y

Print \ End Sub

Private Sub nc(ByVal a%, b%) a = a + b b = a a = a * b End Sub

³ÌÐòÔËÐк󣬵ã»÷´°Ì壬±äÁ¿xºÍyµÄÖµ·Ö±ðΪ ( )30¡¢ Private Sub Command1_Click() Dim a, b a = 10 b = 20

Call mult((a), b) Print a, b End Sub

Sub mult(ByRef x As Variant, y As Variant) x = x * 2 y = y * 3 End Sub

ÒÔÉϳÌÐòµÄÖ´Ðнá¹û·Ö±ðΪ£¨ £©¡¢£¨ 31¡¢ ÓÐÏÂÁгÌÐò¶Î£º

Dim x As Single, y As Single Private Sub Command1_Click() x = x + 1

¡¢ ( ) £©¡£