如何用VB写一个程序以判断是敲击了左control键还是右control键？请高手指点，谢谢!

Question

我看到了你的留言，但是使用keydown,keypress,keyup事件无法识别特殊功能KEY的左右键，譬如shift,control,alt。 你讲的使用API函数，我倒是查了一些API函数，但不知道怎么用，你教教我吧，谢谢

Answer 1

Dim i, j, intmin As Integer, n As Integer
Dim sngsq(), sngt As Single '输入原始数据
n = 5 'Val(InputBox("请输入排序的个数N的值"))
ReDim sngsq(n) '重新定义数组
Print "排序前"
For i = 1 To n
MsgBox "请输入第" & Str(i) & "个数:"
sngsq(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型
Print sngsq(i);
Next
Print
Print "排序后"
'排序
For i = 1 To n - 1
intmin = i '对第i遍排序，初始假定第i个元素最小
For j = i + 1 To n '找出最小的元素序号
If sngsq(j) < sngsq(intmin) Then intmin = j
Next j
'将找出的最小元素与第i个元素交换
sngt = sngsq(i)
sngsq(i) = sngsq(intmin)
sngsq(intmin) = sngt
Next i
'打印输出
For i = 1 To n
Print sngsq(i); '不换行输出
Next i

Answer 2

键盘可以触发keydown、keypress、keyup事件，调用相关API函数就可以了