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
、 ( ) ）。