哪位高手会解VB程序的题，我这有几道小题，急需答案，考试用，多谢了，急急急！！！！

程序题（34）
输入一串字符，统计各字母出现的次数，请填空将程序补充完整
Private Sub Command1_Click()
Dim a(1 To 26) As Integer, c As String * 1
le = Len(Text1) '求字符串的长度
For I = 1 To le
c = UCase(______________________) '取一个字符，转换成大写
If c >= "A" And c <= "Z" Then
j = Asc(c) - 65 + 1 '将A~Z大写字母转换成1~26的下标
a(j) = a(j) + 1 '对应数组元素加1
End If
Next I
For j = 1 To 26 '输出字母及其出现的次数
If a(j) > 0 Then Picture1.Print " "; Chr$(j + 64); "="; a(j);
Next j
End Sub
程序题（36）
下面程序是输出如下矩阵，请填空
1 2 3
2 3 4
3 4 5
Private Sub Form_click()
For i = 1 To 3
For j = 1 To 3
Print _______________;
Next
Print
Next
End Sub
程序题（37）
下面程序是求0-20之间的奇数和，请填空
Private Sub Form_click()
S = 0
A = 1
_______________
S = S + A
A = A + 2
Loop
Print "S=" + Str(S)
End Sub
程序题（38）
下列程序的功能是通过字符串变量操作竖向显示“程序设计”，请填空
Private Sub Form_click()
Cls
xy = "程序设计"
n = 1
Do While n < 5
Print _______________________
n = n + 1
Loop
Print
End Sub
程序题（39）
下列程序运行后文本框中显示的内容是_____________ 。
Private Sub Command1_Click()
a = ""
For n = 1 To 100
If n Mod 37 = 0 Then
a = a & Trim(Str(n))
End If
Next
Text1.Text = a
End Sub
程序题（40）
下列程序的输出结果_______________。
Function M(x, y As Integer) As Integer
M = x + 10 * y
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1: b = 2
Print M(a + b, b - a)
End Sub
程序题（41）
Private Sub Command1_Click()
Text1 = "abcdef"
Text2 = "cde"
i = InStr(Text1, Text2)
k = i + Len(Text2)
Print i,k
End Sub
窗体上显示的输出结果为________
程序题（42）
程序在窗体上的输出结果为 “优秀”，请填空。
Private Sub Form_click()
x = 5
Select Case x
Case _____
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
Case Else
Print "不通过"
End Select
End Sub
程序题（43）
以下程序输出结果为“####”,请填空;
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer
a = 1: b = 2: c = 3
If a =______ Then
Print "#####"
Else
Print "*****"
End If
End Sub
程序题（44）
以下程序输出结果为“*****”,请填空;
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer
a = 1: b = 2: c = 3
If a =b-c Then
Print "#####"
______
Print "*****"
End If
End Sub
程序题（45）
请把程序补充完整:
Private Sub Command1_Click()
For j = 1 To 4
a = a + 1
______
Print a+j
End Sub
程序题（46）
执行后，s的值为10，请填空
Private Sub form_Click()
s = 0
For i = 1 ______
s = s + i
Next i
Print s
End Sub

举报该文章