VB实例源码(完整资料).doc

【最新整理，下载后即可编辑】

课前体验

Private Sub Form_Click() For i = 1 To 10

For j = 1 To i Print \Next j Print Next i End Sub 【例3-1】

Private Sub Form_Click() c1$ = Chr$(13) + Chr$(10)

msg1$ = \请输入您的名字: \msg2$ = \输入后按回车键\

msg3$ = \或单击“确定”按钮\

msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$

name$ = InputBox(msg$, \函数示例\张三\Print name$

End Sub 【例3-2】

Private Sub Form_Click()

Msg1$=”Are you Continue to?” msg2$=”Operation Dialog Box” r=MsgBox(msg1$,34,msg2$) Print r

End Sub

【例3-3】编写程序，用MsgBox函数判断是否继续执行。

Private Sub Form_Click()

msg$ = \请确认此数据是否正确\ Title$ = \数据检查对话框\ x = MsgBox(msg$, 19, Title$)

【最新整理，下载后即可编辑】

If x = 6 Then Print x * x

ElseIf x = 7 Then

Print \请重新输入\ End If

End Sub 【例3-5】

Private Sub Form_Click() Print: Print

FontName = \隶书\ FontSize = 16

Print \姓名\年龄\职务\ Print Tab(24); \单位\籍贯\ Print

Print \吴大明\Tab(8); 25; Tab(16); \职员\Tab(24); \人事科\Tab(32); \北京\End Sub

【例3-6】

Private Sub Form_Click()

X = InputBox(\请输入成绩\学生成绩录入\Print x End Sub 【例3-7】

Private Sub Form_Click()

Dim x As Single, y As Single

x=InputBox(“请输入x的值”)

If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1 Print “x=”; x ,”y=” ; y End Sub 【例3-8】

Private Sub Form_Click()

【最新整理，下载后即可编辑】

Dim msg, UserInput

msg = \请输入一个字母或0～9之间的数字.\

UserInput = InputBox(msg) ‘输入一个字母或数字 If Not IsNumeric(UserInput) Then ‘判断是否是数字 If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1

Select Case Asc(UserInput) ‘判断输入字母的ASCII码值

Case 60 To 90 '在60-90之间为大写字母

msg = \你输入的是一个大写字母'\

msg = msg & Chr(Asc(UserInput)) & \。\ Case 97 To 122 '小写字母 msg = \你输入的是一个小写字母'\

msg = msg & Chr(Asc(UserInput)) & \。\ Case Else

msg = \你没有输入字母或数字.\ End Select End If

Else

Select Case Val(UserInput) '将输入的数值型字符转换为数值 Case 1, 3, 5, 7, 9 '如果是奇数 msg = UserInput & \是一个奇数。\ Case 0, 2, 4, 6, 8 '如果是偶数 msg = UserInput & \是一个偶数。\ Case Else '出界 msg = \你输入的数字不在0～9范围内\ End Select End If

MsgBox msg End Sub

【最新整理，下载后即可编辑】