Question

ＶＢ高手速度过来，求和代码，平均值，最高分，最低分代码分别是什么？急急急！高分悬赏！

高手过来！高额悬赏！！！

Answer 1

你是要自己输入数字吧？要的话就在楼上写的代码a(i) = Int(Rnd * 50) + 1 '随机生成 1到50的整数里改为a(i)=val(inputbox("请输入数字"，)

Answer 2

Private Sub Form_Click() Dim i As Integer Dim a(1 To 10) As Integer Dim max As Integer, min As Integer Randomize For i = 1 To 10 '以10个数为例 a(i) = Int(Rnd * 50) + 1 '随机生成 1到50的整数 Sum = Sum + a(i) '求和 Print a(i); '打印这10个数 Next max = a(1) min = a(1) For i = 2 To 10 max = IIf(max < a(i), a(i), max) '求最大值 min = IIf(min > a(i), a(i), min) '求最小值 Next Print Print "和为" & Sum Print "均值为" & Int(Sum / 10) '求平均值 Print "最大值为" & max Print "最小值为" & min End Sub