VB编个简单程序

来源：百度知道 编辑：UC知道 时间：2024/05/14 17:35:41
* 编写程序：
* 利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，
* 统计其中奇数和偶数的个数。

Private Sub Command1_Click()
Randomize
Dim js As Integer
Dim os As Integer

Dim a(19) As Integer
For i = 0 To 19
a(i) = Int(Rnd() * 90)+10
If a(i) Mod 2 = 0 Then os = os + 1 Else js = js + 1
Next i

Print "奇数的个数"; js
Print "偶数的个数"; os
End Sub

Private Sub Form_Click()
Me.Cls
Print "20个随机数为："
Dim a(1 To 20)
For i = 1 To 20
a(i) = Int(Rnd * 100 + 10)
Print a(i);
If a(i) Mod 2 = 0 Then
m = m + 1
Else
n = n + 1
End If
Next
Print
Print "偶数的个数为" & m & "奇数的个数为" & n
End Sub

dim a(1 to 20) as integer
dim i as integer
dim m as integer
dim n as integer

for i = 1 to 20
a(i) = int(rnd()*90 + 10)
next i

for i = 1 to 20

if (a(i) mod 2) = 0 then
m = m + 1
else
n = n + 1
end if

next i

print "偶数个数：&q