[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正确内容

[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (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对　象下　标属　性设　置　值　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 第三步：调试并运行程序。 第四步：按题目要求存盘。