VB:随机生成20个2位随机奇数和偶数,分2行显示:这20个随机数中偶数有 ;奇数有 ;偶数共 个;奇数共 个
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/10/05 18:24:37
VB:随机生成20个2位随机奇数和偶数,分2行显示:这20个随机数中偶数有 ;奇数有 ;偶数共 个;奇数共 个
是不是这样:(fomr的autodraw属性要设定为true)
Private Sub Command1_Click()
Dim i As Integer
Dim RndNUm As Integer '定义随机数
Dim N1 As Integer '偶数个数
Dim N2 As Integer '奇数个数
N1 = 0
N2 = 0
Randomize '产生随机系列,保证每次运行不同
For i = 1 To 20
RndNUm = 10 + 89 * Rnd() '产生10-99随机数
Print RndNUm & " ";
If i = 10 Then Print "" '第11个换行
If RndNUm Mod 2 = 0 Then '如果是偶数(被2整除)
N1 = N1 + 1
Else
N2 = N2 + 1 '奇数+1
End If
Next i
Print ""
Print "偶数有:" & N1 & "个"
Print "奇数有:" & N2 & "个"
End Su
Private Sub Command1_Click()
Dim i As Integer
Dim RndNUm As Integer '定义随机数
Dim N1 As Integer '偶数个数
Dim N2 As Integer '奇数个数
N1 = 0
N2 = 0
Randomize '产生随机系列,保证每次运行不同
For i = 1 To 20
RndNUm = 10 + 89 * Rnd() '产生10-99随机数
Print RndNUm & " ";
If i = 10 Then Print "" '第11个换行
If RndNUm Mod 2 = 0 Then '如果是偶数(被2整除)
N1 = N1 + 1
Else
N2 = N2 + 1 '奇数+1
End If
Next i
Print ""
Print "偶数有:" & N1 & "个"
Print "奇数有:" & N2 & "个"
End Su
VB:随机生成20个2位随机奇数和偶数,分2行显示:这20个随机数中偶数有 ;奇数有 ;偶数共 个;奇数共 个
vb 随机20个两位数,奇数位奇数,偶数位偶数,相邻两位求和.
VB随机产生20个正整数并使奇数偶数在不同行显示
vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b)
VB程序设计,输入20个数字,显示其中的奇数个数和偶数个数.
6. 随机生成100个整型数存放在temp数组中,将这100个数中的奇数下标位置上的奇数和偶数下标位置上的偶数分
vb程序中 输出10个[10,99]范围内随机整数用“生成”按钮,用“统计”按钮分别统计其中奇数和与偶数和
第一题 用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.
100中,奇数有( )个,偶数有( )个.
在20~200的整数中,有多少个偶数?有多少个奇数?偶数之和和奇数之和谁大?大多少?
vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数.
VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和.