UC知道vb 我昨天二级考的最后一题答案对吗？
来源：百度知道 编辑：UC知道 时间：2024/06/06 13:01:54
这是我昨天考二级VB的最后一题，要求求出数组“a(20,5)”中每行最大数的平均数取整并显示在Text2中，这是我的代码，帮忙看看正确不？
Private Sub Command1_Click()
Dim jMax As Integer, iMax As Integer
For i = 1 To 20
For j = 1 To 5
If jMax < a(i, j) Then jMax = a(i, j)
Next j
iMax = iMax + jMax
Next i
Text2.Text = Str(iMax / 2)
End Sub
jloo9：
我知道你的意思，是我没说清楚，原题中数组是从下标1开始赋值的。所以总共是100个数，如果从下标0开始赋值，那就不只100个数了，呵呵。
Private Sub Command1_Click()
Dim jMax As Integer, iMax As Integer
For i = 1 To 20
For j = 1 To 5
If jMax < a(i, j) Then jMax = a(i, j)
Next j
iMax = iMax + jMax
Next i
Text2.Text = Str(iMax / 2)
End Sub
jloo9：
我知道你的意思，是我没说清楚，原题中数组是从下标1开始赋值的。所以总共是100个数，如果从下标0开始赋值，那就不只100个数了，呵呵。
我觉得正确。是我也是这样编！！
这种题目相当的简单,而且想要知道自己做的是不是对的,你可以自己上机调试一下嘛.
在倒数第二行:
Text2.Text = Str(iMax / 2)
这里应该是CInt(iMax / 20)(或者是其他的取整方法),我想应该是你打错了.
Private Sub Command1_Click()
Dim jMax As Integer, iMax As Integer
For i = 0 To 20
For j = 0 To 5
If jMax < a(i, j) Then jMax = a(i, j)
Next j
iMax = iMax + jMax
Next i
Text2.Text=Str(int(iMax/2))
End Sub