vb 生成随机数（急!）

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/13 16:40:41

vb 生成随机数（急!）
要分别生成3个1到39的整数
其中要去掉4,18,38等数
如何做?

Option Explicit
Private Sub Command1_Click()
Randomize
Dim i As Integer,j As Integer
Do
j = Int(Rnd * 39 + 1)
If j 4 And j 18 And j 38 Then
Print j
i = i + 1
If i >= 3 Then Exit Do
End If
Loop
End Su

vb 生成随机数（急!） vb中如何生成不同的随机数 VB生成不重复的随机数用vb怎么生成3位随机数用vb怎样生成10个不重复的（1到10）随机数? 请问vb中有没有生成随机数的函数? VB随机数260-500范围内生成随即数! 用vb如何生成0-100之间的随机数 VB 编写程序,生成10个无重复数（即互不相等）的两位随机数 Matlab生成随机数求助!如何生成基于某一模型的随机数组（急求）用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 VB随机数怎么做