填空题

以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。
Private Sub Command1_Click()
x＝Val(Text1.Text)
If 【9】 Then
Print x
Else
Text1.SetFoeus
Text1.SetStart＝0
End If
End Sub

【参考答案】

x mod 3＝2 And x mod 5＝3 And x mod 7＝4
<上一题 目录 下一题>
热门 试题

单项选择题
阅读程序： Sub subP(b() As Integer) For i＝1 To 4 b(i)=2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)＝5 a(2)＝6 a(3)＝7 a(4)＝8 subP a() For i＝1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为
A．2
4
6
8
B．5
6
7
8
C．10
12
14
16
D．出错
填空题
若A＝20，B＝80，C＝70，D＝30，则表达式A+B＞160 Or(B * C＞200 And Not D ＞60)的值是 【8】 。
相关试题