问答题
注意：下面出现的“考生文件夹”均为C:/wexam/25160002。
(1) 在考生文件夹下有一个工程文件sjt3.vbp，两个窗体文件，文件名分别为sjt31.frm和sjt31.frm。此工程实现的功能是，在运行时只显示名为Form2的窗体，单击Form2上的C2按钮，则显示名为Form1的窗体；单击Form1上的C1按钮，则Form1的窗体消失。这个程序并不完整，要求：
把Form2设为启动窗体；把Form1上按钮的标题改为“隐藏”，把Form2上按钮的标题改为“显示”。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图26-3所示。
注意：工程文件和窗体文件仍以原来的文件名存盘。
(2) 在考生文件夹下有一个工程文件sjt4.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。程序运行界面如图26-4所示。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。
(1) 在考生文件夹下有一个工程文件sjt3.vbp，两个窗体文件，文件名分别为sjt31.frm和sjt31.frm。此工程实现的功能是，在运行时只显示名为Form2的窗体，单击Form2上的C2按钮，则显示名为Form1的窗体；单击Form1上的C1按钮，则Form1的窗体消失。这个程序并不完整，要求：
把Form2设为启动窗体；把Form1上按钮的标题改为“隐藏”，把Form2上按钮的标题改为“显示”。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图26-3所示。
注意：工程文件和窗体文件仍以原来的文件名存盘。
(2) 在考生文件夹下有一个工程文件sjt4.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。程序运行界面如图26-4所示。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。
【正确答案】[解析] 在窗体建立好控件后，先设置控件属性，再事件过程。
命令按钮的标题通过Caption属性修改。单击命令按钮触发Click事件。在多窗体中，可以指定启动窗体，方法是：点击“工程”菜单下的“工程属性”命令，打开“工程属性”对话框，然后单击“启动对象”栏右端的箭头，下拉显示当前工程中的所有窗体的列表，单击要作为启动窗体的对象名，然后单击“确定”按钮，即可把所选窗体设置为启动窗体。要使窗体显示或隐藏可以设置窗体的Visible属性，设置为False时，窗体隐藏设置为True时，窗体显示。解题步骤：
第一步：建立界面并设置控件属性。
程序提供了需要的控件，只需修改这些控件属性即可。Form1用到的控件及其属性见表26-3。
表 26-3
Form2用到的控件及其属性见表26-4。
表 26-4
建立好控件后，将窗体Form2设置为启动窗体。
第二步：编写程序代码。
题目提供的代码：
窗体1的代码：
Private Sub C1_Click()
'Form1.Visible = ?
End Sub
窗体2的代码：
Private Sub C2_Click()
'Form1.visible = ?
End Sub
第三步：调试并运行程序。
第四步；按题目要求存盘。
(2)[解析] 滚动条能表示的最大值有Max属性设置，最小值由Min属性设置。滚动条的当前值由Value属性设置。当 Value值大于Max属性或小于Min属性值时，用Msgbox语句生成消息框。解题步骤：
第一步：编写程序代码：
题目提供代码：
Private Sub C1_Click()
'If HS1.Value + Text1.Text ＞ HS1.? Then
MsgBox "文本框中的数值太大"
'ElseIf HS1.Value + Text1.Text ＜ ? Then
MsgBox "文本框中的数值太小"
Else
'? = HS1.Value + Text1.Text
End If
End Sub
参考代码：
Private Sub C1_Click()
If HS1.Value + Text1.Text ＞ HS1.Max Then
MsgBox "文本框中数值太大"
ElseIf HS1.Value + Text1.Text ＜ HS1.Min Then
MsgBox "文本框中的数值太小"
Else
HS1.Value = HS1.Value + Textl.Text
End If
End Sub
第二步；调试并运行程序。
第三步：按题目要求存盘。
命令按钮的标题通过Caption属性修改。单击命令按钮触发Click事件。在多窗体中，可以指定启动窗体，方法是：点击“工程”菜单下的“工程属性”命令，打开“工程属性”对话框，然后单击“启动对象”栏右端的箭头，下拉显示当前工程中的所有窗体的列表，单击要作为启动窗体的对象名，然后单击“确定”按钮，即可把所选窗体设置为启动窗体。要使窗体显示或隐藏可以设置窗体的Visible属性，设置为False时，窗体隐藏设置为True时，窗体显示。解题步骤：
第一步：建立界面并设置控件属性。
程序提供了需要的控件，只需修改这些控件属性即可。Form1用到的控件及其属性见表26-3。
表 26-3
控 件 | 属 性 | 设置值 |
| 按钮 | Name Caption | C1 "隐藏" |
表 26-4
控 件 | 属 性 | 设置值 |
| 按钮 | Name Caption | C2 "显示" |
第二步：编写程序代码。
题目提供的代码：
窗体1的代码：
Private Sub C1_Click()
'Form1.Visible = ?
End Sub
窗体2的代码：
Private Sub C2_Click()
'Form1.visible = ?
End Sub
第三步：调试并运行程序。
第四步；按题目要求存盘。
(2)[解析] 滚动条能表示的最大值有Max属性设置，最小值由Min属性设置。滚动条的当前值由Value属性设置。当 Value值大于Max属性或小于Min属性值时，用Msgbox语句生成消息框。解题步骤：
第一步：编写程序代码：
题目提供代码：
Private Sub C1_Click()
'If HS1.Value + Text1.Text ＞ HS1.? Then
MsgBox "文本框中的数值太大"
'ElseIf HS1.Value + Text1.Text ＜ ? Then
MsgBox "文本框中的数值太小"
Else
'? = HS1.Value + Text1.Text
End If
End Sub
参考代码：
Private Sub C1_Click()
If HS1.Value + Text1.Text ＞ HS1.Max Then
MsgBox "文本框中数值太大"
ElseIf HS1.Value + Text1.Text ＜ HS1.Min Then
MsgBox "文本框中的数值太小"
Else
HS1.Value = HS1.Value + Textl.Text
End If
End Sub
第二步；调试并运行程序。
第三步：按题目要求存盘。
【答案解析】