填空题

下面程序的作用是用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
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()S＄=InputBox( 请输入一个字符串 )Text1.Text=S＄End SubPrivate Sub Text1_Change()Label1.Caption=UCase(Mid(Text1.Text，7))End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。
单项选择题
现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。
A．38
B．49
C．61
D．70
相关试题