Print"输入字符:";Chr( KeyAscii)," ASCII码为;"; Keyascii End sub Private Sub Form DblClick o CI nd sub 7.产生这三个消息框的相应语句是 产生第1个消息框:x= MsgBox("在这里显示提示信息",4+0,"请确认") 产生第2个消息框:x= MsgBox("在这里显示"+Chr(13)+"提示信息”,3+0,"请确认") 产生第3个消息框:x= MsgBox("在这里显示"+Chr(13)+"提示信息",2+16+0,"请确认") 第4章习题 单选题 8.B 9.B 10.(1)D(2)A(3)B 二、多选题 1. ABCFGHJ 4. CDE 三、填空题 1.(S And(A>=18 And A<=20) And H> Or (Not s And (A>=16 And Age<=18) And H>=1. 60) 2.60000 3.(1)"0"To 2)a" To"Z", A" To"Z"(3)Else 4.(1)6(2)2(3)2 5. Select Case x Case is< 20 se Is <=0 Case Is 30 Case Is Case else Case is< 15 4 End Select 6.(1)(x>100)And(xMod5=0) (2)0 (3)Len(TextI, Text (4)TextI SelText 编程及上机调试 1.在窗体上建立两个文本框 TextI(输入数)及Text2(显示结果),一个命令按钮 Commandl(“判断”)。 Private Sub Commandl Click “判断” x=Val(Textl Text) If x Mod 2=0 Then Text2.Text="偶数 Else消息 Text2.Text="奇数 End sub 2.窗体上建立了一个文本框Text1,用于显示结果。 Private Sub Form Load O Val( InputBox("请输入星期几(0~6)")) Select cas 0 Text1..Text="星期日( Sunday) Case Is =1 Text1.Text="星期一(Mor4 Print "输入字符："; Chr(KeyAscii), "ASCII 码为;"; KeyAscii End Sub Private Sub Form_DblClick() Cls End Sub 7. 产生这三个消息框的相应语句是： 产生第 1 个消息框：x = MsgBox("在这里显示提示信息", 4 + 0, "请确认") 产生第 2 个消息框：x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认") 产生第 3 个消息框：x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认") 第 4 章习题 一、单选题 1．C 2．A 3．C 4．C 5. B 6. A 7．D 8．B 9．B 10．(1)D (2)A (3)B 二、多选题 1．ABCFGHJ 2．BE 3．CD 4. CDE 5. AE 三、填空题 1．(S And (A>=18 And A <=20) And H>=1.65) Or (Not S And (A>=16 And Age<=18) And H>=1.60) 2. 60000 3. (1) "0" To "9" (2) "a" To "z","A" To "Z" (3) Else 4．(1)6 (2)-2 (3)2 5． Select Case x Case Is < 20 Case Is <= 0 y = 2 y = 4 Case Is <= 30 Case Is < 10 y = 3 y = 0 Case Else Case Is < 15 y = 4 y = 1 End Select 6．(1) (x>100) And (x Mod 5=0) (2) 0 (3) Len(Text1.Text) (4) Text1.SelText 编程及上机调试 1. 在窗体上建立两个文本框 Text1(输入数)及 Text2(显示结果)，一个命令按钮 Command1(“判断”)。 Private Sub Command1_Click() '“判断” x = Val(Text1.Text) If x Mod 2 = 0 Then Text2.Text = "偶数" Else 消息 Text2.Text = "奇数" End If End Sub 2．窗体上建立了一个文本框 Text1，用于显示结果。 Private Sub Form_Load() x = Val(InputBox("请输入星期几(0～6)")) Select Case x Case Is = 0 Text1.Text = "星期日(Sunday)" Case Is = 1 Text1.Text = "星期一(Monday)