统计随机产生的20个两位正整数中偶数和奇数的个数及各自的总和,编一个VB程序代码
来源:百度知道 编辑:UC知道 时间:2024/05/28 13:20:18
Dim num(20) As Integer
Private Sub Command1_Click()
Dim i As Integer
Dim num_o As Integer '奇数个数
Dim num_e As Integer '偶数个数
Dim sum_o As Integer
Dim sum_e As Integer
num_o = 0
num_e = 0
sum_o = 0
sum_e = 0
For i = 0 To 19
If num(i) Mod 2 Then
num_o = num_o + 1
sum_o = sum_o + num(i)
Text1.Text = Text1.Text + CStr(num(i)) + vbCrLf
Else
num_e = num_e + 1
sum_e = sum_e + num(i)
Text2.Text = Text2.Text + CStr(num(i)) + vbCrLf
End If
Next i
Text1.Text = Text1.Text + CStr(num_o) + "个奇数" + vbCrLf
Text1.Text = Text1.Text + "奇数和:" + CStr(sum_o) + vbCrLf
Text2.Text = Text2.Text + CStr(num_e) + "个偶数" + vbCrLf
Text2.Text = Text2.Text + "偶数和:" + CStr(sum_e) + vbCrLf