niusouti.com
注意：下面出现的“考生文件夹”均为C：\wexam\25160002。在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 32 43 76 58 28 12 98 57 31程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，并输出矩阵左上-右下对角线上的数
题目
注意：下面出现的“考生文件夹”均为C：\wexam\25160002。
在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：
42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 32 43 76 58 28 12 98 57 31
程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，并输出矩阵左上-右下对角线上的数据，如图24-5所示。
在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
相似考题
更多“ 注意：下面出现的“考生文件夹”均为C：\wexam\25160002。在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：4”相关问题
-
第1题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在窗体上有三个菜单，名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2，如图21-7所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整，将注释号(')去掉。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
正确答案：使用Open方法和Close方法打开和关闭文件使用循环语句把整数赋给数组。在计算输出时先定义一个变量用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
'? #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
使用Open方法和Close方法打开和关闭文件，使用循环语句把整数赋给数组。在计算输出时，先定义一个变量，用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加，将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
'? #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第2题：
注意：下面出现的“考生文件夹”均为K:\K01\15010005。
******本题型共有5小题******
1. 在考生文件夹下的GOOD文件夹中，新建一个文件夹FOOT。
2. 将考生文件夹下JIAO\SHOU文件夹中的LONG.DOC文件重命名为DUA.DOC。
3. 搜索考生文件夹下的DIAN.EXE文件，然后将其删除。
4. 将考生文件夹下CLOCK\SEC文件中的文件夹ZHA复制到考生文件夹下。
5. 为考生文件夹下TABLE文件夹建立名为TT的快捷方式，存放在考生文件夹下的MOON文件夹中。
正确答案：1.双击考生文件夹下的GOOD文件夹将其打开在空白处右击选择新建选择文件夹输入FOOT在空白处单击。 2.分别双击JIAO和SHOU将其打开单击LONG.DOC文件选择重命名输入DUA.DOC在空白处单击即可。 3.回到考生文件夹单击工具栏上的搜索按钮选择右边导航区的文档输入DIAN.EXE等搜索到之后单击停止右键单击刚刚搜索到的文件选择删除单击确定。 4.分别双击CLOCK和SEC文件夹将其打开单击ZHA文件夹选择复制回到考生文件夹在空白处右击选择粘贴。 5.右击TABLE选择创建快捷方式将其命名为TT单击TT快捷方式选择剪切回到考生文件夹双击MOON将其打开在空白处右击选择粘贴。
1.双击考生文件夹下的GOOD文件夹将其打开，在空白处右击，选择新建，选择文件夹，输入FOOT，在空白处单击。 2.分别双击JIAO和SHOU，将其打开，单击LONG.DOC文件，选择重命名，输入DUA.DOC，在空白处单击即可。 3.回到考生文件夹，单击工具栏上的搜索按钮，选择右边导航区的文档，输入DIAN.EXE，等搜索到之后，单击停止，右键单击刚刚搜索到的文件，选择删除，单击确定。 4.分别双击CLOCK和SEC文件夹将其打开，单击ZHA文件夹，选择复制，回到考生文件夹，在空白处右击，选择粘贴。 5.右击TABLE，选择创建快捷方式，将其命名为TT，单击TT快捷方式，选择剪切，回到考生文件夹，双击MOON，将其打开，在空白处右击，选择粘贴。 -
第3题：
请在考生文件夹下完成如下操作： （1）请在考生文件夹下建立“考生”文件夹；（2）在“考生”文件夹下建立一个名为“TEST”的文本文件，并输入内容为“让世界充满爱”； （3）设置“TEST”文件为只读属性。
①打开考生文件夹，单击鼠标右键，选择“新建”→“文件夹”，修改新文件夹的默认名称“新建文件夹”为“考生”。
②在新建的“考生”文件夹下，单击鼠标右键，选择新建“文本文档”，将该文本文件命名为“TEST”，并输入内容；
③选择“TEST”文本文件，单击鼠标右键，选择“属性”，在打开的“属性”窗口中选中“只读”复选按钮，最后单击“确定”按钮。
略 -
第4题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
去掉程序中的注释符，把程序中的?改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。
在窗体上有三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，还有一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如图22-8所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
正确答案：在Visual Basic中菜单项通过菜单编辑器来建立。 程序中用到的Mod是取模的运算符如：N Mod 3=0则说明余数为0N能被3整除否则N不能被3整除。对文件的操作都有3个步骤：打开(Open)、读写、关闭(Close)。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表22-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
'?#1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100
If Arr(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
'temp=temp+9
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100
If Art(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
在Visual Basic中，菜单项通过菜单编辑器来建立。 程序中用到的Mod是取模的运算符，如：N Mod 3=0则说明余数为0，N能被3整除，否则N不能被3整除。对文件的操作都有3个步骤：打开(Open)、读写、关闭(Close)。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表22-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
'?#1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100
If Arr(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
'temp=temp+9
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100
If Art(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第5题：
注意：下面出现的“考生文件夹”均为K：\K01\1501001。
1. 将考生文件夹下SINK文件夹中的文件夹GUN复制到考生文件夹下的PHILIPS文件夹中，并更名为BATTER。
2. 将考生文件夹下SUICE文件夹中的文件夹YELLOW的隐藏属性撤销。
3. 在考生文件夹下MINK文件夹中建立一个名为WOOD的新建文件夹。
4. 将考生文件夹下POUNDER文件夹中的文件NIKE.PAS移动到考生文件夹下NIXON文件夹中。
5. 将考生文件夹下BLUE文件夹中的文件SOUPE.FOR删除。
正确答案：双击考生文件夹双击SINK文件夹将其打开右击GUN文件夹在弹出的快捷菜单中选择“复制”命令然后单击工具栏上的“后退”按钮回到考生文件夹再双击PHILIPS文件夹将其打开右击任意空白处在弹出的快捷菜单中单击选择“粘贴”命令右击刚刚粘贴的文件在弹出的快捷菜单中选择“重命名”命令输入文件名为BATTER。 双击考生文件夹下的SUICE文件夹右击YELLOW文件夹在弹出的快捷菜单中选择“属性”命令在弹出的对话框中取消选中“只读”属性。 双击MINK文件夹将其打开右击任意空白处在弹出的快捷菜单中选择“新建文件夹”命令右击新建的文件夹在弹出的快捷菜单中选择“重命名”命令输入文件名WOOD。 双击POUNDER文件夹将其打开单击NIKE.PAS文件夹将其选中单击左侧导航区的“移动这个文件夹”按钮在弹出的菜单中选择路径的为考生文件夹下的NIXON然后单击“移动”按钮。 双击考生文件夹下的BLUE将其打开右击SOUPE.FOR文件夹在弹出的菜单栏中选择“删除”单击“确定”按钮。
双击考生文件夹，双击SINK文件夹将其打开，右击GUN文件夹，在弹出的快捷菜单中选择“复制”命令，然后单击工具栏上的“后退”按钮回到考生文件夹，再双击PHILIPS文件夹，将其打开，右击任意空白处，在弹出的快捷菜单中单击选择“粘贴”命令，右击刚刚粘贴的文件，在弹出的快捷菜单中选择“重命名”命令，输入文件名为BATTER。 双击考生文件夹下的SUICE文件夹，右击YELLOW文件夹，在弹出的快捷菜单中选择“属性”命令，在弹出的对话框中取消选中“只读”属性。 双击MINK文件夹将其打开，右击任意空白处，在弹出的快捷菜单中选择“新建文件夹”命令，右击新建的文件夹在弹出的快捷菜单中选择“重命名”命令，输入文件名WOOD。 双击POUNDER文件夹将其打开，单击NIKE.PAS文件夹将其选中，单击左侧导航区的“移动这个文件夹”按钮，在弹出的菜单中选择路径的为考生文件夹下的NIXON，然后单击“移动”按钮。 双击考生文件夹下的BLUE将其打开，右击SOUPE.FOR文件夹，在弹出的菜单栏中选择“删除”，单击“确定”按钮。