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$, "InputBox 函数示例", "张三")

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 " 姓名"; Tab(8); "年龄"; Tab(16); "职务";

Print Tab(24); "单位"; Tab(32); "籍贯"

Print

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

End Sub

【例3-6】

Private Sub Form_Click()

X = InputBox("请输入成绩", "学生成绩录入", "00")

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

【例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