编制子过程,通过调用子过程:⑴产生30个1~100之间的随机数;⑵统计并输出其中奇数和偶数的个数.别忘拉调用子涵数

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 02:20:52
编制子过程,通过调用子过程:⑴产生30个1~100之间的随机数;⑵统计并输出其中奇数和偶数的个数.别忘拉调用子涵数

编制子过程,通过调用子过程:⑴产生30个1~100之间的随机数;⑵统计并输出其中奇数和偶数的个数.别忘拉调用子涵数
编制子过程,通过调用子过程:⑴产生30个1~100之间的随机数;⑵统计并输出其中奇数和偶数的个数.
别忘拉调用子涵数

编制子过程,通过调用子过程:⑴产生30个1~100之间的随机数;⑵统计并输出其中奇数和偶数的个数.别忘拉调用子涵数
Private Function fun(a As Integer,b as integer) As Integer
Dim i As Integer,Dim a(1 To 30) As Integer,s as integer,m as integer
Randomize
For i = 1 To 30
a(i) = Int(100 * Rnd)
if a(i)/2=0 then
s=s+1
else
m =m+1
end if
a=s,b=m
End Function
Private Sub Command1_Click()
call function(a,b)
end sub