在窗体上画一个图片框,再在图片框中画一个命令按钮,位置如图所示,则命令按钮的Top属性值是()。
A.200
B.300
C.500
D.700
A.200
B.300
C.500
D.700
在窗体上画一个文本框和一个图片框,然后编写口下两个事件过程:
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change()
PicturePrint"VB programming"
End Sub
程序运行后,单击窗体,则在本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click()
Textl.Text="VB程序设计"
End Sub
Private Sub Textl_Change()
Picturel.Print"VB programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialogl.Flags=cdlOFNHideReadOnly commonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.ShowOpen MsgBox CommonDialogl.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是 ______。
A.AllFiles(*.*)
B.TextFiles(*.txt)
C.BatchFiles(*.bat)
D.不确定
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。
A.All Files(*.*)
B.Text Files(*.txt)
C.Batch Files(*.bat)
D.不确定
请根据以下各小题的要求设计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。
A、PrivateSubHScroll_Change()Label1.Caption=HScroll1.ValueEndSub
B、PrivateSubHScroll_Click()Label1.Caption=HScroll1.ValueEndSub
C、PrivateSubHScroll_Change()Label1.Text=HScroll.CaptionEndSub
D、PrivateSubHScroll_Click()Label1.Text=HScroll.CaptionEndSub
注意:存盘时必须存放在考生文件夹下,工程文件名为ylcl.vbp,窗体文件名为ylcl.frm。
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
注意:
程序中不能使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise68.vbp,窗体文件名为execise68.frm。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjr2.vbp,窗体文件名保存为sjt2.frm。