Private Sub Command1_Click()
Dim nian, yue, ri As Integer
Dim sfzh As String
sfzh = Text1.Text
nian = Mid(sfzh, 7, 4)
yue = Mid(sfzh, 11, 2)
riri = Mid(sfzh, 13, 2)
[……]
Private Sub Command1_Click()
Dim a, b, mj, zhch As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a = 0 Or b = 0 Then
MsgBox "你见过没有长或宽的矩形吗", vbOKOnly, "提示"
Else
zhch = (a + b) * 2
Text4.Text = zhch
mj = a * b
Text3.Text =[……]
Private Sub Command1_Click()
Dim name, mima As Single
name = Text1.Text
mima = Val(Text2.Text)
If name = "abc" And mima = 123456 Then
MsgBox "登陆成功", vbOKOnly, "恭喜你。。"
Else
MsgBox "登录失败", vbOKOnly, "提示"
Text1.SetFocus
End If
E[……]
玩趣儿
最新评语