单项选择题

窗体上有Command1、Command2两个命令按钮。现编写以下程序：
Option Base 0
Dim a() As Integer, m As Integer
Private Sub Command1_Click()
m = InputBox( "请输入一个正整数" )
ReDim a(m)
End Sub
Private Sub Command2_Click()
m = InputBox( "请输入一个正整数" )
ReDim a(m)
End Sub
运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是( )。

A) 5
B) 6
C) 10
D) 11
<上一题 目录 下一题>
热门 试题

单项选择题
设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程： Private Sub Command1_Click() Dim s As String，ch As String s = For k = 1 To Len(Text1) ch = Mid(Text1, k, 1) s = ch + s Next k Text1. Text = s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A) Basic
B) cisaB
C) BASIC D) CISAB
单项选择题
现有如下程序： Private Sub Command1_Click() s=0 For i = 1 To 5 s = s + f(5+i) Next Print s End Sub Public Function f(x As Integer) If x ＞ = 10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。
A) 38
B) 49
C) 61
D) 70
相关试题