题目内容
（请给出正确答案）
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Textl.Text="VB程序设计"
End Sub
Private Sub Textl_Change()
Picturel.Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：…”相关的问题
在窗体上画一个文本框和一个图片框，然后编写口下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change()
PicturePrint"VB programming"
End Sub
程序运行后，单击窗体，则在本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画3个标签，名称分别为Label1、Label2和Label3，标题分别为"人数"、"年龄"和"收入"，3个文本框，名称分别为Text1、Text2和Text3，Text属性均为空，一个命令按钮，名称为Command1，标题为"输入"。然后编写命令按钮的Click事件过程， 要求程序运行后，如果单击命令按钮，则先后显示3个输入对话框，在3个输入对话框中分别输入人数、年龄和收入，并分别在3个文本框中显示出来。程序运行界面如图4-1所示。要求程序中不得使用任何变量。
图4-1
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
（2）在名称为Form1的窗体上画一个图片框，名称为Pic1，一个水平滚动条，名称为HScroll1，通过"属性"窗口在图片框中装入一个图形（文件名为pic1.jpg，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意，运行时的窗体如图4-2所示。编写适当的事件过程，要求程序运行后，图片的宽度随滚动条变化。即设置水平滚动条的如下属性：Min为200，Max为2000，LargeChange为200，然后就可以通过移动滚动条上的滚动块来放大或缩小图片框的宽度。拖动滚动条后的窗体如图4-3所示。要求程序中不得使用任何变量。
图4-2 图4-3
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下事件过程：
A. 1和0
B. 2和72
C. 3和50
D. 4和168
在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程:
Private Sub Form_loab()
List.AddItem″357″
List.AddItem″246″
List.AddItem″123″
List.AddItem″456″
TEXT1.Text=″″
End Sub
Private Sub Command1_Click()
List.Listindex=3
Print List.Text1+Text1.Text
End Sub
程序运行后,在文本框中输入″789″,然后双列表框中的″456″,则输出结果为
A．789123
B．456789
C．789456
D．1245
A．Private Sub Hscroll1_Change（）
Text1.Text=HScroll1.Value
End Sub
B．Private Sub Hscroll1_Click（）
Text1.Text=HScroll1.Value
End Sub
C．Private Sub Hscroll1_Change（）
Text1.Text=Hscroll1.Caption
End Sub
D．Private Sub Hscroll1_Click（）
Text1.Text=Hscroll1.Caption
End Sub
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： Private Sub Form_Load() List1.Addltem "357" List1.Addltem "246" List1.Addltem "123" List1.AddItem "456" Text1.Text = "" End Sub Private Sub Listl_DblClick0 m=List1.Text Print m + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为()。
A．1245
B．456123
C．123456
D．0
在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_ Load () Liet1.AddItem“357” List1.AddItem“246” List1.AddItem“123” List1.AddItem“456” Text1.Text=“” End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为______ 。
A．1245
B．456789
C．789456
D．0
在窗体上画一个文本框，然后编写如下事件过程： 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
