下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数,请补充完整此程序:
Private Sub Form_Click()
sum=0
For i=1 To 1000
If______Then
sum=sum+I
End If
Next I
MsgBox sum
End Sub
第1题:
使用窗体的Click事件在窗体输出1~1000之间能同时被5和7整除的整数,如图所示,
请填空
Private Sub Form_Click()
Dim i As Integer
Dim Sum As Integer
Cls
For i=1 To 1000
If 【 】 Then
Sum=Sum+i
Printi
End If
Next i
Print"Sum="&Sum
End Sub
第2题:
下面程序的功能是:输出100以内能被3整除且个位数为9的所有整数,请填空。
第3题:
下面程序的功能是计算并输出100以内能被4和7同时整除的所有整数,请填空。 Private Sub Form_Click() Dim i% For i = 28 To 100 If i Mod 4=0_____i Mod 7=0 Then Print i Next i End Sub
第4题:
现有以下程序: Private Sub Command1 Click( ) c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 Else If i Mod 7=0 Then c2=c2+1 End If Next i Print c1+c2 End Sub 此程序运行后输出的是在1~100范围内( )。
A.同时能被3和7整除的整数个数
B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)
C.能被3整除,而不能被7整除的整数个数
D.能被7整除,而不能被3整除的整数个数
第5题:
当用户从键盘输入整数20时,以下程序 s=int(input(“请输入一个整数:”)) if s%3==0 or s%5==0: print(“这个整数能被3整除或者能被5整除。”) 的输出结果是:()
A.这个整数能被3整除或者能被5整除。
B.什么都不输出。
C.这个整除能被3整除。
D.这个整除能被5整除。