《VisualBasic程序设计基础》-陈庆章课后习题参考-答案~.doc

《《VisualBasic程序设计基础》-陈庆章课后习题参考-答案~.doc》由会员分享，可在线阅读，更多相关《《VisualBasic程序设计基础》-陈庆章课后习题参考-答案~.doc（36页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、|Visual Basic 程序设计基础教材习题参考答案第 1 章 Visual Basic 6.0 程序设计概述一、判断题1 23 说 明 ： 同 类 控 件 （ 如 两 个 标 签 ） 相 互 重 叠 ， 设 计 时 可 以 设 置 “置 前 ”、 “置 后 ”属 性 。4 5 6 7 8 9 10 11 1213 14 15 16 17 18 19 20二、选择题1. C 2. B 3D 4C 5B 6A 7D 8 A 9B 10A 11C 12D三、填空题1对象、事件 2属性、方法、事件 3控件、屏幕（Screen）4对象 5Left、Top 6属性、.=7网格 8F orm19Loa

2、d 或 Initialize 或 Resize 或 Activate（自动执行的先后顺序也按此排列）10Activate、Deactivate四、程序设计题程序 1界面设计参看图 10-1、10-2 以及表 10-1。表 10-1 实例 2 各控件的主要属性设置控件 属性（属性值） 属性（属性值）标签控件 1 Name(Label1) Caption(“我的第一个 VB 程序“)Name(Label2) Caption(“请输入你的姓名“)标签控件 2FontUnderLine(True) FontItalic(True)命令按钮 1 Name(Command1) Caption(“确定( i

3、 * j;Next jPrintNext iEnd Sub程序 4界面设计略，过程设计如下：Private Sub Form_Click()Dim x As Single, s As Single, t As SingleDim i As Integer, n As Integerx = InputBox(“请输入 x 的值：“)n = InputBox(“请输入 n 的值：“)t = x / 2: s = tFor i = 3 To nt = t * x / is = s + tNext iPrint sEnd Sub程序 5界面设计略，过程设计如下：Private Sub Form_Cli

4、ck()Dim e As Single, t As Single, i As Integere = 2: t = 1: i = 1|While t = 0.0001i = i + 1: t = t / i: e = e + tWendPrint eEnd Sub程序 6界面设计略，过程设计如下：Option Base 1Private Sub Form_Click()Dim n As Integer, a(9, 9) As Integer, i As Integer, j As IntegerOn Error GoTo k 下列代码中若出现错误，转到标号为 K 的语句执行。n = InputB

5、ox(“请输入 n，0 Abs(xmax) Then xmax = x(i, j): ki = i: kj = jNext j, iEnd Sub|第 5 章 常用控件一、判断题1 2 3 4 5 6 7 8 910 11 12 13 14 15 16 17 1819 20 21 22 23 24 25二、选择题1C 2D 3B 4B 5B 6C 7B 8B 9B 10A11D 12C 13B 14B 15A 16D 17B 18B 19B 20A三、填空题1上、下、左、左 2缇、无关 3&、+ 4Enabled 5MaxLength6Text1.SetFocus 7MultiLine 8Vi

6、sible 9Alignment 10AutoSize11ForeColor 120 或 1 13True 141 15AddItem161 17List1.Clear 18文本框、列表框19下拉式组合框、简单组合框、下拉式列表框 20Scroll 21Value22Change 23定时器不起作用 24Timer 2565535四、程序阅读题程序 1. 116 程序 2. 8程序 3. 23451 程序 4. 小，你好！ 程序 5. 您好34512 小李，你好！ 欢迎使用 Visual Basic!程序 6. 李子 程序 7. y = 6 程序 8. n = 1苹果 y = 14 n = 3

7、橘子 n = 5葡萄柚子香蕉五、程序填空题1（1）a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1)（2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True2 （ 1） 1 To 2*i1 （2）Command2.Enabled = True （3）Command2.Enabled = False3（1）Text2.Enabled = False （2）p = 2 （3）Print i（4）Val(Text1.Text) 2 或 Val(Text1.Text) = 1 （5）KeyAscii =

8、 134 （1）List1.ListCount （2）List1.RemoveItem I （3）i = i + 15 （1）Timer1.Enabled = True （2）x 3600（3）(x Mod 3600) 60 或 (x - 3600 * h) 60 （4） x = x + 1 6（1）Label1.Left （2）Label1.Left = -Label1.Width六、程序设计题程序 1. 界面设计略，过程设计如下：Private Sub Command1_Click()If Command1.Caption = “显示“ ThenPrint “欢迎使用 Visual Bas

9、ic！“: Command1.Caption = “清除“ElseForm1.Cls: Command1.Caption = “显示“End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Form1.Cls: Command1.Caption = “显示“: Command2.Caption = “退出“End Sub程序 2界面设计略，过程设计如下：Private Sub Form_Load()Text1.MaxLength = 1: Text1.Text = “End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Label1.Caption = CStr(KeyAscii)End Sub程序 3界面设计略，过程设计如下：Const pwd As String = “123456“ 预设密码为 123456Private Sub Command1_Click()Cls: Print “欢迎进入！“End SubPrivate Sub Form_Load()Command1.Caption = “进入“: Command1.Enabled = Falsew