vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数

题目

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("请输入取值范...