第一个文本框得到焦点时，点击窗体界面上的数字键，相应数字连续出现在第一个文本框
文本框获得焦点时会自动触发GotFocus事件，设一开关变量，当文本框1或文本框2获得焦点时，在其GotFocus事件过程中赋予不同的值，此变量的值用于点击数字键时判断应在哪个文本框出现连续数字。
用易语言怎么写这段代码

不妨把按钮全部拿掉用数字键盘

VB代码是这样的，求易语言代码学习
Option Explicit
Dim Last As Integer
Dim OpCode As Integer
Dim T As Integer, F As Integer
Private Sub cmdCls_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub cmdExit_Click()
If MsgBox("确定退出?", vbOKCancel) = vbOK Then End
End Sub
Private Sub cmdView_Click()
MsgBox "正确答题数:" & T & vbCrLf & "错误答题数:" & F, vbInformation
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
Controls("Text" & Last).Text = Controls("Text" & Last).Text & CStr(Index)
Case 10 To 13
Label4.Caption = Command1(Index).Caption
End Select
End Sub
Private Sub Form_Load()
Last = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
cmdExit_Click
End Sub
Private Sub Text1_GotFocus()
Last = 1
End Sub
Private Sub Text2_GotFocus()
Last = 2
End Sub
Private Sub Text3_GotFocus()
Last = 3
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then *//Enter Pressed
Select Case Label4.Caption
Case "+"
If CLng(Text1.Text) + CLng(Text2.Text) = CLng(Text3.Text) Then
T = T + 1
Else
F = F + 1
End If
Case "-"
If CLng(Text1.Text) - CLng(Text2.Text) = CLng(Text3.Text) Then
T = T + 1
Else
F = F + 1
End If
Case "*"
If CLng(Text1.Text) * CLng(Text2.Text) = CLng(Text3.Text) Then
T = T + 1
Else
F = F + 1
End If
Case "/"
If CLng(Text1.Text) / CLng(Text2.Text) = CLng(Text3.Text) Then
T = T + 1
Else
F = F + 1
End If
End Select
Label5.Caption = "已答题数:" & T + F
End If
End Sub

VB你跑来易吧问！？
　　　--这是一条神奇的小尾巴ฏ๎๎๎๎๎๎๎๎๎ฏฏด้้้้้็็็็็้้้้้็็็็็้้้้้็็็้็็็ฏ๎็็็็็็o

组件事件里有获取焦点的子程序，获取焦点后用变量决定输入的编辑框

可以用个变量啊

伸手党 自己转

看这个软件的标题，果然是VB写的

ฏ๎๎๎๎๎๎๎๎๎ฏฏด้้้้้็็็็็้้้้้็็็็็้้้้้็็็้็็็ฏ๎็็็็็็o