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

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/29 01:54:06

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 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 返回值

vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数 VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现 vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中的最大值与最小值 VB的:用随机函数产生n个三位整数,用选择法排序后将它们的值从大到小输出,n=204! VB利用随机函数产生30个[3,99]整数,打印输出其中的素数（要求用数组存放） vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该 vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 VB随机产生10个10到100的整数,每行输出10个代码怎么写? VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? vb问题利用随机函数产生80个10～99之间的随机整数, VB 随机产生35个 20到80的随机整数用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计