问答题 注意:下面出现的“”均为c:/wexam/25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“书名”和“作者”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“显示”),如图22-1所示。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输入书名和作者,然后单击命令按钮,则在窗体的标题栏上先后显示两个文本框中的内容,如图22-2所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

(2) 在名称为Form1的窗体上画一个垂直滚动条(名称为VScroll1)和一个水平滚动条(名称为 HScroll1),如图22-3所示。在属性窗口中对两个滚动条设置如下属性:
Min 1500
Max 6000
LargeChange 200
SmallChange 50
编写适当的事件过程。程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小窗体。运行后的窗体如图22-4所示。要求程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt2.vbp,窗体文件名为sjt2.frm。


【正确答案】解析:在窗体上建立好控件后,先设置控件属性,再编写事件过程。
标签和命令按钮的标题各自的Caption属性来设置,文本框显示的内容由Text属性设置,窗体的标题由其Caption属性来设置。在Visual Basic中可以用“+”或“&”运算符将两个字符串连接起来。解题步骤:
第一步:建立界面并设置控件属性。程序用到的控件及其属性见表22-1。
表 22-1
控 件
属 性
设 置 值
 标签  Name
 caption
 Label1
 书名
 标签  Name
 caption
 Label2
 作者
 文本框  Name  Text1
 文本框  Name  Text2
 命令按钮  Name
 caption
 Command1
 显示
  第二步:编写程序代码。
  参考代码:
    option Explicit
    rivate Sub Command1_C1ick()
      Form1.Caption=Text1+","+Label2+""+Text2
    End Sub
  第三步:调试并运行程序。
  第四步:按题目要求存盘。
  (2) 解析:在窗体上建立好控件后,先设置控件属性,再编写事件过程。
  窗体的大小由其Width属性和Height属性设置,分别决定窗体的宽和高;用滚动条的值来设置窗体的宽和高,只要将窗体的Width属性和Height属性和滚动条的Value值联系起来即可。解题步骤:
  第—步:建立界面并设置控件属性。程序中用到的控件及其属性见表22-2。
                                               表 22-2
控 件
属 性
设 置 值
 垂直滚动条  Name
 Max
 Min
 Largechange
 Smallchange
 VScroll1
 6000
 1500
 200
 50
 水平滚动条  Name
 Max
 Min
 Largechange
 Smallchange
 VScroll1
 6000
 1500
 200
 50
第二步:编写程序代码。
参考代码:
Option Explicit
Private Sub HScroll1_Change()
Form1.Width=HScroll1
End Sub
Private Sub VScroll1_Change()
Form1.Height=VScroll1.Value
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。
答案考生文件夹
【答案解析】