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/06/15 04:28:18
![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(](/uploads/image/z/8951336-8-6.jpg?t=vb%E7%94%A8function%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E4%BA%A7%E7%94%9F%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%E8%BF%87%E7%A8%8B%2C%E8%BE%93%E5%87%BAn%E4%B8%AA%E6%8C%87%E5%AE%9A%E8%8C%83%E5%9B%B4%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0Sub+sj%28i%25%2Ca%25%2Cb%25%29Dim+x%25x+%3D+Int%28Rnd+%2A+%28b+-+a+%2B+1%29%29+%2B+aEnd+SubPrivate+Sub+Command1_Click%28%29Dim+n%25%2Ca%25%2Cb%25%2Ci%25%2Cx%25n+%3D+InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%E7%9A%84%E4%B8%AA%E6%95%B0n%22%29a+%3D+InputBo)
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 返回值