作业帮 > 综合 > 作业

一道VB题,我做出来是和标准答案不同,只要第二步份.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/29 08:01:08
一道VB题,我做出来是和标准答案不同,只要第二步份.
Private Sub Command2_Click()
Sum = 0
For i = 1 To 20
Min = a(1,1)
For j = 2 To 5
If a(i,j) < Min Then
Min = a(i,j)
End If
Next j
Sum = Sum + Min
Next i
Text2.Text = Sum / 20
End Sub
打开代码编辑窗口,在指定位置编写以下代码:
参考代码:
Sum = 0
For i = 1 To 20
Min = a(1,1)
For j = 2 To 5
If Min > a(i,j) Then Min = a(i,j)
Next
Sum = Sum + Min
Next
Text2 = Sum / 20
写错了,上面是标准答案
Private Sub Command2_Click()
Sum = 0
For i = 1 To 20
Min = a(1, 1)
  For j = 2 To 5
      If a(i, j) < Min Then
      Min = a(i, j)
      End If
  Next j
  Sum = Sum + Min
Next i
Text2.Text = Sum / 20
End Sub
打开代码编辑窗口,在指定位置编写以下代码:
参考代码:
    Sum = 0
    For i = 1 To 20
    Min = a(i, 1)
    For j = 2 To 5
        If Min > a(i, j) Then Min = a(i, j)
    Next
    Sum = Sum + Min
    Next
    Text2 = Sum / 20
一道VB题,我做出来是和标准答案不同,只要第二步份.
Min = a(1, 1)
你这个是假设第一个元素是最小数,当i=2,也就是比较到第2行的时候,假如a(1,1)=5
但第2行最小一个数是7,也就是 If Min > a(i, j) Then Min = a(i, j)始终不成立,这样Min就取值为5,但实际上第2行最小数是7
因此应该是这样Min=a(i,1)即假设每行第一个元素是最小数