题目内容
（请给出正确答案）
使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，
.jpg)
请填空
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
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，请填空Private Sub F”相关的问题
Private Sub Commandl_Click()
Dim x As Integer
x=InputBox("请输入x的值")
Select Case x
Case 1,2,4,6
Debug.Print"A"
Case 5,7 To 9
Debug.Print"B"
Case Is=10
Debug.Print"C"
CaSe ElSe
Debug.Print"D"
End Select
End Sub
程序执行后单击命令按钮，在弹出的输入框中输入8，则立即窗口上显示( )。
A．A B．B C．C D．D
B．窗体最多有5个节,报表最多有7个节
C．报表有标签类型,而窗体无该类型
D．窗体可以输入和编辑数据,而报表可以输出数据
B．1，6，5，7，
C．4，7，5，2，
D．1，6，2，1
A．列表框和组合框都只能包含一列数据
B．可以在组合框中输入新值，而列表框不能
C．可以在列表框中输入新值，而组合框不能
D．在列表框和组合框中均能输入新值
Private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=_______
Loop While m<=39
MsgBox“Sum”＆Sum ．
End Sub
为保证程序正确完成上述功能，空白处应填人的语句是
A．m+1
B．m+2
C．t+1
D．t+2
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
在*运算下封闭。
