2022年《VisualBasic程序设计基础》陈庆章课后习题参考答案 .pdf

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

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

2、）10Activate 、Deactivate 四、程序设计题程序 1界面设计参看图10-1、10-2 以及表 10-1。表 10-1 实例 2 各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件 1 Name(Label1)Caption( 我的第一个VB 程序 )标签控件 2 Name(Label2)Caption( 请输入你的姓名 )FontUnderLine(True) FontItalic(True) 命令按钮 1 Name(Command1) Caption( 确定 (&O) 命令按钮 2 Name(Command2) Caption( 结束 (&X) 过程设计如下：Pr

3、ivate sub Form_Click() Command2.Enabled = False Een Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 37 页 - - - - - - - - - - Private Sub Command1_Click() Label2.Visible = False Label1.Caption = Text1.Text + : 欢迎使用 + Label1.Caption Text1.Visible = False Command1.Enabled

4、 = 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: Print 欢迎使用VB End

5、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 值仅与窗体有效绘图区域的高度有关）：Pr

6、ivate Sub Form_Load() Text1.Text = Visual Basic 程序设计 End Sub Private Sub Form_Resize() 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 37 页 - - - - - - - - - - Text1.Top = 0: Text1.Left = 0 Text1.Width = Form1.ScaleWidth/2 用 Form1.ScaleWidth效果优于用Form1. Width Text1.Height =

7、 Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用Form1. Height Command1.Top = Form1.ScaleHeight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.Width End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 37 页 - - - - - - - - - - 第 2 章程序设计基础一、判断题12345678910二、选择题1

8、B 2 D 3 A 4 C 5 C 6 B 7 A 8 D 9. C 10 A 三、填空题1String 24 3aaa 4145 56 63 7 18 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日期15Int(x)+1 四、程序设计题程序 1界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径Private Sub Command1_Click() Dim x As Single x = Text1

9、.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 * 3.141593 End Sub 程序 2略。第 3 章结构化程序设计与数组一、判断题12345678910二、选择题1A 2D 3C 4C 5D 6B 精品资料 - - - 欢迎下载 - - - - - -

10、 - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 37 页 - - - - - - - - - - 三、填空题1If xy Then t=y: y=x: x=t 2 IS 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 / q

11、 （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

12、 的值： ) 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 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 37 页 - - - - - - - - - - ElseIf x = 1 Then y = x * x ElseI

13、f 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 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 D

14、im 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 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 精品资料 - - - 欢迎下载 - -

15、- - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 37 页 - - - - - - - - - - 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 As Integer On Error GoTo k 下列代码中若出现错误，转到标号为K 的语句执行。 n = In

16、putBox(请输入 n，0n10) For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next i For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 1 To n Print Tab(30 - 2 * i); For j = 1 To i Print Space(4 - Len(Trim(Str(a(i, j); Trim(Str(a(i, j); Next j Print Next i Exit Sub k: MsgBox

17、输入 n 值小于 1 或大于 10 ，数组下标超界。 End Sub 第 4 章函数与过程一、判断题12345678二、填空题1按地址传送2b() As Long 36 4按值传递5按地址传递6Public x As Single 7Static x As Integer 8Form2.y 三、程序阅读题（写出下列程序的运行结果）程序 1. s = 2 程序 2. 1 程序 3. 1 1 2 1 1 2 1 2 2 2 2 3 s = 5 1 1 s = 9 1 2 1 1 3 3 1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - -

18、- - - - - - -第 7 页，共 37 页 - - - - - - - - - - 1 4 6 4 1 四、程序填空题1（ 1）ByeVal （2）k Mod i （3）k = k i （4）Call pp(i) 2（ 1）a() Aa Double （2）n-1 （3）a(j) Abs(xmax) Then xmax = x(i, j): ki = i: kj = j Next j, i End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 37 页 - - - - - -

19、 - - - - 第 5 章常用控件一、判断题12345678910111213141516171819202122232425二、选择题1 C 2 D 3 B 4 B 5 B 6 C 7 B 8 B 9 B 10 A 11 D 12 C 13 B 14 B 15 A 16 D 17 B 18 B 19 B 20 A 三、填空题1 上 、 下 、 左 、 左2 缇 、 无 关3 & 、 + 4 Enabled 5MaxLength 6Text1.SetFocus 7MultiLine 8Visible 9Alignment 10AutoSize 11ForeColor 120 或 1 13Tr

20、ue 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. y = 6 程序 8. n = 1 苹果y = 14 n = 3 橘子n = 5 葡萄柚子香蕉五、程序填空题1（ 1）a(i) = Mid(str1, i, 1) 或

21、a(i) = Mid(Text1.Text, i, 1) （2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True 2（ 1）1 To 2*i 1 （2）Command2.Enabled = True （3）Command2.Enabled = 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 37 页 - - - - - - - - - - False 3（ 1）Text2.Enabled = False （2）p = 2 （3）Print i （4

22、）Val(Text1.Text) 2 或 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 0 Then Label1.Caption = 选择了 & n & 个字 , 请选择下一步操作！ Command1(0).Enabled = True: Command1(1).Enabled = True El

23、se Label1.Caption = 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 37 页 - - - - - - - - - - End If End Sub 程序 6界面设计如图10-4 所示，过程设计如下：Private Sub Form_Load() Label1.Caption = 当前日期： : Text1.Text = Date Option1(0).Caption = 显示日期 : Option1(1).Caption = 显示时间 Option1(0).Value =

24、 True: Command1.Caption = 退出 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Label1.Caption = 当前日期： : Text1.Text = Date Case 1 Label1.Caption = 当前时间： : Text1.Text = Time End Select End Sub Private Sub Command1_Click() End End Sub 程序 7过程设计如下：Private Sub Form_Load() Label1

25、.Caption = 当前日期： : Text1.Text = Date Option1(0).Caption = 显示日期 : Option1(1).Caption = 显示时间 Option1(0).Value = True: Command1.Caption = 退出 Combo1.AddItem 年- 月- 日: Combo1.AddItem 月- 日- 年 Combo1.AddItem 日- 月- 年: Combo1.Text = 年- 月- 日 End Sub Private Sub Combo1_Click() Dim n As String Select Case Combo1

26、.ListIndex Case 0: n = yyyy-mm-dd Case 1: n = mm-dd-yyyy Case 2: n = dd-mm-yyyy End Select Text1.Text = Format(Date, n) End Sub Private Sub Option1_Click(Index As Integer) Select Case Index 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 37 页 - - - - - - - - - - Case 0: L

27、abel1.Caption = 当前日期： : Text1.Text = Date Case 1: Label1.Caption = 当前时间： : Text1.Text = Time End Select End Sub Private Sub Command1_Click() End End Sub 程序 8. 界面设计如图10-5 所示，过程设计如下：Private Sub Form_Load() List1.AddItem happy: List1.AddItem apple List1.AddItem student: List1.AddItem computer End Sub P

28、rivate Sub Command1_Click() List1.AddItem Text1.Text: Text1.SetFocus Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text) End Sub Private Sub Command3_Click() List1.Clear End Sub Private Sub Command4_Click() End End Sub Private Sub Command2_Click() If List1.ListIndex -1 Then List1.RemoveItem List1.

29、ListIndex End Sub9界面设计如图10-6 所示，过程设计如下：Private Sub Form_Load() Option1(0).Caption = 八进制 : Option1(1).Caption = 十六进制 Option1(2).Caption = 二进制 End Sub Private Function tran(k As Long, n As Integer) As String Dim x As Integer, y As String * 1, k1 As Long tran = : k1 = Abs(k) Do While k1 0 x = k1 Mod n

30、If x = 10 Then y = Chr(Asc(A) + x - 10) Else y = CStr(x) tran = y + tran k1 = k1 n 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 14 页，共 37 页 - - - - - - - - - - Loop If k = 72 Then Timer1.Enabled = False End Sub第 6 章图形控件和图形方法精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - -

31、- - - - - - - -第 15 页，共 37 页 - - - - - - - - - - 一、判断题12345678910二、选择题1 C 2 B 3 C 4 A 5 A 6 C 7 A 8 C 9 C 10 B 11A 12B 13 B 14C 15C 三、填空题1 Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 800 2LoadPicture 3 AutoSize 、Stretch、False、False 4选中、属性5形状、矩形6Picture1.Picture=LodePicture(C:Win

32、dowsCloud.bmp) 7图片框、其他控件8缇、 SclaeMode 9颜色10颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序 1. 转动一条红色直线，其轨迹形成一个圆程序 2. 在窗体上随机的位置、用随机的颜色、半径绘制1000 个空心的圆。程序3. 在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。五、程序填空题1（ 1）Combo1.ListIndex （2）Shape1.BorderStyle （3）Combo2.AddItem Str(i) 2（ 1）Call pic （2）False （3）n = n + 1 （4）Loa

33、dPicture(c:windows1.bmp) （4）LoadPicture(fn) 六、程序设计题程序 1界面设计略，过程设计如下：Private Sub Form_Load() Picture1.ScaleMode = 3 End Sub Private Sub Command1_Click() Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox(x1=): y1 = InputBox(y1=) x2 = InputBox(x2=): y2 = InputBox(y2=) Picture1.Li

34、ne (x1, y1)-(x2, y2), , B End Sub 程序 2界面设计略，过程设计如下：Private Sub Form_click() Dim r As Single, xo As Single, yo As Single If Form1.ScaleHeight Form1.ScaleWidth Then r = Form1.ScaleHeight / 3 Else r = Form1.ScaleWidth / 3 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 37 页

35、- - - - - - - - - - End If xo = Form1.ScaleLeft + Form1.ScaleWidth / 2 yo = Form1.ScaleTop + Form1.ScaleHeight / 2 Form1.FillStyle = 0: Form1.FillColor = vbBlue Form1.DrawWidth = 2: Form1.ScaleMode = 6 Form1.Circle (xo, yo), r, vbYellow End Sub 程序 3界面设计略，过程设计如下：Private Sub Form_Load() Dim i As Integ

36、er For i = 1 To 7: List1.AddItem i: Next i Form1.ScaleMode = 1 End Sub Private Sub List1_Click() Form1.Cls: Form1.ScaleMode = List1.Text Form1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50 End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - -

37、 - - - - - -第 17 页，共 37 页 - - - - - - - - - - 第 7 章对话框与菜单程序设计一、判断题12345678910二、选择题1 D 2 A 3 C 4 C 5 B 6 D 7 A 8 B 9 D 10 B 三、填空题1窗体控制菜单、下拉式菜单、快捷菜单2ShowFont 3打开文件、另存为、颜色、字体、打印对话框4工程、部件5CommonDialog1.Action =3、CommonDialog1.ShowColor 6提示信息、对话框类型、对话框标题7Click 8工具9代码窗口、Click 10相同、正四、程序阅读题程序1. 显示提示信息为“5”、

38、标题为“na 的输出结果”、有一个“确定”按钮的消息框。程序2. 显示提示信息为“您选择了第1 项”、标题为“第一项”、有一个“确定”按钮的消息框。五、程序填空题1（ 1）Int(Rnd*100) （2）Str(i) （3）Exit For 2（ 1）False （2）Date （3）CommonDialog1.Color （4）m1 六、程序设计题程序 1界面设计略，过程设计如下：Private Sub Command1_Click() CommonDialog1.ShowOpen List1.AddItem CommonDialog1.FileName End Sub程序 2界面设计略，过

39、程设计如下：Private Sub Command1_Click() CommonDialog1.ShowSave List1.AddItem CommonDialog1.FileName End Sub程序 3界面设计如图10-9、表 10-2 所示，过程设计如下：Private Sub Sqr_Click() 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 18 页，共 37 页 - - - - - - - - - - Shape1.Shape = 1 End Sub Private Sub Rec_

40、Click() Shape1.Shape = 0 End Sub Private Sub Oval_Click() Shape1.Shape = 2 End Sub Private Sub Circle_Click() Shape1.Shape = 3 End Sub Private Sub Rrec_Click() Shape1.Shape = 4 End Sub Private Sub RSqr_Click() Shape1.Shape = 5 End Sub Private Sub Shp_Click() Shape1.FillStyle = 2 End Sub Private Sub

41、Shzh_Click() Shape1.FillStyle = 3 End Sub Private Sub Xiex_Click() Shape1.FillStyle = 4 End Sub Private Sub ShPJ_Click() Shape1.FillStyle = 6 End Sub Private Sub XJ_Click() Shape1.FillStyle = 7 End Sub Private Sub FillColor_Click() CommonDialog1.ShowColor Shape1.FillColor = CommonDialog1.Color End S

42、ub Private Sub Exit_Click() End End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 19 页，共 37 页 - - - - - - - - - - 第 8 章文件一、判断题123456789101112131415二、选择题1A 2C 3 B 4B 5A 6C 7C 8B 9C 10B 11D 12B 13B 三、填空题1ChDir 2FileLen 3Change 4EOF 5Line Input 四、程序阅读题程序 1. y= 1 a= 1 程序 2. NO

43、. 1 3 程序 3. y= 3 a= 2 NO. 2 4 窗体： 36 25 16 9 4 1 y= 6 a= 3 NO. 3 7 文件： 1 4 9 16 25 36 y= 10 a= 4 NO. 4 11 程序 4. 程序 5. 1 程序 6. 1 窗体上显示内容：20 2 2 1 2 文件中内容：4 6 8 10 12 3 3 3 1 2 3 4 4 4 4 5 5 5 5 5 五、程序填空题1（ 1）Dim n As Integer （2）C:windowscalc.exe （3）Output （4）End 2（ 1）For Output As #2 （2）0 （3）temp.dat

44、 As c:a1.dat 3（ 1）Open e:dataout.txt For Output As #1 （2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun 六、程序设计题程序 1界面设计如图10-10 所示，过程设计如下：Dim fn As String Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_Click() 精品资料

45、- - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 20 页，共 37 页 - - - - - - - - - - If Right(File1.Path, 1) = Then fn = File1.Path + File1.FileName Else fn = File1.Path + + File1.FileName End If End Sub Private Sub Command1_Click() Dim yesno As Byte yesno = MsgBox(确认要删除吗？, vbYesNo, 删除文件

46、) If yesno = vbYes Then Kill fn File1.Refresh End Sub 程序 2建立4 个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:student.dat。过程设计如下：Private Sub Command1_Click() Dim b As Date, m As Byte, e As Byte Open d:student.dat For Append As #1 b = Text2.Text: m = Text3.Text: e = Text4.Text Write #1, Text1.Text, b,

47、m, e Text1.Text = : Text2.Text = : Text3.Text = : Text4.Text = Close #1 End Sub 程序 3界面设计如图10-11 所示，过程设计如下：Private Sub Form_Load() Dim ss As String Open e:student.txt For Append As #1 如文件不存在则先建立该文件 Close #1 Open d:student.dat For Input As #1 将文件中所有记录在列表框中显示 While Not EOF(1) Line Input #1, ss: List1.A

48、ddItem ss Wend Close #1 在选中表项之前“ 删除 ” 、“ 修改 ” 按钮不可用 Command2.Enabled = False: Command3.Enabled = False 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 21 页，共 37 页 - - - - - - - - - - End Sub Private Sub List1_Click() 选中表项后可“ 删除 ” 或“ 修改 ” ，不可 “ 追加 ” 。 Command1.Enabled = False: Co

49、mmand2.Enabled = True Command3.Enabled = True: Text1.Text = List1.Text End Sub Private Sub Command1_Click() 追加记录 If Trim(Text1.Text) Then List1.AddItem Text1.Text Text1.Text = End Sub Private Sub Command2_Click() 修改记录 List1.AddItem Text1.Text, List1.ListIndex List1.RemoveItem List1.ListIndex Command

50、1.Enabled = True: Command2.Enabled = False Command3.Enabled = False: Text1.Text = 修改后，不可 “ 删除” 、“ 修改”End Sub Private Sub Command3_Click() 删除记录 List1.RemoveItem List1.ListIndex 删除后，不可“ 删除 ” 、“ 修改 ” Command1.Enabled = True: Command2.Enabled = False Command3.Enabled = False: Text1.Text = End Sub Privat