《《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控件、屏幕（Screen）4对象 5Left、Top 6属性、.=7网格 8Form19Load或Initialize或Resize或Activate（自动执行的先后顺序也按
2、此排列）10Activate、Deactivate四、程序设计题程序1界面设计参看图10-1、10-2以及表10-1。表10-1 实例2各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件1Name(Label1)Caption(我的第一个VB程序)标签控件2Name(Label2)Caption(请输入你的姓名)FontUnderLine(True)FontItalic(True)命令按钮1Name(Command1)Caption(确定(&O)命令按钮2Name(Command2)Caption(结束(&X)过程设计如下：Private sub Form_Click() Comma
3、nd2.Enabled = FalseEen SubPrivate Sub Command1_Click() Label2.Visible = False Label1.Caption = Text1.Text + : 欢迎使用 + Label1.Caption Text1.Visible = False Command1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() EndEnd Sub程序2界面设计略，过程设计如下：Private Sub Command1_Click() 字体变大 F
4、orm1.FontSize = Form1.FontSize + 3 Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command2_Click() 字体变小 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
5、 = False Form1.Cls: Print 欢迎使用VBEnd Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。程序3界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）：Private Sub Form_Load() Text1.Text = Visual Basic 程序设计End SubPrivate Sub Form_Resize() Text1.Top = 0: Text1.Left = 0 Text1.Width = Form1.ScaleWidth
6、/2 用 Form1.ScaleWidth效果优于用Form1. Width Text1.Height = Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用Form1. Height Command1.Top = Form1.ScaleHeight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.WidthEnd Sub第2章 程序设计基础一、判断题1 2 3 4 5 6 7 8 9 10二、选择题1B 2D 3A 4C 5C 6B 7A 8D 9. C 10A三、填空题1Strin
7、g 24 3aaa 4145 56 63 718 8False9(x Mod 10) * 10 + x 10 1010 + Int( Rnd * 90 ) 11a * b Mod c12Log(x)+Sin(3.141593/6) 13Const PI=3.1415926 14日期 15Int(x)+1四、程序设计题程序1界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径Private Sub Command1_Click() Dim x As Single x = Text1.Text Label1.Caption = x * x * 3.141593End Sub方法二、用Inpu
8、tBox函数输入圆的半径Private Sub Command1_Click() Dim x As Single 若要求计算结果具有15位有效位数，声明x为Double类型 x = InputBox(r=,输入圆的半径) Label1.Caption = x * x * 3.141593End Sub程序2略。第3章 结构化程序设计与数组一、判断题1 2 3 4 5 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(i) = InputBox(B( & i & )=): Ne
9、xt i4Dim 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 / q （3）Next i2（1）r = 0 （2）m Mod n3（1）i + j - 1 （2）7 - i （3）Print4（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_
10、Click() Dim x As Integer, y As Integer, z As Integer Dim max As Integer, midd As Integer, min As Integer x = InputBox(请输入x的值：) y = InputBox(请输入y的值：) z = InputBox(请输入z的值：) 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 3 Then y = x + 3 ElseIf x = 1 Then y
11、 = x * x ElseIf x 0 Then y = Sqr(x) Else y = 0 End If Print yEnd Sub程序3界面设计略，过程设计如下：Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To 9 Print Tab(j - 1) * 4); i * j; Next j Print Next iEnd Sub程序4界面设计略，过程设计如下：Private Sub Form_Click() Dim x As Single, s As Single, t A
12、s 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 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(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k
