Visual+Basic实例源代码..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 x0 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