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

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

admin2009-03-26  27
问题 在考生文件夹下有工程文件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://kaotiyun.com/show/KV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)