如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/24 12:02:05
如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来如何

如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来
如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来

如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来
随机数没有要求吗?那就直接用rnd了,1之间的数:
Private Sub Command1_Click()
Dim s As String,sum As Single
Randomize
For I = 1 To 8
t = Rnd
s = s & t & "+"
sum = sum + t
Next
Print Left(s,Len(s) - 1); "=" & sum
End Sub