（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

[试题]有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click（）x=Val（Text1.Text）If (6) ThenPrint xE．lseText1.Text=""(7)E．nd IfE．nd Sub

[试题]有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Commandl_Click()x=Val(Text1.Text)If [9] ThenPrintXE．lseText1.Text=""[10]E．nd IfE．nd Sub

[试题]在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click（）num=Val（Text1.Text）If (8) ThenPrint numE．lseText1.Text=""(9)E．nd IfE．nd Sub

[单选题]窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为( )。 Private Sub Command1_Click() Dim A As Integer,B As Integer Text1.SelStart=2 Text1.SelLength=2 A=Val(Text1.SelText) B=Len(Text1.Text) Print A*B End SubA．68B．115C．170D．1170

[单选题]在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程： Private Sub Form_Click() x＝InputBox（＂请输入一个整数＂） Print x ＋ Text1.Text End Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是。A. 123 B. 456 C. 579 D. 123456

[单选题]在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程：Private Sub Form_Click()x=InputBox("请输入一个整数")Print x+Text1.TextE．nd Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是( )。A．123B．456C．579D．123456

[单选题]在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数

[单选题]在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符都会立即在标签中显示文本框中字符的个数。

[单选题]在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程：Private Sub Command1_Click()F．or Each TextBox In Text1Text1(i)=Text1(i).Indexi=i+1NextE．nd Sub程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息