【单选题】在窗体上画一个命令按钮和一个文本框,并将窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=' ' Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) E...
【单选题】将窗体的KeyPreview属性设置为True,然后对窗体编写如下代码: Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = a(1) m2 = 1 If KeyAscii = 13 Then For i =2 To 5 If a(i)>m1 Then m1 =...
【简答题】将窗体的KeyPreview 属性设置为True ,然后编写如下事件过程:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode);End SubPrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)Print Chr(Ke...