如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(不要空格)，完善程序。
Private Sub Command1_Click()
Dim a(9) As String, i%
For i = 0 To 9
a(i) = Chr(Rnd * 26 + _________)
Next
End Sub
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