单项选择题

阅读程序:
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer,J As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr(i,j)=i*2+j
Next
Next
ReDim Preserve arr(3,4)
For j=3 To 4
art(3,j)=j+9
Next
Print arr(3,2)+arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为______。

A.21
B.13
C.8
D.25
<上一题 目录 下一题>
热门 试题

单项选择题
标准模块中有如下程序代码:Public x As Integer,y As IntegerSub var_pub()x=10:y=20End Sub在窗体上有1个命令按钮,并有如下事件过程:Private Sub Command1_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x;yEnd Sub运行程序后单击命令按钮,窗体上显示的是______。
A.100 100
B.100 120
C.110 100
D.110 120
单项选择题
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:Private Sub Command1 Click()Dim a&,s&,k&s=1a=2For k=2 To 10a=a*2s=s+aNext kText1.Text=sEnd Sub执行此事件过程后发现结果是错误的,为能够得到正确结果,应做的修改是______。
A.把s=1改为s=0
B.把For k=2 To 10改为For k=1 To 10
C.交换语句s=s+a和a=a*2的顺序
D.把For k=2 To 10改为For k=1 To 10,交换语句s=s+a和a=a*2的顺序
相关试题
  • 向顺序文件Temp.txt中写入1、2、3这3...
  • 在Visual Basic中,要将一个窗体从内存中...
  • Print方法可以在对象上输出数据,这些对象...
  • 编写如下事件过程:Private Sub Form_Ke...
  • 阅读程序:Function Fun(a As Integer...