帮我完成3道VB题啊啊啊!全部回答正确给40分!第一题:利用随机函数产生[100,200]的随机整数20个,输出其中的奇数并打印其平均值.第二题:输入10个数,分别求出其中奇数的和,偶数的和.第三题:输入

Question

帮我完成3道VB题啊啊啊!全部回答正确给40分!
第一题:利用随机函数产生[100,200]的随机整数20个,输出其中的奇数并打印其平均值.
第二题:输入10个数,分别求出其中奇数的和,偶数的和.
第三题:输入10个数,求出最大数和最小数.
全部都用for语句完成,
说废话的就不要回答了!

Answer 1

第1个题：
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim t As Integer '奇数个数
Dim s As Integer '奇数合计
Dim m As Double '奇数平均
For i = 1 To 20
Randomize
j = Int(101 * Rnd + 100)
If j Mod 2 = 1 Then '奇数
Print j
s = s + j
t = t + 1
End If
Next
m = s / t
Print "奇数平均：" & m
End Sub
第2个题
Private Sub Command2_Click()
Dim i As Long
Dim j As Long
Dim s1 As Long '偶数合计
Dim s2 As Long '奇数合计
For i = 1 To 10
j = Val(InputBox("", "输入第" & i & "个数"))
If j Mod 2 = 0 Then
s1 = s1 + j
Else
s2 = s2 + j
End If
Next
Print "偶数合计：" & s1
Print "奇数合计：" & s2
End Sub
第3个题：
Private Sub Command3_Click()
Dim i As Long
Dim j As Long
Dim max As Long '最大
Dim min As Long '最小
For i = 1 To 10
j = Val(InputBox("", "输入第" & i & "个数"))
If i = 1 Then
max = j
min = j
End If
If max < j Then
max = j
End If
If min > j Then
max = j
End If
Next
Print "最大数：" & max
Print "最小数：" & min
End Sub