用VB程序编写，显示鼠标左、右键和键盘的AXC码

你所说的应该是ASCII码吧。
鼠标没有ASCII，只有VB中的一个代号。键盘有ASCII码。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_KeyPress(KeyAscii As Integer)
Debug.Print "键盘ASCII码：", KeyAscii
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print "鼠标码：", Button
End Sub

鼠标左右键貌似没有asc码 只有键盘。。
一个text控件 在里面输入任意键盘按键
Private Sub Text1_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub