第一题:
Dim s As String
s = InputBox("输入一个字符串：", "输入", "abcd")
MsgBox StrReverse(s)
第二题:
Dim n(1 To 20) As Integer, i As Integer
Dim Max As Integer, Min As Integer, s As Long
Randomize: Max = -32767: Min = 32767: s = 0
For i = 1 To 20
n(i) = Int(51 * Rnd + 50)
If n(i) > Max Then Max = n(i)
If n(i) < Min Then Min = n(i)
s = s + n(i)
Print n(i)
Next i
s = s / 20
MsgBox "最大值：" & Max & "，最小值：" & Min & "，平均值：" & s & "。"
内容全部来源于网络收集，如有侵权，请联系网站删除！