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

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

admin2009-03-17  31
问题 有一个工程文件ylc6.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，则滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图18所示。
   题目中提供的“移动”按钮控件Command1的Click事件的源代码如下：
   Private Sub Command1_Click()
      Dim nCount As Integer
      nCount=CInt(Text1.Text)
      If(nCount＞=?)Then
          HScrolll.Value=HScrolll.Max
          ?
      Else
          If (nCount＜=HScrolll.Min)  Then
             ?=HScrolll.Min
             MsgBox("文本框中的数字太小")
          Else
             HScrolll.Value=?
          End If
      End If
   End Sub
   注意：不能修改程序中的其他部分，不能修改控件的属性，最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。
选项
答案操作步骤 (1)在Visual Basic集成环境中选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。 (2)选择工具箱中的TextBox控件，在窗口上拖动，创建该控件命名为Text1，设置属性为空。 (3)选择工具箱中的CommandButton控件，在窗口中拖动并画出该控件。在属性编辑框命名为Command1，标题设置为“移动”。 (4)选择工具箱中的HScrollBar控件，在窗口上拖动创建该控件，命名为HScrolll，在属性窗口根据题目的要求设置Value属性值为0。 (5)题目要求在移动到最左或最右边时，停止移动并显示提示信息。因此，在属性中设置它的最大最小值，即设置Max属性为256，设置Min属性的值为-256。 2．行为编码 Cormnand1的Click事件，代码如下： Private Sub Command1_Click() Dim nCount As Integer nCount=CInt(Text1. Text) ’当前值与最大值比较 If (nCount＞=HScrolll.Max) Then HScrolll.Value=HScrolll.Max ’信息提示框提示 MsgBox("文本框中的数字太大") Else ’当前值与最小值比较 If (nCount＜=HScrolll.Min) Then HScrolll.Value=HScrelll.Min ’信息提示框提示 MsgBox("文本框中的数字太小") Else ’把当前值赋给滚动条 HScrolll.Value=nCount End If End If End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
解析 (1)本题考查考生对HScrollBar相关属性的设置，包括对HScrollBar控件的最大、最小值的设置，滚动设置，以及判断语句的运用和实现显示用户提示信息。
   (2)注意HScrollBar控件的最大、最小值设置，滚动条的值设置，CommandButton控件的Click事件处理的功能。
   (3)在每次单击“移动”按钮后，将文本框中的数值与HScrollBar的Max属性值和Min属性值进行比较。若超出HScrollBar的值域范围则弹出太大或太小提示信息，否则移动滚动条。
转载请注明原文地址:https://jikaoti.com/ti/Udq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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