Question

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

Answer 1

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