Do
key = WaitKey()
Select Case key
Case 112
KeyPress "1", 1
KeyPress "2", 1
KeyPress "3", 1
Case 113
KeyPress "4", 1
KeyPress "5", 1
KeyPress "6", 1
Case 114
KeyPress "7", 1
KeyPress "8", 1
KeyPress "9", 1
End Select
loop
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024