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 = InputBox("请输入取值范围的下限a")b = InputBox("请输入取值范围的上限b")For i = 1 To nCall sj(x,a,b)Print x;Next iEnd Sub为什么运行出来的都是零

问题描述:

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
为什么运行出来的都是零

function sj(i%, a%, b%) as longDim x%x = Int(Rnd * (b - a + 1)) + asj=xEnd functionPrivate Sub Command1_Click()Dim n%, a%, b%, i%, x%,r%n = InputBox("请输入随机整数的个数n")a = InputBox("请输入取值范...