作业帮vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数Sub sj(i%,a%,b%)Dim x%x = Int(Rnd * (b - a + 1)) + aEnd SubPrivate Sub Command1_Click()Dim n%,a%,b%,i%,x%n = InputBox("请输入随机整数的个数n")a = InputBo
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/08 07:15:09
vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数Sub sj(i%,a%,b%)Dim x%x = Int(Rnd * (b - a + 1)) + aEnd SubPrivate Sub Command1_Click()Dim n%,a%,b%,i%,x%n = InputBox("请输入随机整数的个数n")a = InputBo
vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数
Sub sj(i%,a%,b%)
Dim x%
x = Int(Rnd * (b - a + 1)) + a
End Sub
Private Sub Command1_Click()
Dim n%,a%,b%,i%,x%
n = InputBox("请输入随机整数的个数n")
a = InputBox("请输入取值范围的下限a")
b = InputBox("请输入取值范围的上限b")
For i = 1 To n
Call sj(x,a,b)
Print x;
Next i
End Sub
为什么运行出来的都是零
vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数Sub sj(i%,a%,b%)Dim x%x = Int(Rnd * (b - a + 1)) + aEnd SubPrivate Sub Command1_Click()Dim n%,a%,b%,i%,x%n = InputBox("请输入随机整数的个数n")a = InputBo
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 返回值