你可能感兴趣的试题
Private Sub Form Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1．Text=Chr(KeyCode-4) End Sub Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1．Text=Text1．Text+Chr(KeyCode-4) End Sub Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1．Text=Text1．Text+Chr(KeyCOde-4) End Sub Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1．Text=Chr(KeyCode-4) End Sub
Text SelText Control Form
degree=1 degree=2 degree=3 degree=4
Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End Sub Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
degree=1 degree=2 degree=3 degree=4
degree=1 degree=2 degree=3 degree=4
the border flange ’s excursion and flection the both end shafts line ’s accordance the border flange ’s flection and the both end shafts line ’s accordance the border flange ’s accordance and both end shafts flection degree
湘公网安备 43130202000226号