2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为1000、0；再画两个标签，名称分别为Label1和Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为

在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为1000、0；再画两个标签，名称分别为Label1和Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为

admin2009-03-17  17
问题 在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为1000、0；再画两个标签，名称分别为Label1和Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为C1和C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为Timer1(如图3—1所示)。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动100；单击“向左移动”按钮，则水平滚动条的滚动框每秒向左移动100；当滚动框到达两端时，它将改变移动的方向，但速度不变。
注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能。修改后的文件以原来的文件名存盘。
选项
答案① 建立界面和设置控件属性。 题目提供了程序用到的控件及其属性，如下表4所示。 [*] ② 编写程序代码。 程序提供的代码： Dim dis As Integer Private Sub C1_Click() ’ Timer1.Enabled＝? dis＝100 End Sub Private Sub C2_C1ick() Timer1.Enable=True ’ dis＝? End Sub ’ Private Sub Timer1_?() HSeroll1. Value＝HScroll1. Value+dis If HScroll1.Value＞=HScroll1. Max Then HScroll1. Value=HScroll1.Max dis=-100 End if ’ If ? Then HScroll1. Value=HSeroll1. Min dis=100 End If End Sub 修改后的参考代码： Dim dis AS Integer Private Sub C1_Click() Timer1.Enabled=True dis=100 End Sub Private Sub C2_Cliek() Timer1.Enabled=True dis=—100 End Sub Private Sub Timerl_Timer() HScroll1. Value=HSeroll1.Value + dis If HScroll1. Value＞=HSeroll1. Max Then HScroll1. Value=HScroll1. Max dis=—100 End if If HScroll1. Value＜=HSeroll1.Min Then HScroll1. Value=HScroll1. Min dis=100 End If End Sub ③ 按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Lj1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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