Private Sub Command1_Click()
Dim a(9) As String, i%
For i = 0 To 9
a(i) = Chr(Rnd * 26 + _________)
Next
End Sub
举一反三
- 中国大学MOOC: 如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(不要空格)，完善程序。Private Sub Command1_Click() Dim a(9) As String, i% For i = 0 To 9 a(i) = Chr(Rnd * 26 + _________) NextEnd Sub
- 下列程序的运行结果为（ ）。 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next i End Sub
- 中国大学MOOC: 如下程序的功能是删除文本框Text1中的数字字符。请在_________处填入适当的内容，完善程序。Private Sub Command1_Click() Dim i%, s$, c$ s = "" For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If _________ Then s = s + c End If Next Text1.Text = sEnd Sub
- 下列程序的运行结果为（ ）。Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next iEnd Sub A: 123456 B: 6 C: 1 2 3 4 5 6 D: 0
- 下列程序的运行结果为（）。 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next i End Su A: 123456 B: 6 C: 123456 D: 0
内容
- 0
有如下程序代码 Private Sub Command1_Click( ) Dim A(2 To 7) As Integer Dim i As Integer For i = 2 To 7 A(i) = i Next i print A(i - 2) End Sub 以上程序的执行结果是( )。
- 1
以下程序的运行结果是 Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i) Next i End Sub
- 2
写输出下面程序的运行结果_ _。 Dim a() As Integer Private Sub Command1_Click() ReDim a(1 To 5) For i = 1 To 5 a(i) = i Next i ReDim a(1 To 10) For i = 6 To 10 a(i) = 2 * i Next i For i = 1 To 10 Print a(i); Next i End Sub
- 3
Private Sub Command1_Click() Dim t(4) as Integer For i=1 to 4 t(i)= i+1 Next i End Sub 上面程序运行后,t(1)的值是______
- 4
执行以下程序，单击命令按钮后，输出结果是______。 Private Sub Command1_Click() Dim a(5) As Integer Dim b For i = 1 To 5 a(i) = i*i Next i For Each b In a Print b; Next b End Sub