《Visual Basic程序设计基础》陈庆章 课后习题参考答案.docx

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

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

2、ze或Activate（自动执行的先后顺序也按此排列）10Activate、Deactivate 四、程序设计题 程序1界面设计参看图10-1、10-2以及表10-1。 表10-1 实例2各控件的主要属性设置 过程设计如下： Private sub Form_Click() Command2.Enabled = False Een Sub Private Sub Command1_Click() Label2.Visible = False Label1.Caption = Text1.Text + : 欢迎使用 + Label1.Caption Text1.Visible = False C

3、ommand1.Enabled = False: Command2.Enabled = True End Sub Private Sub Command2_Click() End End Sub 程序2界面设计略，过程设计如下： Private Sub Command1_Click() 字体变大 Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print 欢迎使用VB End Sub Private Sub Command2_Click() 字体变小 Form1.FontSize = Form1.FontSize - 3 Form1.Cls: Pr

4、int 欢迎使用VB End Sub Private Sub Command3_Click() 字体加粗 Form1.FontBold = True Form1.Cls: Print 欢迎使用VB End Sub Private Sub Command4_Click() 字体不加粗 Form1.FontBold = False Form1.Cls: Print 欢迎使用VB End Sub 运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。 程序3界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight 值仅与窗体

5、有效绘图区域的高度有关）： Private Sub Form_Load() Text1.Text = Visual Basic 程序设计 End Sub Private Sub Form_Resize() Text1.Top = 0: Text1.Left = 0 Text1.Width =F orm1.ScaleWidth/2 用Form1.ScaleWidth效果优于用Form1. W idth Text1.Height = Form1.ScaleHeight/2 用Form1.ScaleHeight优于用Form1. Height Command1.Top = Form1.ScaleHe

6、ight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.Width End Sub 第2章程序设计基础 一、判断题 12345678910 二、选择题 1B 2D 3A4C 5C 6B 7A 8D 9. C 10A 三、填空题 1String 24 3aaa 4145 56 63 718 8False 9(x Mod 10) * 10 + x 10 1010 + Int( Rnd * 90 ) 11a * b Mod c 12Log(x)+Sin(3.141593/6) 13Const PI=3.1415926 14

7、日期15Int(x)+1 四、程序设计题 程序1界面设计略，过程设计如下： 方法一、用文本框控件输入圆的半径 Private Sub Command1_Click() Dim x As Single x = Text1.Text Label1.Caption = x * x * 3.141593 End Sub 方法二、用InputBox函数输入圆的半径 Private Sub Command1_Click() Dim x As Single 若要求计算结果具有15位有效位数，声明x为Double类型 x = InputBox(r=,输入圆的半径) Label1.Caption = x * x

8、 * 3.141593 End Sub 程序2略。 第3章结构化程序设计与数组 一、判断题 12345678910二、选择题 1A 2D 3C 4C 5D 6B 三、填空题 1If xy Then t=y: y=x: x=t 2IS 3For i = 0 to 9: B(i) = InputBox(B( & i & )=): Next i 4Dim 5String 68 四、程序阅读题（写出下列程序的运行结果） 程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16 程序4. 1 4 9 16 25 程序5. 程序6. 五、程序填空题 1（1）q * i （2）s + p * i

9、/ q （3）Next i 2（1）r = 0 （2）m Mod n 3（1）i + j - 1 （2）7 - i （3）Print 4（1）10 + Int(Rnd * 90) （2）i + 1 To 30 （3）a(i)=a(j) （4）a(i) Mod 2 = 1 六、程序设计题 程序1界面设计略，过程设计如下： Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer Dim max As Integer, midd As Integer, min As Integer x = InputBox(请输入x

10、的值：) y = InputBox(请输入y的值：) z = InputBox(请输入z的值：) If x y Then max = x Else max = y If z max Then max = z If x 3 Then y = x + 3 ElseIf x = 1 Then y = x * x ElseIf x 0 Then y = Sqr(x) Else y = 0 End If Print y End Sub 程序3界面设计略，过程设计如下： Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To

11、 9 For j = 1 To 9 Print Tab(j - 1) * 4); i * j; Next j Print Next i End Sub 程序4界面设计略，过程设计如下： Private Sub Form_Click() Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integer x = InputBox(请输入x的值：) n = InputBox(请输入n的值：) t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Pr

12、int s End Sub 程序5界面设计略，过程设计如下： Private Sub Form_Click() Dim e As Single, t As Single, i As Integer e = 2: t = 1: i = 1 While t = 0.0001 i = i + 1: t = t / i: e = e + t Wend Print e End Sub 程序6界面设计略，过程设计如下： Option Base 1 Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j A

13、s Integer On Error GoTo k 下列代码中若出现错误，转到标号为K的语句执行。 n = InputBox(请输入n，0 Abs(xmax) Then xmax = x(i, j): ki = i: kj = j Next j, i End Sub 第5章常用控件 一、判断题 12345678910111213141516171819202122232425 二、选择题 1C 2D 3B 4B 5B 6C 7B 8B 9B 10A 11D 12C 13B 14B 15A16D 17B 18B 19B 20A 三、填空题 1上、下、左、左2缇、无关3&、+ 4Enabled 5

14、MaxLength 6Text1.SetFocus 7MultiLine 8Visible 9Alignment 10AutoSize 11ForeColor 120或1 13True 141 15AddItem 161 17List1.Clear 18文本框、列表框 19下拉式组合框、简单组合框、下拉式列表框20Scroll 21Value 22Change 23定时器不起作用24Timer 2565535 四、程序阅读题 程序1. 116 程序2. 8 程序3. 23451 程序4. 小，你好！程序5. 您好 34512 小李，你好！欢迎使用Visual Basic! 程序6. 李子程序7

15、. y = 6 程序8. n = 1 苹果y = 14 n = 3 橘子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 = True 2（1）1 To 2*i1 （2）Command2.Enabled = True（3）Command2.Enabled = False 3（1）Text2.Enabled = False （2）p = 2 （3）Print i （4）Val(Text1.Text) 10 Then Label1.Caption = 差！重新开始: Call Form_Load Else If m num Then Label1.Caption = Str(m) & 大了！ ElseIf m num Then Label1.Caption = Str(m) & 小了！ Else If rec 5 Then Label1.Caption = 好！猜对了。 Else Label1.Caption = 还行！猜对了。 End If Call Form_Load