VB随机产生20个正整数并使奇数偶数在不同行显示

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/12 06:19:47

'窗体放一个按钮Command1
Private Sub Command1_Click()
Randomize '初始化随机数生成器
Dim JiShuHang As String '奇数行
Dim OuShuHang As String '偶数行
Dim a As Integer
For i = 1 To 20
a = Int(100 * Rnd + 1) '生成1-100的随机整数
If a Mod 2 = 1 Then '为奇数
JiShuHang = JiShuHang & a & " "
Else '为偶数
OuShuHang = OuShuHang & a & " "
End If
Next
Cls '清除窗体
Print "奇数行：" & JiShuHang
Print "偶数行：" & OuShuHang
End Su

VB随机产生20个正整数并使奇数偶数在不同行显示随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列用vb编写 VB计算：随机产生20个1～100的正整数放入数组中,显示产生的数,并求出其最大值 VB:用键盘输入10个正整数,先显示所有奇数,再显示所有偶数 VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和. VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有；奇数有；偶数共个；奇数共个 vb 随机20个两位数,奇数位奇数,偶数位偶数,相邻两位求和. vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b) 随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果 vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该 VB编程：利用随机函数Rnd()生成20个在1~100之间的各不相同的正整数,并在窗体上显