（ 10 ） 有如图所示的窗体 。 程序执行时先在 Text1 文本框中输入编号 ， 当焦点试图离开 Text1 时 ， 程序检查编号的合法性 ， 若编号合法 ， 则焦点可以离开 Text1 文本框 ； 否则 ， 显示相应错误信息 ， 并自动选中错误的字符，且焦点不能离开 Text1 文本框 （见图）。合法编号的组成是：前 2 个字符是大写英文字母，第 3 个字符是 “ - ” ，后面是数字字符（至少 1 个）。下面程序可实现此功能，请填空。Private Sub Text1_Lostfocus()Dim k%,n%n=Len( [13] )For k=1 to if (n3,n,4)c=Mid(Text1. Text,k,1)Select Case kCase 1,2If c"A" Or c"Z" ThenMsgBox(" 第 "k" 个字符必须是大写字母！ ")SetPosition kExit ForEnd IfCase 3If c"-" ThenMsgBox(" 第 "k" 个字符必须是字符 "'"-"'")SetPosition kExit ForEnd IfCase ElseIf c"0" Or c"9" ThenMsgBox(" 第 "k" 个字符必须是数字！ ")SetPosition kExit ForEnd IfEnd SelectNext kEnd SubPrivate Sub SetPosition(pos As Integer)Text1.SelStart=pos-1Text.SelLength= [14]Text1. [15]End Sub
（ 10 ） 有如图所示的窗体 。 程序执行时先在 Text1 文本框中输入编号 ， 当焦点试图离开 Text1 时 ， 程序检查编号的合法性 ， 若编号合法 ， 则焦点可以离开 Text1 文本框 ； 否则 ， 显示相应错误信息 ， 并自动选中错误的字符，且焦点不能离开 Text1 文本框 （见图）。
合法编号的组成是：前 2 个字符是大写英文
字母，第 3 个字符是 “ - ” ，后面是数字字符
（至少 1 个）。下面程序可实现此功能，请
填空。
Private Sub Text1_Lostfocus()
Dim k%,n%
n=Len( [13] )
For k=1 to if (n>3,n,4)
c=Mid(Text1. Text,k,1)
Select Case k
Case 1,2
If c<"A" Or c>"Z" Then
MsgBox(" 第 "&k&" 个字符必须是大写字母！ ")
SetPosition k
Exit For
End If
Case 3
If c<>"-" Then
MsgBox(" 第 "&k&" 个字符必须是字符 "'"-"'")
SetPosition k
Exit For
End If
Case Else
If c<"0" Or c>"9" Then
MsgBox(" 第 "&k&" 个字符必须是数字！ ")
SetPosition k
Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition(pos As Integer)
Text1.SelStart=pos-1
Text.SelLength= [14]
Text1. [15]
End Sub
相关考题：
窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）Call CheckInput（Text1，500）End SubPrivate Sub Text2_LostFocus（）Call CheckInput（Text2，1000）End SubSub CheckInput（t As ?，x As Integer）If Val（t.Text）x ThenMsgBox"请重新输入!"End IfEnd SubA．TextB．SelTextC．ControlD．Form
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 9Sum=Sum=iNext iText1.Text=SumEnd Sub上述程序的运行结果是A．在文本框Text1中输出45B．在文本框Text1中输出0C． 出错D． 在文本框Text1中输出不定值
窗体上有名称分别为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 CheckInput(t AS ?,x As Integer) If Val(t.Text)＞X Then MsgBox "请重新输入!" End If End SubA．TextB．SelTextC．ControlD．Form
在窗体上画一个文本框(其中Name属性为Text1)，然后编写如下事件过程： Private Sub Form_ Load() Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是______ 。A．在文本框Text1中输出55B．在文本框Text1中输出0C．出错D．在文本框Text1中输出不定值
（ 19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框Private Sub Command1_Click()Text1.Text= ” 程序设计 ”Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text= ” 等级考试 ”End Sub运行以上程序，单击命令按钮后A ）文本框中显示的是 “ 程序设计 ” ，且焦点在文本框中B ）文本框中显示的是 “ 等级考试 ” ，且焦点在文本框中C ）文本框中显示的是 “ 程序设计 ” ，且焦点在命令按钮上D ）文本框中显示的是 “ 等级考试 ” ，且焦点在命令按钮上
在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：PrivateSubText2_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=Ucase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)EndSub程序运行后，如果在TEXT2中通过键盘上输入单字母k，则在文本框Text1中显示的内容为( )A.kB.KC.KKD.Kk
（ 17 ）设窗体中有一个文本框 Text1 ，若在程序中执行了 Text1.SetFocus ，则触发A ） Text1 的 SetFocus 事件B ） Text1 的 GotFocus 事件C ） Text1 的 LostFocus 事件D ）窗体的 GotFocus 事件
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click（ ）Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1（0）max = Text1（0）min = ______For k = ______ To 6If max Text1（k） Thenmax = Text1（k）End IfIf min Text1（k） Thenmin = Text1（k）End Ifsum = sum + Text1（k）Next kText2 = （______） / 5
在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。 现有如下事件过程 Private Sub Text1_Change（ ） Text 2．Text=Mid(Text1，1，5) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（ ）。A.DataAB.DataBC.aDataD.aBase
窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。A.文本框中显示的是"程序设计"，且焦点在文本框中B.文本框中显示的是"等级考试"，且焦点在文本框中C.文本框中显示的是"程序设计"，且焦点在命令按钮上D.文本框中显示的是"等级考试"，且焦点在命令按钮上
设有如右图所示的窗体和下列程序：Private Sub Command1_Click() Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text＜＞"BASIC" Then Text1.Text=" " Text1.SetFocus End If End Sub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是( )。A．文本框中无内容，焦点在文本框中B．文本框中为"Basic"，焦点在文本框中C．文本框中为"Basic"，焦点在按钮上D．文本框中为"Visual Basic"，焦点在按钮上
设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．CISAB
在窗体上画一个文本框(其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。A．在文本框TEXT1中输出55B．在文本框TEXT1中输出0C．出错D．在文本框TEXT1中输出不定值
窗体上有一个文本框，其Name属性为Text1，如图1所示，并有如下事件过程：上述程序的运行结果是（ ）。A. 在文本框Text1中输出55B. 在文本框Text1中输出0C. 语法错误D. 在文本框Text1中输出不定值
设窗体上有text1文本框和Command1命令按钮，并有以下程序：Private Sub Command1_Click()Temp$=””For k=1 to len(text1)Ch$=mid(text1,k,1)If not found(temp,ch)thenTemp=temp【13】End IfNext kText1=【14】End SubPrivate function found(str as string,ch as string)as BooleanFor k=1 to len(str)If ch=mid(str,k,1)thenFound=【15】Exit functionNext kFound=falseEnd function运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空
在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填( )。Private Sub Text1_ _________() TextText=Text1.Text End SubA．SetFocusB．ChangeC．GetFocusD．Click
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：Private Sub Text1 KeyPress(KeyAscii As Integer)Dim str As String,n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)Text1.Text=String(n,str)End Sub程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。A．ppB．pPC．PPD．Pp
在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点位于Text1，当按Tab键时，焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。A．在文本框Text1中输出55B．在文本框Text1中输出0C．出错D．在文本框Text1中输出不定值
在VB中，下面关于文本框的说法中，错误的说法是（）。A、Text1.Caption="Hello"，将在文本框Text1中显示HelloB、Text.locked=True，设置该文本框Text1不能编辑C、Text.passwordChar="#"，设置文本框Text1输入的字符都显示为#，但实际接收的还是输入的内容D、Text1.Visible=False，设置该文本框Text1为不可见
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框：运行以上程序，单击命令按钮后（ ）。A文本框中显示的是“程序设计”，且焦点在文本框中B文本框中显示的是“等级考试”，且焦点在文本框中C文本框中显示的是“程序设计”，且焦点在命令按钮上D文本框中显示的是“等级考试”，且焦点在命令按钮上
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：程序运行后，如果在文本框Text1中输入China Beijing，则在文本框Text2中显示的内容是（ ）。AChina BeijingBChinaCBeijingDChinaB
单选题在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i= 1 To 9Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是（ ）。A在文本框Text1中输出45B在文本框Text1中输出0C出错D在文本框Text1中输出不定值