请用VB,有一组数组（5,9,10,11,15,24）如何判断这组数的奇偶比,如奇偶比为4:2就输出这组数

请用VB,有一组数组（5,9,10,11,15,24）如何判断这组数的奇偶比,如奇偶比为4:2就输出这组数
输出在txt文本框内,并以txt的形式保存.请把保存的步骤写的详细的. 有云天空 1年前他留下的回答 已收到1个回答

fanny_fsc 网友

该名网友总共回答了19个问题，此问答他的回答如下：采纳率：94.7%

Private Sub Command1_Click()
Dim a(5) As Integer
Dim Jishu As Integer
Dim Oushu As Integer
a(0) = 5
a(1) = 9
a(2) = 10
a(3) = 11
a(4) = 15
a(5) = 24
For i = 0 To 5
If a(i) Mod 2 = 0 Then
Oushu = Oushu + 1
Else
Jishu = Jishu + 1
End If
Next
Open App.Path + "aaa.txt" For Append As #1
Print #1,"Oushu=" & Oushu
Print #1,"Jishu=" & Jishu
Close #1
End Su

1年前他留下的回答

4

　　以上就是小编为大家介绍的请用VB,有一组数组（5,9,10,11,15,24）如何判断这组数的奇偶比,如奇偶比为4:2就输出这组数 的全部内容，如果大家还对相关的内容感兴趣，请持续关注天堂壮学习网！