以下程序的功能是随机产生10个两位的整数：
Option Base 1
Private Sub Command1_Click()
Dim a (10) As Integer
Dim i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rnd*100)+1
Print a(i)
Next i
End Sub
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（　　）。

[单选题]设有如下程序：Option Base 1Private Sub Form_Click()Dim a(5)As String,i As IntegerF

[单选题]现有程序如下：Option Base 1Private Sub Form_Click（）Dim x（5，6）As Integer，y（5）As Int

[单选题]窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click（）Dim x％，y％，z％x=Inp

[单选题]在窗体上画一个命令按钮（名称为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a a=Array

[单选题]在窗体上画一个名称为Command1的命令按钮，单击命令按钮时执行如下事件过程：Private Sub Command1_Click( )a＄="so

[单选题]窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：Private Sub Command1_Click( )

[单选题]下列程序的执行结果为Private Sub Command1_Click()D．im FirStr As StringF．irSt="abcdef"Print Pat(FirStr)E．nd SubPrivate Function Pat(xStr As String) As StringD．im tempStr As String，strLen As IntegertempStr=""strLen=Len(xStr)i=1D．o While i＜=Len(xStr)-3tempStr=

[单选题]下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FtrSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim tempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 te

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（　　）。程序运行时，单击C

[单选题]假定有以下循环结构：DimaasIntegera=1DoUntila＞10a=a+1Loop则正确的叙述是（　　）。A.如果a>10，则循环体开始执行