早教吧 育儿知识 作业答案 考试题库 百科 知识分享

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

题目详情
帮我完成3道VB题啊啊啊!全部回答正确给40分!
第一题:利用随机函数产生[100,200]的随机整数20个,输出其中的奇数并打印其平均值.
第二题:输入10个数,分别求出其中奇数的和,偶数的和.
第三题:输入10个数,求出最大数和最小数.
全部都用for语句完成,
说废话的就不要回答了!
▼优质解答
答案和解析
第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
看了帮我完成3道VB题啊啊啊!全部...的网友还看了以下:

”数建奇功”出自哪篇文言文?1”数建奇功”与<<木兰诗>>相照应的句子?2”数建奇功”出自哪篇文言  2020-05-19 …

日出时太阳偏北为什么我确信我观察无误.我家在北回归线以北,但是每天日出时太阳会从偏北的方向照进屋子  2020-06-15 …

《朝花夕拾》我常想在纷扰中寻出一点闲静来,然而委实不容易.目前是这么离奇,心里是这么芜杂.纷扰闲静  2020-06-21 …

Java编写一程序编写一程序,实现下面功能.(1)随机产生200个三位的正整数,按每行10个数输出  2020-07-17 …

下列文学常识表述不正确的一项是()A.唐传奇的出现,标志着我国古典小说的成熟,著名的传奇有元稹的《  2020-07-29 …

下列说法不正确的一项是()A.唐传奇的出现,标志着我国古典小说的成熟,著名的传奇有李朝威的《莺莺传  2020-07-29 …

下列文学常识表述不正确的一项是A.唐传奇的出现,标志着我国古典小说的成熟,著名的传奇有元稹的《莺莺  2020-07-29 …

阅读下面的文字,完成下题。烟囱里的兄弟安勇一天晚上,我打开吸油烟机准备炒菜,忽然听到一阵奇怪的声音。  2020-11-10 …

四、给加点字词选择正确的解释。(填序号)确:①坚固,固定;②符合事实的,真实。1.做科学实验一定要精  2021-01-01 …

四、给加点字词选择正确的解释。(填序号)确:①坚固,固定;②符合事实的,真实。1.做科学实验一定要精  2021-01-01 …