顺序查找的题

来源：百度知道 编辑：UC知道 时间：2024/07/05 02:45:26
用英文VB编程：
随机生成10个数（在0到100之间的整数）并输出；输出偶数项及他们的和；输出奇数项及他们的平均数；输出其中的最大数及位置号（顺序查找）。

要编好的现成程序！！

在窗体上加入控件command1，复制下面代码，运行即可。

Option Explicit

Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i As Integer, js As Integer, os As Integer, Max As Integer, mIndex As Integer
Dim jsIndex As Integer
Randomize
Cls
Print
For i = 1 To 10
a(i) = Int(Rnd * 99) + 1
Print a(i);
If Max < a(i) Then
Max = a(i)
mIndex = i
End If
Next

Print
Print
Print "偶数项有：";
For i = 1 To 10
If a(i) Mod 2 = 0 Then
Print a(i);
os = os + a(i)
End If
Next
Print
Print "偶数和=" & os

Print
Print "奇数项有：";
For i = 1 To 10
If (a(i) Mod 2) <> 0 Then
Print a(i);
js = js + a(i)
jsIndex = jsIndex + 1
End If
Next
Print
Print "奇数平均数=" & Format(js / jsIndex, "0.00")

Print
Print "最大值=" & Max & "，所在位置为第" & mIn