第3章 课前体验 Private Sub Form Click I To 10 【例3-1】 Private Sub Form Click msgIs="请输入您的名字: msg2s="输入后按回车键 msg3s="或单击“确定”按钮 names= Input Box(msgs," Input Box函数示例","张三") Print names nd Sub 【例3-2】 Private Sub Form Click rMsg Box( msg lS, 34, msgs) P End Sub 【例3-3】编写程序,用 MsgBox函数判断是否继续执行 msgs="请确认此数据是否正确 ites="数据检查对话框 x= Msg Box(msgS, 19, Titles) Print sx Elself x=7 Then Print"请重新输入 【例3-5】 Private Sub Form Click Fonts ize=16 Pint”姓名";Tab(8);"年龄";Tab(16),"职务
1 第 3 章 课前体验 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"吴大明";Tab(8),25;lab(16);"职员";Tb(24,"人事科";Tab(32),"北京 Print"吴大明";lab(8),25;Tab(16);"职员";Tab(24;"人事科";Iab(32),"北京 End Sub 【例3-6】 Private Sub Form Click Ⅹ= Input Box("请输入成绩"”,"学生成绩录入","°0°) Print End sub 【例3-7】 Private Sub Form Click Dim x As Single, y As Single Input Box(“请输入x的值”) If x>0 Then y=l Elself x0Then y=0 Else y=I End Sub 【例3-8】 Private Sub Form Click msg="请输入一个字母或0~9之间的数字 输入一个字母或数字 If Not IsNumeric(UserInput) Then 判断是否是数字 If en(UserInput)=I Then 不是数字时,判断输入的字符串长度是否为1 Select Case Asc(UserInput) 判断输入字母的ASCI码值 Ca 在60-90之间为大写字母 msg="你输入的是一个大写字母" msg=msg Chr(Asc(UserInput)& Case 97 小写字母 msg="你输入的是一个小写字母 msg=msg Chr(Asc(Userlnput)& Case else g="你没有输入字母或数字 End Select If Select Case Val(UserInput) 将输入的数值型字符转换为数值 Case 1,3,5,7,9 如果是奇数 msg= UserInput&”是一个奇数 aseO,2,4,6,8 如果是偶数 msg= UserInput&"是一个偶数。 Case elso 出界 msg="你输入的数字不在0~9范围内” End Select
2 Print Tab(24); "单位"; Tab(32); "籍贯" Print Print "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京" 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 sub 【例3-8】 Private Sub Form Click msg=”请输入一个字母或0~9之间的数字 UserInput= Input Box(msg) 输入一个字母或数字 If Not IsNumeric(UserInput) Then 判断是否是数字 If Len(UserInput)=1 Then 不是数字时,判断输入的字符串长度是否为1 Select Case Asc(UserInput) 判断输入字母的ASCI码值 Case 在60-90之间为大写字母 msg="你输入的是一个大写字母 Case 97 To 122 小写字母 msg="你输入的是一个小写字母" msg= msg Chr(Asc(UserInput)& Case Else msg="你没有输入字母或数字 End Select End If Select Case Val(UserInput) 将输入的数值型字符转换为数值 Case 1,3,5,7,9 如果是奇数 msg= UserInput&”是一个奇数 Case0,2,4,6,8 如果是偶数 msg= UserInput&"是一个偶数。 出界 msg="你输入的数字不在0~9范围内 MsgBox msg End sub 【例3-10】 Sub Form Click Dimn as Integer n=Input Box("Enter N: 输入N的值 For i=I To N 循环N次,计算出N! Print:"I="k 数据输出 End Sub 【例3-12】
3 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 MsgBox msg End Sub 【例 3-10】 Sub Form_Click() Dim N As Integer n = InputBox("Enter N:") ‘输入 N 的值 k = 1 For i = 1 To N ‘循环 N 次，计算出 N！ k = k * I Next i Print N;”!=”;k ‘数据输出 End Sub 【例 3-12】
Dim S N S=0:N=0 Do While s<= 100 n=n+ Prints. n 【例3-13】 Private Sub Form Click Dim char As string har= Input Box("请输入一个字符”) While char<>"?" har= Input BoxS("请输入一个字符") Pint"输入的字符数是:"; Count End Sub 【例3-14】 Private Sub Form Click For i= 1 To 9 Next i For k= 1 To j Print Tab(k*6): j*k; Next 第4章 课前体验 (1)假定用来输入数学成绩的文本框名称为Text1,该文本框的 Lost focus事件过程如 下 Private Sub TextI LostFocuso If Val(Textl.Text)<0 Or Val(TextI, Text)>100 Then Text1. Text (2)其他文本框的 Lost Focus事件类似
4 Dim S, N S = 0: N = 0 Do While S <= 100 N = N + 1 S = S + N Loop Print S, N 【例 3-13】 Private Sub Form_Click() Dim char As String Count = 0 char = InputBox("请输入一个字符") While char <> "?" Count = Count + 1 char = InputBox$("请输入一个字符") Wend Print "输入的字符数是:"; Count End Sub 【例 3-14】 Private Sub Form_Click() Print " *"; For i = 1 To 9 Print Tab(i * 6); i; Next i Print For j = 1 To 9 Print j; For k = 1 To j Print Tab(k * 6); j * k; " "; Next k Print Next j End Sub 第 4 章 课前体验 （1）假定用来输入数学成绩的文本框名称为 Text1，该文本框的 LostFocus 事件过程如 下： Private Sub Text1_LostFocus() If Val(Text1.Text) < 0 Or Val(Text1.Text) > 100 Then Text1.Text = "" Text1.SetFocus End If End Sub （2）其他文本框的 LostFocus 事件类似
(3)假定按钮名称为 Command 1,该按钮的 Click事件过程如下 Private Sub Commandl Click If Check1 Value I Then Sum= Sum+ Val(TextI Text) If Check2 Value I Then Sum= Sum+ Val(Text2 Text) If Check3. value =I Then Sum= Sum Val(Text3Te If Check 4. Value= I Then Sum= Sum+ val(Text4Text If Checks. value=I Then Sum= Sum+ Val(Texts. Text Text6 Text Sum End sub 【例4-1】 Private Sub Command1 Click 在其单击事件中编程 For i= 1 To 6 外循环,控制输出几行 内循环,控制输出几列 Print 4 Print End sub 【例42】 Private Sub TextI Changeo Text2 Text=LCase(TextIText Text. Text =CAse(TextI Text) End Sub 【例4-3】 Private Sub CheckI Click Textl. FontUnderline not text FontUnderline End Sub Private Sub Check2 Click Textl. Fontltalic Not text. fontltalic End Sub Private Sub Option Click TextI Font="黑体 End sub Private Sub Option2 Click Text Font="宋 nd sub 【例44】 Private Sub Commandl Click f Option Then Textl FontName="宋体
5 （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 Check3.Value = 1 Then Sum = Sum + Val(Text3.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 i = 1 To 6 ‘外循环，控制输出几行 For j = 1 To i ‘内循环，控制输出几列 Print " * "; Next j Print ‘换行 Next i End Sub 【例 4-2】 Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text) End Sub 【例 4-3】 Private Sub Check1_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub Private Sub Check2_Click() Text1.FontItalic = Not Text1.FontItalic End Sub Private Sub Option1_Click() Text1.Font = "黑体" End Sub Private Sub Option2_Click() Text1.Font = "宋体" End Sub 【例 4-4】 Private Sub Command1_Click() If Option1 Then Text1.FontName = "宋体" Else