求VB大神帮帮忙，解一下两个编程题！在线等，急！拜托了，谢谢(Ԏ>ω<*Ԏ) 1、请编写程序，产生

第一题：  

Dim A As String, B As String, C As Integer, D As String
Private Sub Command1_Click()
A = ""
B = ""
C = 0
D = ""
For i = 1 To 10 Step 1
    B = Int((100 - 10 + 1) * Rnd + 10)
    A = A & "," & B
    If B Mod 3 = 0 Then
       C = C + 1
       D = D & "," & Str(B)
    End If
Next
A = Mid(A, 2)
D = Mid(D, 2)
Print "随机的10个数为：" & A
Print "能被3整除的数为：" & D
print "能被3整除的个数为:" & C
End Sub

第二题：

Dim str As String
Private Sub Command1_Click()
Form1.Cls
str = InputBox(请输入五分制成绩等级, 请输入五分制成绩等级, "A")
If str = "A" Then
   Print "大于等于90分"
ElseIf str = "B" Then
   Print "80分到90分之间"
ElseIf str = "C" Then
   Print "70分到80分之间"
ElseIf str = "D" Then
    Print "60分到80分之间"
Else: str = E
    Print "小于60分"
End If
End Sub

'第一题。复制过去代码，单击窗口即可运行。供参考。朋友。

Private Sub Form_click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 91 + 10)
Next i
For i = 1 To 10
If a(i) Mod 3 = 0 Then
Print a(i)
n = n + 1
End If
Next i
Print "能被3整除的数共有"; n; "个"
End Sub

‘第二题
Private Sub Form_click()
Dim x As String
x = InputBox("请输入abcde等级之一")
Select Case x
Case "a": Print "大于等于90分"
Case "b": Print "80分到90分之间"
Case "c": Print "70分到80分之间"
Case "d": Print "60分到70分之间"
Case "e": Print "小于60分"
End Select
End Sub