更多"在窗体上画两个文本框(名称分别为Text1和Text2)和&mdash"的相关试题:
[单项选择]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click（ ） a=Text1.Text b=Text2.Text c=LCase (a) d=UCase (b) Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]窗体上有两个名称分别为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、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick（ ） Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End Sub
A. 12
B. 34
C. 46
D. 1234
[单项选择]
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是（）。
A. A
B. a
C. C
D. c
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。
A. A
B. a
C. C
D. c
[单项选择]在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读以下程序段： Private Sub Command1_Click（ ） x=0 Do Until x＞=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。
A. 1和0
B. 2和240
C. 3和50
D. 4和168
[单项选择]在窗体(Name属性为form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮 (Name属性为Command1)，然后编写如下两个事件过程，该过程的运行结果为______。Private Sub Command1_Click（ ） a = Text1, Taxt + Text2, Text Print aEnd SubPrivate Sub form_ Load（ ） Text1.Text = "123" Text2.Text = "321"End Sub
A. 444
B. 321123
C. 123321
D. 132231
[单项选择]在窗体中添加两个文本框，其名称分别为Text1和Text2;两个标签，其名称分别为Label1和Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母的ASCII码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是
A. Private Sub Form Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1．Text=Chr(KeyCode-4) End Sub
B. Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1．Text=Text1．Text+Chr(KeyCode-4) End Sub
C. Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1．Text=Text1．Text+Chr(KeyCOde-4) End Sub
D. Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1．Text=Chr(KeyCode-4) End Sub
[单项选择]在窗体中添加两个文本框，其名称为别为Text1和Text2；两个标签，其名称为别为Labe11和Labe12。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母ASCII代码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出结果为“ABC”，运行后如下。能够实现上述功能的程序是______。
A. Private Sub Form Load( )
B. Private Sub Form Load( )
C. Private Sub Form_Load( )
D. Private Sub Form_Load( )
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click（ ） a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框 的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a
End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示 的内容是______。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form_Load（ ） Show
Text1.Text = "" Text2.Text = "" Text1.SetFocus
End Sub
Private Sub Text1_Change（ ） Text2.Text = Mid(Text1.Text, 8)
End Sub
程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是______。
A. BeijingChina
B. China
C. Beijing
D. BeijingC
