Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
   arr = Array(12, 15, 18, 20, 24)
   m1 = arr(1)
   m2 = 1
   If KeyAscii = 12 Then
   For i = 2 To 5
      If arr(i) > m1 Then
          m1 = arr(i)
          m2 = i
      End If
     Next i
   End If
   Print m1
   Print m2
End Sub
为什么运行的时候结果是12，1请高手指点下，非常感谢

If KeyAscii = 12 Then
   For i = 2 To 5
      If arr(i) > m1 Then
          m1 = arr(i)
          m2 = i
      End If
     Next i
   End If
这段代码属于废柴  12的键盘码不是数字12，是什么我忘了

回车键啊

扯13是回车好不

刚试了下，13才有效果