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

admin2009-03-17  37

问题 有一个工程文件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://kaotiyun.com/show/ak1p777K
0

最新回复(0)