更多"在窗体(名称为Form1)上绘制一个名称为Text1的文本框和一个名称"的相关试题:
[单项选择]在窗体（名称为 Form1）上画一个名称为 Text1 的文本框和一个名称为 Command1 的 命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则 把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。
A. Private Sub Text1_Change() Command1.Caption = "计算机等级考试" End Sub
B. Private Sub Command1_ Click () Caption = "计算机等级考试" End Sub
C. Private Sub Form1_ Click () Text1.Caption = "计算机等级考试" End Sub
D. Private Sub Command1_ Click () Text1.Text = "计算机等级考试" End Sub
[单项选择]在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。 Private Sub Text1______ Label 1.Caption=Text1.Text End Sub
A. Focus
B. Crick
C. Chang
D. LostFocus
[单项选择]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是
A. Private Sub Text1_Change( ) Command1.Caption=“计算机等级考试” End Sub
B. Private Sub Command1_Cick( ) Caption=“计算机等级考试” End Sub
C. PrivateSubForm1_Click( ) Text1.Caption=“计算机等级考试” End Sub
D. PrivateSubCommand1_Click() Text1.Text=“计算机等级考试” End Sub
[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是______ 。
A. Private Sub Text1_ KeyPress (KeyAscii As Intege IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then MsgBox “请输入大写字母” End If End sub
B. Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Intege IfKeyCode ＜ 65 Or KeyCode ＞ 91 Then MsgBox “请输入大写字母” End If End sub
C. Private Sub Text1_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, YAs Singl IfAsc (Text1.Tex ＜ 65 Or Asc (Text1. Tex ＞ 91 Then MsgBox “请输入大写字母” End If End sub
D. Private Sub Text1_ Change() IfAsc(Text 1.Tex ＜ 65 Or Asc(Text1. Tex ＞ 91 Then MsgBox “请输入大写字母” End If End sub
[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是( )。
A. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＜65 Or KeyAscii＞90 Then MsgBox"请输入大写字母" KeyAscii=0 End If End Sub
B. Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode＜65 Or KeyCode＞90 Then MsgBox"请输入大写字母“ KeyCode=0 End If End Sub
C. Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Asc(Text1.Text)＜65 Or Asc(Text1.Text)＞90 Then MsgBox"请输入大写字母" End If End Sub
D. Private Sub Text1_Change() If Asc(Text1.Text)＞64 And Asc(Text1.Text)＜91 Then MsgBox"请输入大写字母" End If End Sub
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写 如下事件过程： Private Sub Command1_Click（ ） Text1.Text ="Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是
A. Visual
B. Basic
C. Program
D. 出错
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。 设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。
A. Open"c:/Test29.dat"ForRandom As #1 Put#1，1，p Close#1
B. Open"c:/Test29.dat"ForRandomAs#1 Get#1，1，p Close#1
C. Open"c:/Test29.dat"ForRandomAs#1Len=Len( Put#1，1，p Close#1
D. Open"c:/Test29.dat"ForRandomAS#1Len=Len( Get#1，1，p Close#1
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是______。
A. Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open"C:/dat dat" For Random As #1 Put #1, 1, p Close #1 End Sub
B. Private Sub Command1_Click() Dim p As Person name=Text1.Text major=Text2. Text Open"C:/dat dat" For Random As #1 Get #1, 1, p Close #1 End Sub
C. Private Sub Command1_Click() Dis p As Person name=Text1. Text major=Text2. Text open "C:/dat dat" For Random As #1 Len=Len( Put #1, 1, p Close #1 End Sub
D. Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open "C:/dat dat" For Random As #1=Len( Get #1, 1, p Close #1 End Sub
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A. 2
B. 3
C. 4
D. 5
