2014年计算机二级考试VB专家预测试卷及答案1

　　四、综合应用题

　　本题主要考查滚动条的属性和IF语句的使用。

　　滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。

　　InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型。在代码窗口编写如下代码：

　　Private Sub Command1_Click()

　　Dim a As Integer

　　a=Val(InputBox("请输入数值"))

　　’通过输入对话框输入数值

　　If a>HScroll1.Max Then

　　’如果数值大于滚动条的最大值

　　C1s

　　Print"输入的数值太大"

　　’在窗件上显示“输入的数值太大”

　　Elself a　　’如果数值小于滚动条的最小值

　　Cls

　　Print"输入的数值太小"

　　’在窗件上显示“输入的数值太小”

　　Else

　　C1s

　　HScroll1.Value=a

　　’如果在范围内，则将滚动条移动指定的距离

　　End If

　　End Sub

　　单击 按钮运行程序，并按要求保存。

　　相关推荐：

　　2014年计算机等级考试时间调整通知

　　2014年全国计算机二级VB上机考试试题汇总

　　2014计算机等级《二级VB》上机预测题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通