vb期末考试复习资料（经典总结版）(4)

Private Sub Command1 Click()

Text1.Text=InputBox(\请输入身高\ Text2.Text=InputBox(\请输入体重\End Sub

程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入1.78和75，则两个文本框中显示的内容分别为______和______。

【分析】 在一般情况下，通过InputBox函数输入的数据被赋给一个变量。在本例中，没有使用变量，而是直接把输入对话框中的值赋给文本框的Text属性。因此，第一个文本框接收的是身高，第二个文本框接收的是体重。 【答案】 1.78 75

例5 为了在运行时把“d:＼pic”文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为______。

分析】 在运行期间，可以用LoadPicture函数把指定的图形文件装入窗体、图片框或图像框，它实际上是把图形文件赋给对象的Picture属性。一般格式为：

[对象.]Picture=LoadPicture(“文件名”)其中的“文件名”可以是多种格式的图形文件，包括.bmp、.ico、.wmf、.emf、.jpg、.gif等，提供的“文件名”可以含有路径。对于本例来说，“文件名”(包括路径)是：d:＼pic＼a.jpg，“对象”是Picture1。 【答案】Picture 1.Picture=LoadPicture(\＼pic＼a.jpg\

例6 在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图6-1所示。下面是实现上述功能的程序，请填空。 Private Sub Form_Load()

List1.AddItem \ List1.AddItem \ List1.AddItem \ List1 .AddItem \End Sub

Private Sub Command1_Click() Dim L As Integer L=______

If ind ＞= 0 Then

List1.RemoveItem______ Label1.Caption = ______ Else

MsgBox\请选择要删除的项目\ End If End Sub

9

【分析】 本例提供的程序包括两个事件过程，其中Form Load事件过程用来向列表框中添加项目，而Command1 Click事件过程删除列表框中被选择的项目，并在标签中显示列表框当前的项目数，需要填空的代码在这个事件过程中。

为了删除列表框中指定的项目，可以使用RemoveItem方法，其格式为：

列表框.RemoveItem索引值其中的“索引值”是项目的地址，列表框中的项目从0开始计数，被选择的项目的索引值就是列表框的ListIndex属性。为了删除列表框中被选择的项目，必须先确定该项目的索引值，即列表框的ListIndex属性，然后就可以用RemoveItem方法将其删除。本题中的第一个空是被选择的项目的索引值，应为List1.ListIndex，并把它赋给变量L。第二个空是RemoveItem方法的参数，即“索引值”，由于该值已保存在变量L中，因此应填入L。第三个空是列表框中当前的项目数，它就是列表框的ListCount属性。 【答案】List1.ListIndex L

List 1.ListCount

例7 在窗体上画一个图片框、一个垂直滚动条和一个命令按钮(标题为“设置属性”)，通过属性窗口在图片框中装入一个图形，图片框的宽度与图形的宽度相同，图片框的高度任意。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的属性如下： Min 100 Max 2400 LargeChange 200 SmallChange 20

之后就可以通过移动滚动条上的滚动框来放大或缩小图片框。

【分析】 本例要求程序实现两个方面的功能，其一是当单击命令按钮时设置滚动条的几个属性；其二是当移动滚动条的滚动框时扩大或缩小图片框的高度。第一个功能可以通过下面的事件过程来实现：

Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400

VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub

第二个功能可以用下面的事件过程来实现： Private Sub VScroll1_Change()

Picture 1 .Height = VScroll 1.Value End Sub

例8 在窗体上画两个命令按钮和一个标签，把两个命令按钮的标题分别设置为“缩小”和“扩大”；把标签的AutoSize属性设置为True，标题设置为“计算机等级考试”。程序运行后，如果单击第一个命令按钮，则可使标签中标题的字体大小缩小1.2倍；如果单击第二个命令按钮，则可使标签中标题的字体大小扩大1.2倍。

【分析】 命令按钮和标签的标题以及标签的AutoSize属性可以通过属性窗口设置，也可以在运行期间设置。程序运行后，首先执行Form_Load事件过程，可以把设置标题和AutoSize属性的代码放在该事件过程中。根据题意，当单击两个命令按钮时，分别使得标签中的字体缩小或扩大1.2倍，而字体的大小可以通过标签的FontSize属性来设置。因此，如果想使标签中的字体缩小1.2倍，则可执行下面的语句：

Label 1.FontSize=Label 1.FontSize／1.2

而如果想使标签中的字体扩大1.2倍，则应执行的语句为： Label1.FontSize = Label1.FontSize * 1.2程序如下： Private Sub Form Load()

Label1.Caption=\计算机等级考试\ Command1.Caption=\缩小\ Command2.Caption=\扩大\ Label1.AutoSize=True End Sub

Private Sub Command1_Click()

10