Question

用VB做一个产生随机数的程序

要求如下:
7个Text文本控件.
要实现前6个文本控件.随机产生1-33的整数.
第七个文本控件.随机产生1-16的整数.
麻烦回答者切记,随即产生.谢谢!

Answer 1

用VB做一个产生随机数的程序过程：

1 创建随机数窗体：

2 编写产生随机数的事件：

Private Sub Command1_Click()

Randomize '初始化随机数生成器

List1.AddItem Int((Rnd * 9) + 1)

End Sub

3 运行结果：

Answer 2

好了哦，看一下啊

Dim i, j, k As Single
For i = 0 To 5
Do
Text1(i) = Int(Rnd() * 32 + 1)
k = 0
For j = 0 To i - 1
If Text1(i) = Text1(j) Then k = k + 1
Next j
Loop While k > 0
Next i
do
Text1(6) = Int(Rnd() * 15 + 1)
n=0
For i = 0 To 5
if text1(6)=Text1(i) then n=n+1
next i
Loop While n > 0

Answer 3

问题的主要是产生一个范围内的随机数。可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Answer 4

Private Sub Form_Click()
Dim i, j, k As Single
For i = 0 To 5
Do
Text1(i) = Int(Rnd() * 32 + 1)
k = 0
For j = 0 To i - 1
If Text1(i) = Text1(j) Then k = k + 1
Next j
Loop While k > 0
Next i
Text1(6) = Int(Rnd() * 15 + 1)
End Sub