[问答题] 完成下列问题:在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请

12 查阅

[问答题] 完成下列问题:

在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置,运行情况如图2所示。

注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

参考答案:

[操作步骤] 第1步:新建一个标准EXE工程,保持窗体默认属性不变。 第2步:在窗体上画一个水平滚动条,将其Min属性设置为1,Max属性设置为100。由于先添加滚动条,后添加文本框,滚动条的TabIndex属性默认为0,所以无须修改。 第3步:添加文本框。在窗体上画一个文本框,将其Text属性改为1。 第4步:编写代码。双击窗体上的滚动条控件进入代码编辑窗口,编写如下事件过程: Private Sub HScroll1_Change() Text1.Text=HScroll1.Value

滚动条的刻度范围由Min和Max两个属性决定,对于本题只需将滚动条的Min属性设置为1,Max属性设置为100即可满足刻度范围要求。窗体上控件焦点的顺序由各控件的TabIndex属性控制。程序运行时,要求焦点在滚动条上,只需将滚动条的TabIndex属性设置为0即可。滚动条的滑块位置由其Value属性设置,当Value属性值发生改变时会引发滚动条的Change事件。

计算机考试