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

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/06/13 07:06:59

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

从键盘上输入三十个整数,输出其中能被三整除的数,并求出所有被三整除的数之和 100---500的所有整数中,既能被3整除,又能被5整除的数有多少个? 急求vb编写程序,输入一个十进制数N(0 < N < 100),求出能被3整除且小于N的整数. VB 输出1～100中,既能被3整除,又能被7整除的数从键盘输入三十个整数,输出其中能被三整除的数,并求出所有能被三整除的数之和 VB编程随机产生50个10~200的整数,统计能被5整除的数的个数既能被3整除,又能被11整除的数 n为任一整数,用含n的式子表示既能被3整除,又能被2整除的数 VB程序求出各位数为6且能被3整除的三位数共有多少个? 通过do-while循环,计算1到1000之间能够被3整除的数的总和,并打印出来. VB编程穷举（100-200内既被3整除,又被5整除的数）既能被3整除,又能整除24的数有哪些?（5个）