2. 计算机
  3. 考生文件夹下有一个工程文件sjt5．vbp。运行程序后，从文件中读出数据，将其放入一个5×5的二维数组a中。请编写程序，找出数组a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中，最

考生文件夹下有一个工程文件sjt5．vbp。运行程序后，从文件中读出数据，将其放入一个5×5的二维数组a中。请编写程序，找出数组a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中，最

admin2020-07-22  72
问题  考生文件夹下有一个工程文件sjt5．vbp。运行程序后，从文件中读出数据，将其放入一个5×5的二维数组a中。请编写程序，找出数组a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中)。
    注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(5, 5) As Integer Dim b(5) As Integer Dim c(5) As Integer Private Sub Command1_Click() N = 5 For i = 1 To N ’＝＝＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝ ’＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝ Next i Save End Sub Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & "\Data5.txt" For Input As #1 Do While Not EOF(1) 　　　　For i = 1 To 5 　　　　　　For j = 1 To 5 　　　　　　　　Input #1, a(i, j) 　　　　　　Next j 　　　　Next i Loop Close #1 End Sub Public Sub Save() Open App.Path & "\out5.txt" For Output As #1 For i = 1 To 5 　　　　Print #1, b(i), c(i) Next i Close #1 End Sub 程序结束 参考答案 Max = a(i, 1) For j = 1 To 5 If Max < a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/3uHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)