大学常见的vb编程题.pdf

: .
vb

ub CmdPas_Click()
= str
End Sub
Priv ate Sub Form_Load()
Textl = ',H
Text2 二””
End Sub例 2 .3 用户登录
Option Explicit
Dim n%
Priv ate Sub Command 1 _Click()
Dim a%, b%, c%
If Text 1 = ,n, Then
MsgBox (”请输入用户名”)
Exit Sub
End If
IfText2 = ,,n Then
MsgBox ("请输入密码”)
Exit Sub
End If
If Len(Trim(Text2)) <> 6 Then
MsgBox ("密码必须为6 位 ！")
End If
If Trim(Textl) = uabcH And Trim(Text2) = M123456" Then
a = MsgBox("欢迎使用本系统！ 登录”)
Else
n = n + 1
If n >= 3 Then c = MsgBox("你 无 权 登 录 本 系 统 ! ”,.
，"密码错误"):End
b = MsgBox。输入错误，再试一次！ 密码错误")
End If
End Sub
Priv ate Sub Form_Load()
Textl =
Text2 = ',H
End Sub
Priv ate Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then
MsgBox ”你必须输入数字”
SendKeys " {home}+ {end)"
End If
End Sub
例 2 .6 打印九九乘法表
Priv ate Sub Command3_Click()
For i = 1 To 9
Forj = 1 Toi
se = j & ux ,'& i & ' ,= " & i* j
Picture Tab((j - 1) *9 + 1); se;
Next j
Picture!.Print
Next i
End Sub
第五章............
Priv ate Sub Form_Click()
msgl$ = ”请输入姓名：”
msgtitle$ = "学生情况登记”
msg2$ = ”请输入年龄：”
msg3$ = ”请 输 入 性 别 :“
msg4$ = ”请输入籍贯”
studname$ = InputBox(msgl$, msgtitleS)
studage = InputBox(msg2$, msgtitle$)
studsexS = InputBox(msg3$, msgtitle$)
studhome$ = InputBox(msg4$, msgtitle$)
Cis
Print studname$; studsexS;n, 现年”;
Print studage;"岁"；"，"；studhome$;"人"
End SubPriv ate Sub Form_Click()
cl$ = Chr$(13) + Chr$(10)
msgl$ = ”输入雇客名字： ”
msg2$ = ”输入后按回车键”
msg3$ = "或单击确定按钮”