问答题
注意：下面出现的“考生文件夹”均为c：/wexam/25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图17-3所示。
本题描述如下：
在窗体上有一个标签数组，名为Label1，该数组有4个控件元素，标题分别是“程序运行”、“文本编辑”、“双向箭头”和“移动窗体”。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。
(2) 在考生文件夹下有工程文件sjt4.vbp，窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。如图17-4所示。
本题描述如下：
在窗体上有一个名为Text1的文本框，有两个命令按钮，名称分别是C1和C2，标题分别是“读入”和“计算并保存”。要求程序运行后，点击C1按钮，将文本文件in6.txt中的所有数字读到数组arr中，并在文本框内显示出来。随后C1按钮变为无效；然后点击C2按钮，求出数组arr中的各元素的平方并赋值回相应的元素，例如，arr(2)=2，则令arr(2)=arr(2)*arr(2)=4。把计算后的数组的值全部写入考生文件夹下的文本文件out6.txt中，并在文本框中显示出来，最后C2按钮也变为无效。
【正确答案】
【答案解析】[解析]
控件数组是由一组相同类型的控件组成，建立控件数组时系统给每个元素赋一个惟一的索引号(Index)，例如，控件数组cmdName(3)表示控件数组名为cmdName的第4个元素；鼠标的形状由属性MousePointer来设置，该属性值为11时对应程序运行时的鼠标形状，该属性值为3时对应文本编辑时的鼠标形状，该属性值为7时对应双向箭头的鼠标形状，该属性值为5时对应移动窗体时的鼠标形状。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表17-3。
表 17-3
第二步：编写程序代码。
程序提供的代码：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Form1.?=0
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift _
As Integer, X As Single, Y As Single)
'Select Case ?
Case 0
Form1.MousePointer=11
Case 1
Form1.MousePointer=3
Case 2
Form1.MousePointer=7
Case 3
Form1.MousePointer=5
End Select
End Sub
参考代码：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.MousePointer=0
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer,
Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0
Form1.MousePointer=11
Case 1
Form1.MousePointer=3
Case 2
Form1.MousePointer=7
Case 3
Form1.MousePointer=5
End Select
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 打开文件的命令是Open，其常用形式为：Open“文件名”For模式As[#]文件号[Len=记录长度]，对文件的写操作所用的命令是Write#或Print#命令，其形式分别为：Print#文件号，[输出列表]；Write#文件号，[输出列表]，二者区别是Write#是以紧凑格式存放，即在数据项之间插入逗号，并给字符串加上双引号。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表17-4。
表 17-4
第二步：编写程序代码。
程序提供的代码：
Dim arr(1 To 9) As Integer
Private Sub C1_Click()
Dim i As Integer
'? "in6.txt" For Input As 1
For i=1 To 9
Input #1, arr(i)
Text1.Text=Text1.Text+Str(arr(i) )
Next
Close #1
C1.Enabled=False
End Sub
Private Sub C2_Click()
Dim i As Integer
Text1.Text=""
Open "out6.txt" For Output As 1
For i = 1 To 9
arr(i)=arr(i) * arr(i)
'Print #1, ?,
Text1.Text=Text1.Text+Str(arr(i) )
Next
Close #1
C2.Enabled=False
End Sub
参考代码：
Dim arr(1 To 9) As Integer
Private Sub C1_Click()
Dim i As Integer
Open "in6.txt" For Input As 1
For i=1 To 9
Input #1, arr(i)
Text1.Text=Text1.Text+str(arr(i) )
Next
Close #1
C1.Enabled=False
End Sub
Private Sub C2_Click()
Dim i As Integer
Text1.Text=""
Open "out6.txt" For Output As 1
For i=1 To 9
arr(i)=arr(i) * arr(i)
Print #1, arr(i),
Text1.Text=Text1.Text+Str(arr(i) )
Next
Close #1
C2.Enabled=False
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表17-3。
表 17-3
|
对 象 |
下 标 |
属 性 |
设 置 值 |
| Label 数组 | Label(0) | Name Caption |
Label1 程序运行 |
| Label(1) | Name Caption |
Label1 文本编辑 | |
| Label(2) | Name Caption |
Label1 双向箭头 | |
| Label(3) | Name Caption |
Label1 移动窗体 |
程序提供的代码：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Form1.?=0
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift _
As Integer, X As Single, Y As Single)
'Select Case ?
Case 0
Form1.MousePointer=11
Case 1
Form1.MousePointer=3
Case 2
Form1.MousePointer=7
Case 3
Form1.MousePointer=5
End Select
End Sub
参考代码：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.MousePointer=0
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer,
Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0
Form1.MousePointer=11
Case 1
Form1.MousePointer=3
Case 2
Form1.MousePointer=7
Case 3
Form1.MousePointer=5
End Select
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 打开文件的命令是Open，其常用形式为：Open“文件名”For模式As[#]文件号[Len=记录长度]，对文件的写操作所用的命令是Write#或Print#命令，其形式分别为：Print#文件号，[输出列表]；Write#文件号，[输出列表]，二者区别是Write#是以紧凑格式存放，即在数据项之间插入逗号，并给字符串加上双引号。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表17-4。
表 17-4
|
对 象 |
属 性 |
设 置 值 |
| Text | Name text |
Text1 空 |
| Commandbutton | Name Caption |
C1 读入 |
| Commandbutton | Name Caption |
C2 计算并保存 |
程序提供的代码：
Dim arr(1 To 9) As Integer
Private Sub C1_Click()
Dim i As Integer
'? "in6.txt" For Input As 1
For i=1 To 9
Input #1, arr(i)
Text1.Text=Text1.Text+Str(arr(i) )
Next
Close #1
C1.Enabled=False
End Sub
Private Sub C2_Click()
Dim i As Integer
Text1.Text=""
Open "out6.txt" For Output As 1
For i = 1 To 9
arr(i)=arr(i) * arr(i)
'Print #1, ?,
Text1.Text=Text1.Text+Str(arr(i) )
Next
Close #1
C2.Enabled=False
End Sub
参考代码：
Dim arr(1 To 9) As Integer
Private Sub C1_Click()
Dim i As Integer
Open "in6.txt" For Input As 1
For i=1 To 9
Input #1, arr(i)
Text1.Text=Text1.Text+str(arr(i) )
Next
Close #1
C1.Enabled=False
End Sub
Private Sub C2_Click()
Dim i As Integer
Text1.Text=""
Open "out6.txt" For Output As 1
For i=1 To 9
arr(i)=arr(i) * arr(i)
Print #1, arr(i),
Text1.Text=Text1.Text+Str(arr(i) )
Next
Close #1
C2.Enabled=False
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。