填空题

下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除， 果能则输出该数及平方值。请填空。 　　Private Sub Command1_Click() 　　　Dim numX As Integer 　　　numX = Val (InputBox("请输入一个整数")) 　　　If【 】Then 　　　　　Form1．Print【 】 　　　End If 　　End Sub

【参考答案】

numX Mod 2 = 0 And numX Mod 5=0 And numX Mod 7=0
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序段：Private Sub Command1_Click( )Dim a As Integera=2For i=1 To 3Print G(a)Next iEnd SubFunction G(a As Integer)b=0Static cb=b + 1c=c + 1G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为（ ）。
A． 1 2 3
B． 2 3 4
C． 4 5 6
D． 1 4 6
填空题
阅读下面的程序：Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5 Do Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为 _________。
相关试题