用VB编写输入数据范围,随机产生3个指定范围内的随机整数,求三个整数平方根之和,保留小数点后4位

题目

用VB编写输入数据范围,随机产生3个指定范围内的随机整数,求三个整数平方根之和,保留小数点后4位
结果在picture中显示

答案

Private Sub Command1_Click()
a = InputBox("输入随机数的下界")
b = InputBox("输入随机数的上界")
For i = 1 To 3
Randomize
c = Int(Rnd * (b - a + 1) + a)
Picture1.Print c
m = m + Sqr(c)
Next
Picture1.Print Format(m, "0.0000")
End Sub