有下面一个程序段,从文本框中输人数据,如果该数据满足条件“除以4余1,除以5余 2”,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。
Private Sub Commandl_Click()
x=Val(Text1.Text)
If [9] Then
PrintX
Else
Text1.Text=""
[10]
End If
End Sub
第1题:
(7)下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub
第2题:
以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。
第3题:
第4题:
以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除 文本框的内容,在横线处应填写( )。
A. x%4=1 And x%5=2
B. x%4=1 Or x%5=2
C. x Mod 4=1 And x Mod 5=2
D. x Mod 4=1 Orx Mod 5=2
第5题: