第1个回答 2007-10-18
1.StrReverse("abcd")
2.
Private Sub Command1_Click()
Dim a%(1 To 20), i%, max%, min%, pjs%
For i = 1 To 20
a(i) = Int(51 * Rnd + 50) '得到20个随机数放入数组a
Next
min = 100: max = 0
For i = 1 To 20
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
pjs = pjs + a(i)
Next
pjs = pjs / 20
Print "最大的数:"; max
Print "最小的数:"; min
Print "平均数:"; pjs
End Sub