填空题
以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1 _Click( )
For i = 1 To 20
x=Int(
【11】
*200+ 100)
If
【12】
= 0 Then
Print x
S = S +
【13】
End If
Next I
Print "Sum = "; S
End Sub
【参考答案】
[11]Rnd [12]x Mod 5 [13]x
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
设有代码如下,当双击窗体内的某个位置时,命令按钮Command1和命令按钮Command2的标题分别为11、 【9】 。 Private SubForm_Load() Command1. Caption = 1 Command2. Caption = 2 End Sub Private Sub Form_Click() Command1. Caption = 11 End Sub Private Sub Form_DblC1ick( ) Command2. caption = 22 End Sub
点击查看答案&解析
填空题
单击窗体上的命令按钮Command1, 【10】 Private Sub Command1_Click() a= 10 b=20 c=Val(a) +b Print c End Sub
点击查看答案&解析
相关试题
设有以下程序: Option Base 1 Privat...