在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。窗体Form1中有一命令按钮与一个水平滚动条。命令按钮的名称为Commandl,标题为“移动”;水平滚动条的名称为HScroll1。单击“移动”按钮后,在弹出的对话框中输入数

admin2009-03-26  26

问题 在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。窗体Form1中有一命令按钮与一个水平滚动条。命令按钮的名称为Commandl,标题为“移动”;水平滚动条的名称为HScroll1。单击“移动”按钮后,在弹出的对话框中输入数值。输入一个整数后,单击“移动”,滚动条中的滚动块移动到指定的刻度,如果超过了滚动条的最大刻度,则不移动,并且在窗体上显示“输入的数值太大”,如果超过了滚动条的最小刻度,则不移动,并且在窗体上显示“输入的数值太小”,如图1—5所示。

    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

选项

答案本题主要考查滚动条的属性和IF语句的使用。 滚动条常用于取代数据的键盘输入,通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值,即Value属性值的取值范围,在程序中改变Value属性的值,滚动条滑块会随之移动到相应位置。 InputBox()函数用于显示一个输入框,提示用户输入一个数据,该函数返回值默认为字符串类型。在代码窗口编写如下代码: Private Sub Command1_Click() Dim a As Integer a=Val(InputBox("请输入数值")) ’通过输入对话框输入数值 If a>HScrolll.Max Then’如果数值大于滚动条的最大值 Cls Print"输入的数值太大" ’在窗件上显示“输人的数值太大” ElseIf aValue=a ’如果在范围内,则将滚动条移动指定的距离 End If End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/MLq0FFFM
0

随机试题
最新回复(0)