用vb:输入10个整数,求出它们的总和与积,并打印其中既能被5整除又能被3整除的数
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/14 06:33:29
用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
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
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个)