《VisualBasic程序的设计基础陈庆章课后复习题参考答案》由会员分享，可在线阅读，更多相关《VisualBasic程序的设计基础陈庆章课后复习题参考答案（35页珍藏版）》请在金锄头文库上搜索。
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 8A 9B 10A 11C 12D三、填空题1对象、事件 2属性、方法、事件 3控件、屏幕Screen4对象 5Left、Top 6属性、.=7网格 8Form19Load或Initialize或Resize或Activate自动执行的先后顺序也按此排
2、列10Activate、Deactivate四、程序设计题程序1界面设计参看图10-1、10-2以及表10-1。表10-1 实例2各控件的主要属性设置控件属性属性值属性属性值标签控件1NameCaption标签控件2NameCaptionFontUnderLineFontItalic命令按钮1NameCaption确定命令按钮2NameCaption结束过程设计如下：Private sub Form_Click Command2.Enabled = FalseEen SubPrivate Sub Command1_ClickLabel2.Visible = False Label1.Capti
3、on = Text1.Text + : 欢迎使用 + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_ClickEndEnd Sub程序2界面设计略,过程设计如下：Private Sub Command1_Click 字体变大 Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command2_Click 字体变小
4、Form1.FontSize = Form1.FontSize - 3 Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command3_Click 字体加粗 Form1.FontBold = True Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command4_Click 字体不加粗 Form1.FontBold = False Form1.Cls: Print 欢迎使用VBEnd Sub运行时,不得连续、过多次单击字体变小按钮,因为当FontSize属性值小于0会产生适时错误。程序3界面设计略,过程设计如下窗体H
5、eight值的计量包括标题、边框,而ScaleHeight值仅与窗体有效绘图区域的高度有关：Private Sub Form_Load Text1.Text = Visual Basic 程序设计End SubPrivate Sub Form_Resize Text1.Top = 0: Text1.Left = 0Text1.Width=Form1.ScaleWidth/2 用 Form1.ScaleWidth效果优于用Form1. WidthText1.Height=Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用Form1. Height Command
6、1.Top = Form1.ScaleHeight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.WidthEnd Sub第2章 程序设计基础一、判断题12345678910二、选择题1B 2D 3A 4C5C 6B 7A 8D 9. C 10A三、填空题1String 24 3aaa 4145 56 63 718 8False9 * 10 + x 101010 + Int 11a * b Mod c12Log+Sin 13Const PI=3.141592614日期 15Int+1四、程序设计题程序1界面设计略,过
7、程设计如下：方法一、用文本框控件输入圆的半径Private Sub Command1_Click Dim x As Single x = Text1.Text Label1.Caption = x * x * 3.141593End Sub方法二、用InputBox函数输入圆的半径Private Sub Command1_Click Dim x As Single 若要求计算结果具有15位有效位数,声明x为Double类型 x = InputBox Label1.Caption = x * x * 3.141593End Sub程序2略。第3章 结构化程序设计与数组一、判断题1 2 3 4 5
8、 6 7 8 9 10二、选择题1A 2D 3C 4C 5D 6B三、填空题1If xy Then t=y: y=x: x=t 2IS3For i = 0 to 9: B = InputBoxB=: Next i4Dim 5String 68四、程序阅读题写出下列程序的运行结果程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16程序4. 1 4 9 16 25程序5. 程序6. 五、程序填空题11q * i 2s + p * i / q 3Next i21r = 0 2m Mod n31i + j - 1 27 - i 3Print4110 + Int2i + 1 To 30 3
9、a=a 4a 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 y = InputBox z = InputBox If x y Then max = x Else max = y If z max Then max = z If x y Then min = x Else min = y If z min Then
10、min = z midd = x + y + z - max - min Print max; midd; minEnd Sub程序2界面设计略,过程设计如下：Private Sub Form_Click Dim x As Single, y As Single x = InputBox If x 3 Then y = x + 3 ElseIf x = 1 Then y = x * x ElseIf x 0 Then y = Sqr Else y = 0 End If Print yEnd Sub程序3界面设计略,过程设计如下：Private Sub Form_Click Dim i As I
11、nteger, j As Integer For i = 1 To 9 For j = 1 To 9 Print Tab * 4; i * j; Next j Print Next iEnd 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 n = InputBox t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i
12、Print sEnd 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 eEnd Sub程序6界面设计略,过程设计如下：Option Base 1Private Sub Form_Click Dim n As Integer, a As Integer, i As Integer, j As IntegerOn Error GoTo k 下列代码中若出现错误,转到标号为K
