下面的程序用于根据文本框Text中输入的内容进行以下处理：

若Text为1，则打印"您的成绩为优秀！"；若Text为2，则打印"您的成绩为良好！"

若Text为3，则打印"您的成绩为一般"；否则打印"您的成绩一般以下！"，请填空。

Private Sub Command1_Click（）

Select Case Val（Text1.Text）

C．ase (13)

Print "您的成绩为优秀！"

C．ase (14)

Print "您的成绩为良好！"

C．ase (15)

Print "您的成绩为一般"

C．ase Else

Print "您的成绩一般以下！"

E．nd Select

E．nd Sub

[单选题]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）C．all CheckInput（Text1，500）E．nd SubPrivate Sub Text2_LostFocus（）C．all CheckInput（Text2，1000）E．nd SubSub CheckInput（

[单选题]（ 33 ）某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中Private Sub Comand1_Click （）Open " out. t xt " For Output As #2Print " Text1 "C．lose #2E．nd Sub调试时发现没有达到目的，为实现上述目的，应做的修改是A． ）把 Print " Text1 " 改为 Print #2,Text1B． ）把 Print " Text1 " 改为 Print Te

[单选题]运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的( )事件。A．ClickB．DblClickC．GotFocusD．Change

[填空题] 运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件.

[单选题]在运行程序时，在程序代码中改变文本框的Text属性值，或在文本框中输入新的内容，相应会触发( )事件。A．GotFocusB．ClickC．ChangeD．DblClick

[单选题]（18）在运行程序时，在程序代码中改变文本框的Text属性值，或在文本框中输入新的内容，相应会触发事件。A.GotFocus B.Click C.Change D. Dblclick

[单选题]能清除文本框Text1中内容的语句是( )。A． Text = ""B． Text 1.Text = ""C． Text 1.clearD． Text 1.Cls

[单选题]如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。A．Private Sub form_ Load() Text1. Text="*****"End SubB．Private Sub form_ Load() Text1. PasswordChar=“*”End SubC．Private Sub form_ Load() Text1. Visible="*****" End SubD．Private Sub form. L

[单选题]窗体上有名称分别为Text1、Text2的2个文本框，要求文卒框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是______。 Private Sub Text1 LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2 LostFocus() Call CheCkInput(Text2,1000) End Sub Sub Ch

[单选题]假设文本框Text1中有选定的文本，执行Text1.SelText=Hello的结果是（）。A . Hello将替换掉原来选定的文本B . Hello将插入到原来选定的文本之前C . Hello将插入到原来选定的文本之后D . 文本框中没有Hello