例如计算这100个学生成绩的平均分,可用：s=0ؤfork=0

例如计算这100个学生成绩的平均分,可用：s=0ؤfork=0内容摘要：

s = 0 39。 累加前清 0 For c = 1 To 3 39。 累加同一行数据 s = s + a(r, c) Next c Print r, Format(s / 3, .0) Next r Print Print 课程 , 平均分 Print String(20, ) For c = 1 To 3 s = 0 For r = 1 To 5 39。 累加同一列数据 s = s + a(r, c) Next r Print k(c), Format(s / 5, .0) Next c End Sub 程序运行结果 排列要求 小 大 示例： a(1) a(2) a(3) a(4) 90 64 65 59 1. a(1)与 a(2) ～ a(4)比较，选出最小值，结果 59 90 65 64 2. a(2)与 a(3) ～ a(4)比较，选出次小值，结果 59 64 90 65 3. a(3)与 a(4)比较，选出较小值，结果 59 64 65 90 i=1 j=2, 3, 4 i=2 j=3, 4 i=3 j=4 For i=1 to 3 For j=i+1 to 4 …… Next j Next i 程 序 结 构 Print: Print For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t 39。 交换位置 End If Next j Next i Print 排序结果： For i = 1 To 10 Print a(i)。 Next i End Sub 改写中间程序段“ For i=1 To 9”～“ Next i”(共 7个程序行 ) For i = 1 To 9 k = i „k用来记录每次选择的最小值的下标 For j = i + 1 To 10 If a(k) a(j) Then k = j End If Next j t = a(k): a(k) = a(i): a(i) = t 39。 交换位置 Next i 变量 k记录每一次选出的最小值的下标，在本次比较结束后，使 a(i)与 a(k)一次换位即可 (3)编写程序代码 功能要求： 用户在文本框 Text1中输入准考证号码，单击“查找”按钮 (Command1)后，则查找出对应的教室，并将教室号码输出在文本框 Text2中 Dim rm(6, 3) As Integer Private Sub Form_Load() „输入数组数据 rm(1, 1) = 2101: rm(1, 2) = 2147: rm(1, 3) = 102 rm(2, 1) = 1741: rm(2, 2) = 1802: rm(2, 3) =。