annadai
幼苗
共回答了13个问题采纳率:84.6% 举报
function sj(i%, a%, b%) as long
Dim x%
x = Int(Rnd * (b - a + 1)) + a
sj=x
End function
Private Sub Command1_Click()
Dim n%, a%, b%, i%, x%,r%
n = InputBox("请输入随机整数的个数n")
a = InputBox("请输入取值范围的下限a")
b = InputBox("请输入取值范围的上限b")
For i = 1 To n
r = sj(x, a, b)
Print r;
Next i
End Sub
注意变量的适用范围,sj 里的 x 和 Command1_Click 的 x 不是同一个变量,要么设置成全局变量,要么像上面那样,用 Function 返回值
1年前
5