如果结果不匹配，请 
更多“编写一个GUI程序，通过文本框输入一个URL地址。读出其连接…”相关的问题
.jpg)
注意：
不得使用任何变量，只允许通过修改属性的方式移动文本框：文件必须存放在考生文件夹中，工程文件名为execise112.vbp，窗体文件名为execise112.frm。
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为
A．123
B．456
C．579
D．123456
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click（）
x = InputBox（"请输入一个整数"）
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（）。
A．123
B．456
C．479
D．123456
（17）窗体上添加了一个文本框Text1,编写下列代码： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)&KeyCode End Sub 程序运行时，在文本框中输入“ab”则在窗体上输出为 A.F65 G66 B.F65 F65 C.G66 F65 D.G65 G66
在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
A．a
B．A
C．aaaaaaa
D．AAAAAAA
在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是
A．visual basic
B．VISUAL BASIC
C．basic
D．BASIC
窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form. Load()
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click()
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是()。
A．中国北京
B．中国天津
C．中国上海
D．北京中国
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是
A．bbb
B．BBB
C．BB
D．bb
设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show Text1.Text="" Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer，_Shift As Integer,X As Single,Y As Single） Print"程序设计"End SubPrinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic";End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是。A．Visual BasicB．程序设计C．Visual Basic 程序设计D．a程序设计
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在窗体上显示的内容为
A．a
B．A
C．aaaaaa
D．AAAAAA
