网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
使用窗体的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
参考答案
更多 “ 使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，请填空Private Sub Form_Click()Dim i As IntegerDim Sum As IntegerClsFor i=1 To 1000If 【 】 ThenSum=Sum+iPrintiEnd IfNext iPrintPrint"Sum="SumEnd Sub ” 相关考题
考题
在窗体上画一个名称为 \Command1\ 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a As StringA="123456789"For i=1 To 5Print Space（6-i）;Mid $ （a,______ ,2*i-1）Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。
考题
在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程Private Sub Command1 Click()Dim a As Stringa=______For i = 1 To 5Print Space(6-i)；Mid$(a， 6-i， 2*i-1)Next iEnd Sub程序运行后，单击命令按钮，要求窗体上显示的输出结果为5456345672345678123456789请填空。
考题
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+iEnd IfNext iMsgBox sumEnd Sub
考题
在窗体上添加十个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()sum＝0For i＝3 To 7sum＝i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。
考题
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Command1 _Click( )For i = 1 To 20x=Int(【 】*200+ 100)If【 】 = 0 ThenPrint xS = S +【 】End IfNext IPrint "Sum = "; SEnd Sub
考题
下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数，请补充完整此程序：Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+IEnd IfNext IMsgBox sumEnd Sub
考题
现有以下程序： 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整除的整数个数
考题
（25）若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为A）Form_Click() Command1_Click()B）Frm1_Click() Command1_Click()C）Form_Click() Cmd1_Click()D) Frm1_Click() Cmd1_Click()
考题
下面程序的功能是计算并输出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
热门标签
最新试卷
