VB实例源码.doc

课前体验

Private Sub Form_Click()

For i = 1 To 10

For j = 1 To i

Print "* ";

Next j

Print

Next i

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$)

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

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

End Sub

Private Sub Form_Click()

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

Print x

End Sub

【例 3-7】

End Sub

Private Sub Form_Click()

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

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

msg = msg & Chr(Asc(UserInput)) & "'。"

msg = msg & Chr(Asc(UserInput)) & "'。"

Case Else

msg = "你没有输入字母或数字."

End Select

End If

Select Case Val(UserInput) '将输入的数值型字符转换为数值

Case 1, 3, 5, 7, 9 '如果是奇数

msg = UserInput & " 是一个奇数。"

Case 0, 2, 4, 6, 8 '如果是偶数

Case Else '出界

MsgBox msg

End Sub

【例 3-12】

N = N + 1

Print S, N

Private Sub Form_Click()

Wend

End Sub

Private Sub Form_Click()

Print " *";

For i = 1 To 9

Print Tab(i * 6); i;

Next i

Print

For j = 1 To 9

For k = 1 To j

Print

Next j

End Sub

课前体验

（1）假定用来输入数学成绩的文本框名称为 Text1，该文本框的 LostFocus 事件过程如

If Val(Text1.Text) < 0 Or Val(Text1.Text) > 100 Then

End If

End Sub

（2）其他文本框的 LostFocus 事件类似。

（3）假定按钮名称为 Command1，该按钮的 Click 事件过程如下：

Private Sub Command1_Click()

If Check1.Value = 1 Then Sum = Sum + Val(Text1.Text)

If Check2.Value = 1 Then Sum = Sum + Val(Text2.Text)

If Check4.Value = 1 Then Sum = Sum + Val(Text4.Text)

If Check5.Value = 1 Then Sum = Sum + Val(Text5.Text)

Text6.Text = Sum

End Sub

【例 4-1】

Private Sub Command1_Click() ‘在其单击事件中编程

For j = 1 To i ‘内循环，控制输出几列

Next j

Print ‘换行

End Sub

Private Sub Text1_Change()

End Sub

【例 4-3】

Private Sub Check1_Click()

Text1.FontUnderline = Not Text1.FontUnderline

End Sub

Private Sub Option1_Click()

End Sub

Private Sub Option2_Click()

Text1.Font = "宋体"

End Sub

【例 4-4】

If Option1 Then

Else

Text1.FontName = "黑体"

End If

If Option3 Then

Text1.FontSize = 8

Text1.FontSize = 10

End If

End Sub

Private Sub Command2_Click()

lstBooks.AddItem "操作系统"

lstBooks.AddItem "网络技术基础"

End Sub

Private Sub cmdAdd_Click()

‘单击添加命令按钮时将文本框中输入的内容添加到列表框中

lstBooks.AddItem txtItem

txtItem = ""

End Sub

Private Sub cmdDelete_Click()

‘删除列表框中选中的项目

lstBooks.RemoveItem lstBooks.ListIndex