Question

vb编程练习题

求一个矩阵中的最大的数，这是参考答案，但是不明白和max=-32768比较的原理是什么，求解。
Sub main()
Dim m As Integer, n As Integer
Dim a() As Integer, i As Integer, j As Integer
Dim max As Integer, i1 As Integer, j1 As Integer
Open "in.txt" For Input As #1
Open "out.txt" For Output As #2
Input #1, m, n
ReDim a(m, n)
max = -32768

For i = 1 To m
For j = 1 To n
Input #1, a(i, j)
If a(i, j) > max Then
max = a(i, j)
i1 = i
j1 = j
End If
Next j
Next i

Print #2, i1; j1
Close #1, #2
End Sub

Answer 1

Integer 数据类型

Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符号 (%)。

代码中有一句
Dim max As Integer
所以先把max的初值取最小值 -32,768，然后把任何比max大的值赋值给max，以求得最大的max

Answer 2

楼上正解，在Integer数据类型中，-32768是最小的数了