vb题 随机生成10个两位整数，求出他们的总和及平均数

Question

求助，基础一点的编程啊

Answer 1

 

 

 

Private Sub Command1_Click()

Dim tt(100), s(10), temp1, temp2, temp3, i

Randomize '随机,不使用时,rnd()函数是有规律的

 

For i = 1 To 100

tt(i) = i '用tt数组存放100个数,不直接用S数组是为了避免出现重复的数字

Next i

 

For i = 1 To 10

1 s(i) = tt(Int(Rnd() * 99 + 10)) '循环10次得到数组s,存放10个随机数

If s(i) <> "" Then '如果得到的s数组值不为空

temp3 = temp3 + s(i) '把10个数相加

tt(s(i)) = "" '把tt数组已取出的值赋予空值

Else

GoTo 1 '如果取出的值为空,则跳转到1,重新取值

End If

Next i

 

temp3 = temp3 / 10 '用10个数相加的和除以10,求出平均数

'弹出对话框,显示10个随机数

MsgBox s(1) & Chr(13) & s(2) & Chr(13) & s(3) & Chr(13) & s(4) _

& Chr(13) & s(5) & Chr(13) & s(6) & Chr(13) _

& s(7) & Chr(13) & s(8) & Chr(13) & s(9) & Chr(13) & s(10)

 

 

temp2 = 100 'temp2用于存放最小值,需设置一个最大值,否则temp2无法得到数据

For i = 1 To 10

If s(i) >= temp1 Then temp1 = s(i) '如果当前值大于temp1,则temp1取当前值

If s(i) <= temp2 Then temp2 = s(i) '如果当前值小于temp2,则temp2取当前值

Next i

 

For i = 1 To 10 '求总和

Sum = Sum + s(i)

Next i

 

'弹出对话框,显示最大值,最小值,平均值,总和

MsgBox "最大值:" & temp1 & Chr(13) & "最小值:" & temp2 & Chr(13) & "平均值:" & temp3 & Chr(13) & "总和:" & Sum

End Sub

Answer 2

Private Sub command1_click()
Dim a As Integer
Randomize Timer
For i = 1 To 10
a = Int(Rnd * 99) + 10
Print a;
s = s + a
Next
Print vbCrLf & "总和=" & s
Print "平均数=" & s / 10
End Sub

需要最大最小值就这样

Private Sub command1_click()
Dim a As Integer
Dim min As Integer, max
min = 100
Randomize Timer
For i = 1 To 10
a = Int(Rnd * 90) + 10
Print a;
If a > max Then max = a
If a < min Then min = a
s = s + a
Next
Print vbCrLf & "总和=" & s
Print "平均数=" & s / 10
Print "最大值：" & max
Print "最小值：" & min
End Sub

Answer 3

private sub command1_click()
dim a(10)
for i=1 to 10
a(i)=int(rnd*90)+10
print a(i);
s=s+a(i)
next
print
print "总和=" & s
print "平均数=" & s/10
end sub本回答被提问者和网友采纳