UC知道vb 为什么不输出最大值
来源：百度知道 编辑：UC知道 时间：2024/05/15 09:41:47
Static max As Integer
n1 = InputBox("ÊäÈëÐÐÊý")
n = Val(n1)
m1 = InputBox("ÊäÈëÁÐÊý")
m = Val(m1)
ReDim a(n, m) As Integer
For x = 1 To n
For y = 1 To m
p = InputBox("ÊäÈë")
a(x, y) = p
Next y, x
For x = 1 To n
For y = 1 To m
Print a(x, y); " ";
Next y
Print
Next x
max = a(1, 1)
For x = 1 To n
For y = 1 To m
If max < a(x, y) Then
max = a(x, y)
m = x
n = y
End If
Next y, x
Print max, m, n
End Sub
为什么不输出最大的值？错在那里了？
谢谢帮忙解决
n1 = InputBox("ÊäÈëÐÐÊý")
n = Val(n1)
m1 = InputBox("ÊäÈëÁÐÊý")
m = Val(m1)
ReDim a(n, m) As Integer
For x = 1 To n
For y = 1 To m
p = InputBox("ÊäÈë")
a(x, y) = p
Next y, x
For x = 1 To n
For y = 1 To m
Print a(x, y); " ";
Next y
Next x
max = a(1, 1)
For x = 1 To n
For y = 1 To m
If max < a(x, y) Then
max = a(x, y)
m = x
n = y
End If
Next y, x
Print max, m, n
End Sub
为什么不输出最大的值？错在那里了？
谢谢帮忙解决
If max < a(x, y) Then
max = a(x, y)
m = x '-------
n = y '-------
'------关键在这里。
End If
重新定义两的变量把 m,n 换了。
好像没有错误吧,可以输出最大值的啊.
你的是什么问题呢?
是不是屏幕上每显示呢?
你吧窗体的autoredraw属性设为true