作业帮 > 综合 > 作业

用vb:输入10个整数,求出它们的总和与积,并打印其中既能被5整除又能被3整除的数

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/14 06:33:29
用vb:输入10个整数,求出它们的总和与积,并打印其中既能被5整除又能被3整除的数
用vb:输入10个整数,求出它们的总和与积,并打印其中既能被5整除又能被3整除的数
Private Sub Command1_Click()
Dim i,a(10),sum,ji
ji = 1
For i = 1 To 10
a(i) = Int(Val(InputBox("输入第" & i & "个数")))
Print a(i);
sum = sum + a(i)
ji = ji * a(i)
Next
Print vbCrLf & "总和=" & sum
Print "积=" & ji
Print "能被3和5整除的有:"
For i = 1 To 10
If a(i) Mod 5 + a(i) Mod 3 = 0 Then Print a(i);
Next
Print
End Su