《计算机程序设计基础》课后练习题参考答案.pdf

计算机程序设计基础课后练习题1 1 判断题 (1) （错）事件过程由某个用户事件或系统事件触发执行，但不能 被其他过程调用。 (2) （错）若X2, Y5，则表达式 Y2X AND X2Y 的结 果为：True。 (3) （错）常量是指在程序运行过程中其值可以改变的那些量。 (4) （错，timer没有）VB工具箱中的所有控件都具有宽度 （Width）和高度（Height）属性。 (5) （错）定义变量：Dim max,min as Single , 则max 和 min 的数据类型均为Single。 (6) （对）如果创建的菜单项的标题是一个减号“-”，则该菜单项显 示为一条分隔线。 (7) （错）标准模块文件的扩展名是“*.VBP”。 (8) （错，都不能）定时器控件可以响应Click事件，但不能响应 DbClick事件。 (9) （错）在默认情况下，数组下标下界的缺省值为1。 (10) （对）在使用字体对话框时，需要对其Flags属性先进行相应 设置。 2 单选题 (11) 在Visual Basic中，表示鼠标单击事件的是 C 。 A）Activate B）DoubleClick C）Click D） MouseDown (12) 用于设置计时器时间间隔的属性是 A 。 A）Interval B）Name C）Left D）Top (13) 函数Int(10*Rnd)是在 D 范围内的整数。 A）1，10 B）1，10 C) 0，9) D）0，9 (14) Select case语句结构的结尾应使用 D 。 A）End B） End Case C） End Sub D） End Select (15) 改变了容器的坐标系后，该容器的 A 属性值不会改 变。 A）left B）scaleleft C）scaletop D） scalewidth (16) 执行下列语句后，列表框中各表项顺序为 D List1.Clear For i=1 to 4 : List1.AddItem i-1,0 ：Next i A） B） C） D） (17) 输入对话框InputBox的返回值的类型是 A 。 A）字符串 B）整数 C）浮点数 D）长整数 (18) 将焦点主动设置到指定的控件或窗体上，应采用 B 方 法。 A）SetDate B）SetFocus C）SetText D）GetData (19) 有如下程序段： Dim I As Integer , S As Integer S = 1 FOR I = 1 TO 8 STEP 2 S = S * I NEXT I PRINT “S = “ ; S 运行结果为 B A）S = 9 B）S = 105 C）S = 1 D）S = 16 (20) 利用以下_D_语句，可以输出日期和时间信息。 A）Print Date B）Print Month C）Print Time D） Print Now (21) 一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是_D_。 A）对象，属性，事件 B）对象，属性，方法 C）属性，对象，方法 D）属性，对象，事件 (22) 将通用对话框以“打开文件对话框”方式打开，则选以 下 A 方法。 A) ShowOpen B）ShowColor C）ShowSave D）ShowFont (23) 执行语句“Line (100, 100)-(150, 200), vbBlue, B”,在窗 体上绘制出一个矩形，那么该矩形的面积 = A 。 A）5000 B）10000 C） 15000 D）20000 (24) 如何使一个标签或按钮控件在运行时不可用_C_。 A）把它的Visible属性设置成False B）把它的Visible属 性设置成True C）把它的Enabled属性设置成False D）把它的Enabled属 性设置成True (25) 下列 C 表达式的结果为“1234556789“。 A）Trim(“12345 “+“ 56789“) B）Ltrim(“12345 “)+Rtrim(“ 56789“) C）Rtrim(“12345 “) Next i End Sub (36) A）a(j) a(j - 1) C）a(i) a(j) D）a(j) a(i) (37) A）a(i)=a(j) B) a(j-1)=a(j) C）a(j)=a(i) D) a(j) = a(j - 1) 【程序填空4】在窗体上画一个名称为Combol的组合框，画两个名称分 别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序 运行后（如下图所示），当在组合框中输入一个新的项目按回车键时 （回车键的ASCII码为13），如果输入的项在组合框的列表中不存在， 则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输 入项；如果存在，则在Label2中给出提示“输入项已在组合框中”。 Private Sub Combo1_ KeyPress (KeyAscii As Integer) If _ (38) B Then For i=0 To Combo1.ListCount-1 If Combo1.Text= _ (39) B Then Label2.Caption=“输入项已在组合框中“ Exit Sub End If Next i Label2.Caption=“已成功添加输入项“ Combo1._ (40) C Combo1.Text End If End Sub (38) A）KeyAscii=0 B）KeyAscii=13 C）KeyAscii=8 D）KeyAscii=9 (39) A）Combo1.ListIndex B）Combo1.List(i) C）Combo1.AddItem(i) D）Combo1.Clear (40) A)Selected B)RemoveItem C)AddItem D) ListIndex 4 程序阅读题 【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出 的a、b、c的值为_(41)_ C_，第二次单击后输出的a、b、c的值 为_(42)_D_，第三次单击后输出的a、b、c的值为_(43) _A_。 Private a%, b%, c% Private Sub Form_Click() Dim a As Integer c = 2 Call AA(c) b = BB(a) Print a, b, c End Sub Public Sub AA(c%) a = c + b c = a + c End Sub Public Function BB(ByVal b%) b = b + 1 BB = a + b End Function (41) A）2 5 4 B）2 3 4 C）0 3 4 D）0 3 2 (42) A）7 12 9 B）7 15 9 C）0 6 2 D）0 6 7 (43) A）0 9 10 B）0 9 2 C）17 19 35 D）10 27 32 【程序阅读2】阅读下列程序并回答问题，在每小题提供的若干可选答 案中，挑选一个正确答案。 Private Sub Form_Click() Form1.Scale (-10, 10)-(10, -10) Form1.Circle (0, 0), 5, , -3 * 3.14 / 2, -3.14 Form1.FillStyle = 0 End Sub (44) 运行以上程序，第一次单击窗体后，Form1上的输出结果是 (44) A ， A） B ） C） D） (45) 第二次单击窗体后, Form1上的输出结果是 (45) B 。 A） B） C） D） 【程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选答 案中，挑选一个正确答案。（：表示回车） Private Sub Form_Load() Text1.Text=“: Form1.Cls End Sub Private Sub Text1_KeyPress(k As Integer) Static s As Integer If (Chr(k) “9“) And k10 And Is10 16. 执行语句s=Len(Mid(“VisualBasic“,0,5)后，s的值是 _D_。 A、Visual B、Basic C、6 D、表达式有错 17. 以下关于函数过程的叙述中，正确的是_A_。 A、函数过程形参的类型与函数返回值的类型没有关系 B、在函数过程中，过程的返回值可以有多个 C、当数组作为函数过程的参数时，既能以传值方式传递，也能 以传址方式传递 D、如果不指明函数过程参数的类型，则该参数没有数据类型 18. 在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过 程： Private Sub Txt_KeyPress(keyascii as integer) End Sub 若焦点位于文本框中,则能够触发KeyPress事件的操作是 _D_。 A、单击鼠标 B、按下键盘上的“A”键 C、鼠标滑过文本框 D、按下键盘上的任意键 19. 执行行下面的事件过程，在窗体显示的内容是_B_。 Private Sub Command1_Click() Dim a As Variant a = Array(12, 23, 34, 45, 56) For i = 1 To 3 Print Trim(a(i); Next I End Sub A、122334 B、233445 C、12 23 34 D、23 34 45 20. 将图形框（PictureBox）控件的AutoSize属性设置为True后， 则对于图形框而言，_B_。 A、图形框中的图片自动改变大小适应图形框 B、图形框自动改变大小适应其中的图形 C、如果图片的大小比图形框大，则图形框自动裁剪图象以适应 图形框的大小。 D、如果图片的大小比图形框小，则图形框大小不发生变化。 21. 在图形框控件picture1上坐标(100,100)和(500,500)之间画一条红色直线，写作 _C_。 A、Line (100,100)-(500,500) vbRed B、Line (100,100)-(500,500) RGB(0,255,0) C、picture1.Line (100,100)-(500,500) RGB(255,0,0) D、picture1.Line (100,100)-(500,500) Red 22. 下列赋值语句中，_C_是错误的。 A、x=x+1 B、x=x+y C、x+y=x D、x=46 23. 单击滚动条的滚动箭头时，产生的事件是_C_。 A、Click B、Scroll C、 Change D、Move 24. 在程序运行期间可以用_D_函数把图形装入窗体、图片 或图象框。 A、Autosize B、Stretch C、Picture D、 LoadPicture 25. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事 件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 _B_。 A、1 3.4 5.8 B、1 3 5 C、1 4 7 D、无数据输出 26. _C_对象具有Clear方法。 A、 窗体 B、 复选框 C、 列表框 D、 图 片框 27. 设a=16，b=7，c=1，则表达式 a 3 + 2 = b And c = 91 Mod 3的结果_A_。 A、True B、False C、1 D、出错信 息 28. 设有如下通用过程： Public Sub Fun(a(), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的 命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Variant Dim n as Integer For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 A A、10 B、15 C、25 D、24 29. 窗体上画一个名称为Command1的命令按钮，然后编写如下事件 过程： Private Sub Command1_Click() Dim num As Integer For num = 1 To 6 Step 3 Print num; Next num Print num End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 _C_。 A、1 4 4 B、1 3 5 C、1 4 7 D、 无数据输出 30. 以下_A_方式打开的文件只能读不能写。 A、Input B、Output C、Append D、 Random 三、程序填空 程序1在C盘当前文件夹下建立一个名为Data.txt的顺序文件，要求用 文本框输入若干英文单词，每次按下回车键时将文本框中的内容写入文 件，并清除文本框的内容，直到文本框输入END为止，最后关闭文件。 Private Sub Form_Load() （31） C Text1.Text = “ End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If （32） D = “END“ Then （33）B End Else （34）A Text1.Text = “ End If End If End Sub 31. A、Open “D:Data.txt“ For Output As # B、Open “C:Data.txt“ For Input # C、Open “C:Data.txt“ For Output As # D、Open “C:Data.txt“ Output As # 32. A、LCaseText1.Text B、Text1.Text C、Str(Text1) D、UCase(Text1.Text) 33. A、Quit #1 B、Close #1 C、End #1 D、Exit #1 34. A、Write #1, Text1 B、Write #1, Text C、Write #3, Text1.Text D、Write #1, Text.Text 程序2下面程序的作用是利用随机函数产生100个随机整数,范围在 20，120之间（包含20和120），打印其中为5或7的倍数的数，求出它 们的总和并打印。请将下列程序补充完整。 Private Sub Command1_Click() SUM=0 For i = 1 To 100 X = Int（ （35）B ） If （36）D Then SUM=SUM+X （37）A End If Next i Print “SUM=“; SUM End Sub 35. A、Int(Rnd*100+20) B、Int(Rnd*101+20) C、Int(Rnd*101+19) D、Int(Rnd*100+21) 36. A、X Mod 5 = 0 and X Mod 7 = 0 B、X 5 = 0 and X 7 = 0 C、X 5 = 0 Or X 7 = 0 D、X Mod 5 = 0 Or X Mod 7 = 0 37. A、Print X; B、Print SUM+X; C、Print SUM; D、Print SUM*X; 程序3单击窗体后，用输入对话框输入x、n，然后按下式计算结果。 要求：将计算结果以标签控件显示，且标签控件每秒随机变换一次颜 色。 S Option Explicit Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Form_Click() Dim x As Single, n As Integer, i As Integer, t As Single （38）B s = 0 x = InputBox(“x=“) n = InputBox(“n=“) （39）D for i= （40）A t = t * x / i s = s + t Next i （41）C End Sub Private Sub Timer1_Timer() Label1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub 38. A、Static s As Single B、Dim s As Single C、Option Base 1 D、Const s As Single 39. A、t = -1 B、t = 0 C、t = 2 D、t = 1 40. A、2 To n+1 B、1 To n C、2 To n D、1 To n+1 41. A、Label1.Caption = x B、Label1.Caption = n C、Label1.Caption = s D、Label1.Caption = s+x 程序4设计一个程序，用于从文本框Text1输入课程名称，单击按钮， 添加到列表框（List1）中显示出来。 具体要求：单击“Command1”按钮，若文本框Text1.Text中不是空格 串，并且列表中也没有，则将该课程添加列表框中，然后清除文本框 Text1的内容，再将焦点返回到文本框Text1，以便再次在文本框Text1 输入内容，继续添加。 Private Sub Command1_Click() Dim I As Integer Dim AddFlag As Boolean （42）A If （43）C Then For i = 0 To （44）B If List1.List(i) = Text1.Text Then AddFlag = False Exit For End If Next i If AddFlag Then List1.AddItem Text1.Text End If Text1.Text = “ （45）B End Sub 42. A、AddFlag = -1 B、AddFlag = False C、AddFlag = 1 D、AddFlag = 0 43. A、text1.text = “” B、text1.text = “ ” C、text1.text “ NULL ” 44. A、List1.ListIndex 1 B、List1.ListCount-1 C、List1.ListIndex D、List1.ListCount 45. A、text1.Clear B、text1.SetFocus C、text1.Move D、text1.ReFresh 四、程序阅读 程序1写出下列程序运行结果，单击命令按钮控件后窗体上的显示结 果 Private Sub Command1_Click() Dim a(1 To 6) As Integer For i = 1 To 6 a(i) = i * i Next i For j = 1 To 3 （解释：将后3个数挪到数组前头） temp = a(6) For i = 6 To 2 Step -1 a(i) = a(i - 1) Next i a(1) = temp Next j For i = 1 To 6 Print a(i); Next i End Sub 结果： 程序2单击窗体后，在四个PictureBox控件中的图形分别是：（答案 略） Option Explicit Private Sub Form_Click() Dim i% For i = 0 To 3 Picture1(i).Scale (-10, 10)-(10, -10) Next i Picture1(0).Line (-10, 10)-(0, 0) Picture1(0).Line -(-10, -10) Picture1(1).Circle (0, 0), 5 Picture1(2).Circle (0, 0), 5, , 0, 3.14159 Picture1(3).Circle (0, 0), 5, , , , 2 End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 3 Picture1(i).FillStyle = (i + 1) Mod 2 Picture1(i).Cls Next i End Sub 结果： 程序3事先将text1.text设为为空，在获得焦点后,从键盘上依次按下以 下键: “1“,“2“,“+“,“3“,“4“,“-“,“5“,“6“,“/“,“1“,“4“,然后按回车 键，写出输出结果。 Private Sub Text1_KeyPress(K As Integer) If K Asc(“9“) Then K = 0 Print Text1.Text End If End Sub 结果： 程序4在窗体上画一个名称为Command1的命令按钮，然后编写相应的 事件过程。程序运行后，如果单击命令按钮，则在窗体上显示的内容是 Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function Private Sub Command1_Click() Static x As Integer x = 10 y = 5 y = f(x) Print x; y End Sub 结果： 计算机程序设计基础课后练习题3 一判断题 1 （错）窗体或控件的事件的名称可以由编程人员确定。 2 （错）关系运算表达式“1“+“2“=“3“的运算结果为True。 3 （对）变量是指在程序运行过程中其值可以改变的那些量， 而值不能改变的是常量。 4 （对）控件的有些属性只能在运行时设置。 5 （对）数组在内存中占据一片连续的区域。 6 （错）驱动器列表框、目录列表框、文件列表框三者之间能 够自动实现关联。 7 （错）当按钮的Default属性设置为True时，任何情况下按 键，相当于单击该按钮。 8 （错，dim定义的也可能是模块量）在过程中用Dim和Static定 义的变量都是局部变量。 9 （对）设置数组下标下界缺省值为1的语句为option base 1 。 10 （对）For-Next循环结构的默认步长为1。 二单选题 11当建立好一个简单的应用程序后，假定该工程仅有一个窗体模 块。问该工程涉及到多少个文件要保存？ B 个。 A) 1 B) 2 C)3 D) 4 12能够将文本框控件隐藏起来的属性是 B 。 (A) Clear (B) Visible (C) Hide (D) New 13. 下列符号中，哪个是VB合法的变量名？ C 。 A) a 123 B) Integer C) X_yz D) 14. inputBox函数返回值的类型为 B 。 A) 数值 B) 字符串 C) 变体 D) 数值或字符串（视输入的 数据而定） 15. 表达式5+5 3 * 10 / 8 Mod 9 的值是 C . A) 4 B) 5 C) 6 D) 7 16. 如果在立即窗口中执行以下操作： a=4 (是回车键，下同) b=6 print ab 则输出结果是 C 。 A) -1 B) 0 C) False D) True 17. 当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到 的 C 。 A）MouseDown B）MouseUp C）Load D）Click 18. 在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标 题必须设置为 B 。 A）加号(+) B）减号(-) C）星号(*) D）感叹号(!) 19. Select Case 语句属于程序基本结构中的 注意：本题有问题，C 和D均可 ： A）顺序结构 B）循环结构 C）分支结构 D）选 择结构 20. 为了把焦点移到某个指定的控件，所使用的方法是 A A) SetFocus B) Visible C) Refresh D) GetFocus 21. 设a=3，则执行 x=IIf(a5,-1,0)后，x 的值为 C（详见附录IIf 函数定义） 。 A) 5 B) 6 C) 0 D) -1 22. 执行下面的程序段后，x 的值为 A 。 x=5 For i=1 To 10 Step 2 x=x+i5 Next i A) 8 B) 10 C) 6 D) 12 23. 在窗体上画一个命令按钮，然后编写如下事件过程：