如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来
人气:470 ℃ 时间:2020-06-21 03:47:57
解答
随机数没有要求吗?那就直接用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
推荐
- 根据句子含义填入正确的单词,单词的第一个字母已给出
- 已知m2-mn=20,mn-n2=-8,求m2-n2+2和m2-2mn+n2的值.
- RT,寒假生物作业要求要做一个概念图,就像那种分支图一样的,2 7 4 5 2 6 6 8 6 @ q q .c o m,请与2.16号前发送附件,
- 证明:若a,b,c属R,则a+1/b,b+1/c,c+1/a中至少有一个不小于2
- 变形和变型有什么区别?
- 有谁知道硬脂酸在橡胶硫化有什么作用?具体作用机理是什么?
- v表示体积,那么s和h各表示什么?
- 五分之四是十二分之五的几分之几?六分之五十十六分之五的几倍
猜你喜欢