问题标题：
如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来
问题描述：
如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来
刘玠回答：
随机数没有要求吗?那就直接用rnd了,1之间的数：
PrivateSubCommand1_Click()
DimsAsString,sumAsSingle
Randomize
ForI=1To8
t=Rnd
s=s&t&"+"
sum=sum+t
Next
PrintLeft(s,Len(s)-1);"="&sum
EndSub
点击显示
数学推荐
热门数学推荐