请根据以下各小题的要求设计Visaul Basic应用程序(包括界面和代码)。1.在窗体(名称为Form1)上画1个列表框(名称为L1)和1个水平滚动条(名称为HS1,Min属性为0,Max属性为100,SmallChange属性为2,LargeChange属性为10),编写适当的事件过程。程序运行后,如果把滚动框移到某个位置,然后单击窗体,则在列表框中显示“滚动条的当前值是:xx”,如图1—1所示,其中xx是滚动框所在的位置。存盘时,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。2.在名称为Form1的窗体上画一个文体框,其名称为Text1,然后通过属性窗口设置窗体和文本框的属性,实现如下功能:1)在文本框中可以显示多行文本2)在文本框中显示垂直滚动条3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图1—2所示。要求:不编写任何代码。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
参考答案:
解析:按以下步骤操作:
① 启动Visual Basic,在窗体上画1个水平滚动条和1个列表框。
② 按F4键,激活属性窗口,在属性窗口中设置滚动条和列表框的属性,见表1。
表 1
③ 编写窗体的Click事件过程;
Private Sub Form_Click()
L1.AddItem"滚动条的当前值是:"
&HS1. Value
End Sub
2.① 对象主要属性设置如表2所示。
对象 | 对象名 | 属性名 | 属性值 |
窗体 | Form1 | Caption | 设置文本框属性 |
文本框 | Text1 | Text | 程序设计 |
MultiLine | Ture | ||
ScrollBars | 2 | ||
FontName | 黑体 | ||
FontSize | 三号 |
③ 编程代码:(无)