作业帮 > 综合 > 作业

急 随机产生3个1到10之间的数并将三数的乘积输出

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/02 08:09:05
急 随机产生3个1到10之间的数并将三数的乘积输出
dim i,a,sum as integer
sum=1
randomize
for i=1 to 3
a=int(rnd*10+1)
print a,
sum=sum*a
next
print
print sum
Private Sub Command1_Click()
Dim a, b, c As Integer
Randomize
a = Int(Rnd * 9) + 1
Randomize
b = Int(Rnd * 9) + 1
Randomize
c = Int(Rnd * 9) + 1
Debug.Print a & "x" & b & "x" & c & "=" & a * b * c
End Su