(1)在考生文件夹中有一个工程文件sjt3.vbp,窗体上有2个命令按钮、1个水平滚动条和1个计时器,其名称分别为Command1、Command2、HScroll1和Timer1,如图1所示。程序运...
已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容。
注意:
考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上有2个名称分别为Text1、Text2的文本框,有1个名称为Command1的命令按钮。程序运行时,在Text1文本框中输入一行单词(只含有字母或空格),单击命令按钮后,将把每个单词的第一个字母改为大写(如果原来已是大写字母则不变),并在Text2文本框中显示出来,如图所示。
已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,
把程序中的 ?改为正确的内容。
注意:
不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存
盘。
参考解析: (1)【考点分析】本题考点有按钮控件的Enable属性、Caption属性,HScrollBar控件的Value属性,以及If语句。
【解题思路】通过设置按钮控件的Enable属性的True或False来控制按钮的有效或无效。对按钮的Caption属性赋值可以改变按钮的标题。HScrollBar控件的Value值表示滚动滑块的当前位置。
【操作步骤】
步骤1:打开代码编辑窗口,去掉程序中的注释,将问号改为正确的内容。
参考答案(阴影部分是需要考生填入的内容)
Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停止"
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Command1.Caption = "继续"
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If HScroll1.Value < HScroll1.Max Then
HScroll1.Value = HScroll1.Value + 10
Else
HScroll1.Value = 0
End If
End Sub
程序结束
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)【考点分析】本题考点有字符串的运算,字符相关的Trim函数、Ucase函数、Mid函数等等,以及Do While循环语句和If语句。
【解题思路】程序要把Text1中的字符依次取出,第一个字符变为大写,其后的字符以空格为标志,依次判断,如果不是空格就连接到新字符串中,如果是空格,则其后一个字符就转为大写然后连接到新字符串中。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序注释符,将问号改为正确的内容。
参考答案(阴影部分是需要考生填入的内容)
Private Sub Command1_Click()
st1 = Trim(Text1.Text)
n = 1
st2 = UCase(Left(st1, 1))
Do While n <= Len(st1)
If Mid(st1, n, 1) <> " " Then
st2 = st2 & Mid(st1, n + 1, 1)
n = n + 1
End If
If Mid(st1, n, 1) = " " Then
st2 = st2 & UCase(Mid(st1, n + 1, 1))
n = n + 1
End If
Loop
Text2.Text = st2
End Sub
程序结束
步骤3:调试并运行程序,关闭程序后按题目要求存盘。