2. 计算机
  3. 1. 在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，

1. 在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，

admin2009-03-17  18
问题 1. 在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数绝对值相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。如图2—1所示。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。
2．在考生文件夹下有一个工程文件sjt4.vhp，相应的窗体文件为sjt4.frm。在窗体上有2个命令按钮、1个标签和1个计时器，其名称分别为Command1、Command2、Label1和Tim er1，如图2—2所示。程序运行后，在命令按钮Command1中显示“开始”，在命令按钮

Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interva1属性设置为50，Enabled属性设置为 False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图2—3所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
试题所提供的程序如下：
   Private Sub Form Load()
       Command1.Caption="开始"
       Command2.Caption="停止"
       Timer1.Interval=50
       Timer1.Enabled=False
       Label1.Caption="热烈欢迎"
       Label1.AutoSize=True
       Label1.FontSize=16
       Label1.FontBold=True
   End Sub
    Private Sub Command1_Click()
       Command1.Caption="继续"
       ’Timer1.Enabled=?
       Command1.Enabled=False
       Command2.Enabled=True
   End Sub
   Private Sub Command2_Click()
       ’Timer1.Enabled=?
       Command2.Enabled=False
       Command1.Enabled=True
   End Sub
   Private Sub Timer1_Timer()
       If Label1.Left＜Width Then
            ’Label1.Left=?
       Else
            ’Label1.Left=?
       End If
   End Sub
选项
答案① 建立界面和设置控件属性。 题目提供了程序用到的控件及其属性。如下表3所示。 [*] ② 编写程序代码 题目提供的代码： Private Sub C1_Cliek() ’ If HS1. Value+Text1. Text＞HS1.? Then MsgBox"文本框中的数值太大" ’ Elself HS1. Value+Text1.Text＜? Then MsgBox"文本框中的数值太小" Else ’ ? = HS1. Value+Text1. Text End If End Sub 修改后的参考代码 Private Sub C1_Cliek() If HS1. Value+Text1. Text＞HS1. Max Then MsgBox"文本框中的值太大" ElselIf HS1. Value+Text1. Text＜HS1.Min Then MsgBox"文本框中的数值太小" Else HS1. Value=HS1. Value+Text1. Text End If End Sub ③ 按题目要求存盘 2．修改完成后的代码如下： Private Sub Form_Load() Command1. Caption="开始" Command2. Caption="停止" Timer1.Interval=50 Timer1.Enabled=False Label1.Caption="热烈欢迎" Label1.AutoSize=True Label1.FontSize=16 Label1.FontBold=True End Sub Private Sub Command1_Click() Command1.Caption="继续" Timer1.Enabled=True Command1.Enabled=False Comrnand2.Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled=False Command2.Enabled=False Command1.Enabled=True End Sub Private Sub Timer1_Timer() If Label1.Left＜Width Then Label1. Left=Label1. Left+20 Else Label1.Left=0 End If End Sub
解析
转载请注明原文地址:https://jikaoti.com/ti/IWq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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