有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click（）x=Val（Text1.Text）If 【6】 ThenPrint xElseText1.Text=""【7】End IfEnd Sub
有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click（）
x=Val（Text1.Text）
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
相关考题：
在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click（）num=Val（Text1.Text）If 【8】 ThenPrint numElseText1.Text=""【9】End IfEnd Sub
有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Commandl_Click()x=Val(Text1.Text)If [9] ThenPrintXElseText1.Text=""[10]End IfEnd Sub
（7）下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub
以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除 文本框的内容，在横线处应填写（ ）。A. x％4=1 And x％5=2B. x％4=1 Or x％5=2C. x Mod 4=1 And x Mod 5=2D. x Mod 4=1 Orx Mod 5=2
三位数的自然数P满足：除以7余2，除以6余2，余以5也余2，则符合条件的自然 数P有 ( )。 A．2个 B．3个 C．4个 D．5个