在VB中,产生100个不大于300的随机整数并显示在列表框中

来源：百度知道编辑：UC知道时间：2024/06/30 15:41:34

要求界面上有两个列表框，两个命令按钮，单击命令按钮“生成”，产生100个不大于300的随机整数并显示在列表框1中;单击命令按钮“显示”，在列表框2中显示上述随机整数中前20个偶数。我已经写出前一部分代码：Dim a(100)

Private Sub Command1_Click()
For i = 1 To 100
a(i) = Int((100 * Rnd + 200))
List1.AddItem a(i)
Next i
End Sub
“求单击命令按钮“显示”，在列表框2中显示上述随机整数中前20个偶数。”的代码。
答案正确，被采纳将另有积分奖励。

Dim a(100) As Integer
Private Sub Command1_Click()
For i = 1 To 100
a(i) = Int((100 * Rnd + 200))
List1.AddItem a(i)
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim l As Integer
Dim k As Integer
k = 0
For i = 0 To List1.ListCount - 1
l = List1.List(i)
If l Mod 2 = 0 Then
If k < 20 Then
List2.AddItem l
k = k + 1
End If
End If
Next i
End Sub

分给的太少了
你的这句话写错了吧？

a(i) = Int((100 * Rnd + 200))
这回产生一个小于300的随机数？？？是大于200，小于300的数字啊

产生小于300的数，可以这么写
a(i) = Int( Rnd * 300)

在VB 中怎样实现产生随机数在VB中产生几组全为0，1的数，每组数为10个一道数学题:在不大于200的全体整数中,与2,3都不互质且不是质数的有______个. 在100×100的方格表里每个方格中填一个整数，要求相邻两整数之差不大于20，求证至少有3个方格中的数相同。随机产生10个[10，100]之间的数存放在数组中，求数组中最大元素和最小元素!VB的程序设计会的万分感谢！ VB中利用随机函数产生20个50～100范围内的随机数，用debug.write（）将其显示在输出窗口中 vb 随机产生10个[10~100]之间整数,按升序输出到label1控件中 VB中设m=1*2*3*4……*n,求m不大于200000时最大的n值的编程! 怎样可以用随机函数产生不大于100的各不相同的随机整数？？？ VB问题：随机产生10个任意的二位正整数存放在一维数组中