问题 问答题

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

对象属性设置值
文本框Name
Text
Text1
0
命令按钮Name
Caption
C1
"移动"
滚动条Name1
Min
Max
HS1
1
100
② 编写程序代码
题目提供的代码:
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

填空题
问答题 简答题