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

Question

求VB大神帮帮忙，解一下两个编程题！在线等，急！拜托了，谢谢(ฅ>ω<*ฅ)
1、请编写程序，产生10个[10，100]之间的随机整数，输出其中是3的倍数的整数，并统计它们的个数。
2、使用inputbox()从键盘输入一个五分制成绩等级(A,B,C,D,E)，根据该等级输出对应的百分制等级。如：从键盘上输入‘A‘，在窗体上打印对应的百分制成绩“大于等于90分”。等级对应列表如下：
‘A‘~大于等于90分
‘B‘~80分到90分之间
‘C‘~70分到80分之间
‘D‘~60分到70分之间
‘E‘~小于60分

Answer 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

Answer 2

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

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本回答被网友采纳