VB实例源码VIP免费

1 课前体验 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); "籍贯" 2 Print Print "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京" End Su b 【例3-6】 Priv ate Su b Form_Click() X = Inpu tBox ("请输入成绩", "学生成绩录入", "00") Print x End Su b 【例3-7】 Priv ate Su b 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 Su b 【例3-8】 Priv ate Su b Form_Click() Dim msg, UserInpu t msg = "请输入一个字母或0～9 之间的数字." UserInpu t = Inpu tBox (msg) ‘输入一个字母或数字 If Not IsNu meric(UserInpu t) Then ‘判断是否是数字 If Len(UserInpu t) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInpu t) ‘判断输入字母的ASCII 码值 Case 60 To 90 '在 60-90 之间为大写字母 msg = "你输入的是一个大写字母'" msg = msg & Chr(Asc(UserInpu t))...