当前位置: > 如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来...
题目
如何产生八个随机数并相加求和以N1+N2+N3+N4+N5+N6+N7+N8=SUM的形式表示出来

提问时间:2020-08-04

答案
随机数没有要求吗?那就直接用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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.