vb 代码翻译

Question

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Static i As Integer
If KeyCode = 13 Then
If (Text1.Text) = "abcd" Then
Label2.Caption = "你已成功进入"
ElseIf i < 3 Then
i = i + 1
MsgBox "口令错！请重新输入"
Text1.SetFocus
Else
MsgBox "你无权进入系统"
End If
End If

End Sub

Answer 1

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
'Text1的键盘按下事件
Static i As Integer '声明变量i
If KeyCode = 13 Then '如果按下回车
If (Text1.Text) = "abcd" Then '如果Text1中的内容是abcd
Label2.Caption = "你已成功进入" 'Label2显示
ElseIf i < 3 Then '如果i小于3
i = i + 1 'i增加1
MsgBox "口令错！请重新输入" '对话框
Text1.SetFocus 'Text1得到焦点
Else
MsgBox "你无权进入系统" '对话框
End If
End If

End Sub

'这个程序虽然执行起来是没有问题的，但是3次输入的限制是起不到作用的，可以改成下面这样

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Static i As Integer
If KeyCode = 13 Then
If i < 3 Then
If (Text1.Text) = "abcd" Then
Label2.Caption = "你已成功进入"
Else
MsgBox "口令错！请重新输入"
Text1.SetFocus
End If
Else
MsgBox "你无权进入系统"
End If
i = i + 1
End If

End Sub

Answer 2

首先定义了一个事件：这个事件的意思就是在一个文本控件Text1中获取焦点后执行下面的程序。
static i as integer 这一句是定义了i为一个静态整形变量
if keycode = 13获取键盘值 如果是对应到13就 进行下面的程序
如果文本中输入的是 abcd 就在label控件上显示 "你已成功进入"

如果i<3
i就自加1
然后弹出个对话框说 "口令错!重新输入"
text1.setfocus 在获得一个焦点 就是在重新输一遍

Answer 3

一个登录的，密码abcd.有三次机会

Answer 4

Dim
d
As
Boolean
'定义全局变量d，代表移动方向
Private
Sub
Form_Load()
'程序启动时载入运行
Label1.Left
=
Me.Width
-
Label1.Width
'Label1移动到最靠窗体右边
Timer1.Interval
=
100
'定时器设置为0.1秒
d
=
True
'初始化d，方向向左
End
Sub
Private
Sub
Timer1_Timer()
If
d
Then
'如果d=true
Label1.Left
=
Label1.Left
-
90
'Label1向左移动90堤
Else
Label1.Left
=
Label1.Left
+
90
'否则Label1向右移动90堤
End
If
If
Label1.Left
<=
0
Then
'如果Label1超出窗体左边框
d
=
False
'方向改为向右
End
If
If
Label1.Left
>=
Me.Width
-
Label1.Width
-
240
Then
'如果Label1超出窗体右边框-240堤
d
=
True
'方向改为向左
End
If
End
Sub