Dima（3，-3 to 0，3 to 8)As Stritig语句定义的数组元素有A．1-2个B．96个C．120个D．80个

语句Dim arr（-3 To 5，2 To 6）As Integer定义的数组元素有（）个。

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

设有下列函数过程 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 的值为（ ）。

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

执行下面 程序段后，变量 s 的值是 （ ） 。 s=0 For m = 1 To 3 n = 1 Do While n<= m s = s + n n = n + 1 Loop Next m

下列程序段的执行结果为_______。Dima(3,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=1To5a(i,j)=a(i-1,j-1)+(i-1)*5+jNextjNextiPrinta(3,4)（5.0分）

用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是().

3.Players tend to treat each other as enemies off the court.

从键盘输入的数据依次是1,2,3,4,5,6,7,8,9,10,下面程序运行结果是______。 s=0 For i=1 To 10 x=Val(InputBox(\请输入x的值:\)) If x/3=Int(x/3) or x/5=x\\5 Then s=s+x Next i Print \s=

有如下程序：Dim a(3，3)As IntegerFor m ＝ 1 To 3For n ＝ 1 To 3a(m，n)＝(m-1)*3＋nNext nNext mFor m ＝ 2 To 3For n ＝ 1 To 2Print a(n，m)；Next nNext m运行后，输出结果是( )。

DIM a（3, -3 to 0, 3 to 6)AS STRING语句定义的数组元素有【】个。

执行下面的程序段后，i的值为【 】，s的值为【 】。 s=2 For i=3.2 To 4.9 Step 0.8 s=s+1 Next i Print i, s

用DimA(3,-2To3)语句声明二维数组后，数组A的元素共有()个。

5、已知有数组声明：Dima(-1to3,2to5)asinteger，引用数组元素，正确的是（  ）

以下程序段运行的结果是：_______。Dima（-1 To 5)As BooleanDim flag As Booleanflag=FalseDim i A

语句Dim Arr（－2 To 3)As Integer所定义的数组的元素个数为（）。

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码： Option Base 1 Dim arr（) As Integer Private Sub Command1_Click（) Dim i As Integer, j As Integer Dim s As Integer ReDim arr（4, 2) s = 0 For i = 1 To 3 For j = 1 To 2 arr（i, j) = i + j Next j Next i ReDim Preserve arr（4, 4) For j = 3 To 4 arr（3, j) = j + 10 Next j For i = 1 To 4 s = s + arr（i, i) Next i Print s End Sub 程序运行过程中，当单击Command1时，输出结果为________。

求s=1+1×2+1×2×3+…+1×2×3×…×10， 并将结果存到变量s中。请在_________处填上适当的内容，完善程序。 Private Sub Form_Click（) Dim i, j As Integer Dim k As Long s = 0 For i = 1 To 10 k = ____________ For j = 1 To i k = k*j Next j s = s+k Next i Print “s=”;s End Sub

在窗体上有一个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click（) Dim p as Integer p=m（1)+m（2)+m（3) Print p End Sub Private Function m（n As Integer) As Integer Static s As Integer For k=1 To n s=s+1

阅读程序： Sub p（b（) As Integer) For i=1 To 4 b（i)=2*i Next i End 5ub Private Sub Command1_C1ick（) Dima（1 To 4)As InteSera（1)=5a（2)=6a（3)=7a（4)=8 caU p（a) For i=1 To 4 Pdnt a（i) Next i End Sub 运行上面的程序，单击

阅读程序： Option Base 1 Private Sub Form_Click（) Dima（3)As Integer Print"输入的数据是:"； Fori=1 To 3 a（i)=InputBox（“输入数据”) Printa（i)； Next Print If a（1)＜a（2) Then t=a（1) a（1)=a（2) a（2)= [10] End If Ifa（2)＞a（3)T

在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click（) Dim p As Integer p=m（1)+m（2)+m（3) Print p End Sub Private Function m（n As Integer)As Integer Static s As Integer Fork=1 To n s=s+1 N

下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。 Function SumF（n As Integer)As Singles = 0For i=1 To n s= 【12】 Next iSumF=s End Function Private Sub Form_Click（)Sum1=SumF（100)PrintPrint"sum1="； sum1 End S