更多"现有如下一段程序： Option Base 1 Private Sub"的相关试题:
[单项选择]有如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim arr(10)
arr+Array(10, 35, 28, 90, 54, 68, 72,90)
For Each a Inarr
If a＞50 Then
Sum=Sum+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是( )。
A. 数组定义语句不对，应改为Dimarr
B. 没有指明For循环的终值
C. 应在For语句之前增加Sum=0
D. Next a应改为Next
[填空题]有如下程序：
Option Base 1
Private Sub Form_Click（ ）
Dim arr,sum
Sum＝0
arr＝Array(1,3,5,7,9,11,13,15,17,19)
For i＝1 TO 10
If arr(i))3＝arr(i)/3 Then
Sum＝Sum+arr(i)
End If
Next i
MsgBox Sum
End Sub
程序运行后，单击窗体，消息框的输出结果为______。
[单项选择]设有如下程序：
Option Base 0
Private Sub Form_Click（ ）
Dim a
Dimi 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
程序运行后，单击窗体，则在窗体上显示的是______。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]
有如下程序：
Option Base !
Private Sub Command1_Click（ ）
Dim arr(10)
arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a>50 Then
Sum=Sun+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是（ ）。
A. 数组定义语句不对，应改为Dim arr
B. 没有指明For循环的终值
C. 应在For语句之前增加Sum=0
D. Next a应改为Next
[单项选择]设有如下程序：
Option Base （ ）
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
程序运行后，单击窗体，则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后，单击命令按钮，在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36
[单项选择]有如下一段程序：
SET TALK OFF
A=1
B=0
DO WHILE A＜=100
IF.NOT.A/2=INT(A/2)
B=B+A
ENDIF
A=A+1
ENDDO
B
SET TALK ON
RETURN
该程序的功能是
A. 求1到100之间的累加和
B. 求1到100之间的累加和除以2的商
C. 求1到100之间的偶数之和
D. 求1到100之间的奇数之和
[单项选择]有如下一段程序：
SET TALK OFF
AY="Hello World!"
BY="X"
CY=ASC(BY)+1
DY=30
EY=CHR(DY*2+5)+CHR(CY)
EY=&EY
"&EY."
SET TALK ON
REimages/tu/RN
执行该程序后，屏幕显示的结果为______。
A. AY
B. BY
C. Hello world!
D. 程序出错
[单项选择]请阅读程序：
Option Base 1
Private Sub Form_Click（ ）
Dim Arr(4,4)As Integer
For i=1 To 4
Forj=1 To 4
Arr(i,j)=(i-1)*2+j
Nextj
Nexti
Fori=3 To 4
For j=3 To 4
Print Arr(j,i)；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是______。
A. 5 7
B. 6 8
C. 7 9
D. 8 10
[单项选择]有下列程序：
Option Base 0
Private Sub Command1_Click（ ）
Dim City As Variant
x = Array("Visual"，"Basic"，"Microsoft"，"Programming")
Print x(2)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是
A. Microson
B. 错误提示
C. Visual
D. Basic
[单项选择]有如下一段程序：
SET TALK OFF
A=1
B=0
DO WHILE A＜=100
IF .NOT.A/2=INT(A/2)
B=B+A
ENDIF
A=A+1
ENDDO
B
SET TALK ON
RETURN
该程序的功能是______。
A. 求1到100之间的累加和
B. 求1到100之间的累加和除以2的商
C. 求1到100之间的偶数之和
D. 求1到100之间的奇数之和
[单项选择]有如下一段程序：
SET TALK OFF
AY="Hello World!"
BY="X"
CY=ASC(BY)+1
DY=30
EY=CHR(DY*2+5)+CHR(CY)
EY=&EY
"&EY."
SET TALK ON
RETURN
执行该程序后，屏幕显示的结果为________。
A. AY
B. BY
C. Hello world!
D. 程序出错
[单项选择]下面程序的运行结果是( )。
Option Base 1
Private Sub Command1_Click（ ）
Dim x,y(3,3)
x=Array(1,2,3,4,5,6,7,8,9)
For i=1 To 3
For i=1 To 3
y(i,j)=(i*j)
If(j＞=i)Then Print y(i,j);
Next i
Print
Next i
End Sub
A. 1 2 3
B. 1 2 3
C. 1
D. 1 2 3
[单项选择]下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dim X(10J As Integer,y(5) As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=X(2*i-1)+X(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
