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

计算机程序设计基础课后练习题参考答案 计算机程序设计基础课后练习题1 一判断题 (1)（错）事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。 (2)（错）若X2, Y5，则表达式 Y2>X 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属性先进行相应设置。 二单选题 (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 ") & ("56789")D）Ltrim("12345 ") & Rtrim(" 56789") (26)将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言， _B_。 A）图形框中的图片自动改变大小适应图形框 B）图形框自动改变大小适应其中的图形 C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。 D）如果图片的大小比图形框小，则图形框大小不发生变化。 (27)要获得当前驱动器应使用驱动器列表框的哪个属性 B 。 A）Path B）Drive C）Dir D）Pattern (28)以下关于函数过程的叙述中，正确的是_A_。 A）函数过程形参的类型与函数返回值的类型没有关系 B）在函数过程中，过程的返回值可以有多个 C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 D）如果不指明函数过程参数的类型，则该参数没有数据类型 (29)单击滚动条的滚动箭头时，产生的事件是_C_。 A）Click B）Scroll C） Change D）Move (30)以下能返回文件长度的函数是_B_。 A）BOF B）LOF C）LEN D）EOF 三程序填空题 在C盘当前文件夹下已存在名为Data.txt的文件，利用文本框（Text1）输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时，则表示结束输入（对于单词“END”不论大小写都视为结束），最后将文件关闭。 Private Sub Form_Load() （31） A Text1.Text = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If （32） D = "END" Then Close # End Else （33） A（注意，Text1的默认属性为text，可省略不写） Text1.Text = "" End If End If End Sub (31)A）Open "C:Data.txt" For Output As # B）Open "C:Data.txt" For Input # C）Open "C:Data.txt" Input As # D）Open "C:Data.txt" Output As # (32)A）LCase(Text1.Text) B）Text1.Text C）Str(Text1) D）UCase(Text1.Text) (33)A）Write #1, Text1 B）Write #1, Text C）Write #3, Text1.Text D）Write #1, Text.Text 程序运行后如下图所示，Label1的Caption显示为"字体定时变大"，影响字体大小的属性每隔0.5秒增加1，数值在8，72之间变化。 Option Explicit Private Sub Form_Load() Timer1.Enabled = True （34）B Label1.Caption = "字体定时变大" End Sub Private Sub Timer1_Timer() Static i As Integer If i = 72 Then i = 7 i = i + 1 （35）A End Sub (34)A）Timer1.Interval=5/10 B） Timer1.Interval = 500 C）Timer1.Interval=True D）Timer1.Interval=False (35)A）Label1.FontSize = i B）Label1.Font = i C）Label1.Size = i D）Label1.FontSize = i+1 已知五个数存放在数组中，用冒泡法对该数组进行递减排序（冒泡法：一旦发现数组中两个数逆序马上交换这两个数）。 Private Sub Command1_Click() Dim a(1 To 5) As Integer Dim n%, i%，j%, t% a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23 For i = 1 To 4（确保第i轮循环后，a(i)位置上存放第i大的数） For j = 5 To i+1 Step -1 If （36）B Then t = a(j) （37）D a(j - 1) = t End If Next j Next i For i = 1 To 5 Print a(i); 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) 在窗体上画一个名称为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 四程序阅读题 根据以下代码，单击窗体三次，那么第一次单击后输出的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 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 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） 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。（：表示回车） 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 k 13 Then k=0 If k=13 Then s = s + Val(Text1.Text): Text1.Text = "": Print s; End Sub (46)写出运行时在Text1中依次按“1 3 5”输入后窗体上的显示结果_(46)_A_。 A）1 4 9 B）9 C）1 3 5 D）5 (47)写出运行时在Text1中依次按“1 -3 5”输入后窗体上的显示结果_(47)_B_。 A）1 -2 3 B）1 4 9 C）1 -3 5 D）3 (48)写出运行时在Text1中依次按“1 2a 5”输入后窗体上的显示结果_(48) D_。 A）1 43 48 B）1 2 5 C）5 D）1 3 8 Private Sub Form_click() Dim x As Single x = Val(InputBox("输入x") Select Case x 2 Case 1 Print "y=" x Case 2 Print "y=" x Mod 2 Case 3 Print "y=" x Mod 3 Case Else Print "y=" x 2 End Select End Sub (49)当x的输入值为5时的运行结果为（49） C A）y=5 B）y=2.5 C）y=1 D）y=0 (50)当x的输入值为5.5时的运行结果为（50）D A）y=5 B）y=2.5 C）y=1 D）y=0 (51)当x的输入值为-7时的运行结果为（51） B A）y=-7 B）y=-3 C）y=1 D）y=3.5 设text1.text为“abcdef”，运行时连续单击2次控件Hscroll1右侧箭头后，组合框控件中的第一项为_(52) A_、第二项_(53) A_。 Private Sub Form_Load() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.Clear End Sub Private Sub HScroll1_Change() Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0 End Sub (52)A）abc B）abcd C）ab D）abcde (53)A）ab B）abcde C）abc D）abcd 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 Private Sub f(s As String) （解释：根据代码推测功能是：将字符串s等分为两部分，并交换前半部与后半部的位置，如“abcde”，交换后得“decab”） Dim i As Integer, n As Integer, c As String n = Len(s) If n Mod 2 = 1 Then c = Mid(s, n 2 + 1, 1) For i = 1 To Len(s) 2 c = Mid(s, Len(s) + 1 - i, 1) + c + Mid(s, i, 1) Next i s = c End Sub Private Sub Command1_Click() Dim x As String x = InputBox("x=") Call f(x) Print x End Sub (54)单击Command1后输入"abc"，窗体上显示结果为（54）A ： A）cba B）bca C）abc D）acb (55)如果将Sub过程f首句改为Private Sub f(Byval s As String)，单击Command1后 输入"abcd"，窗体上显示结果为：（55）C A）abdc B）cdab C）abcd D）bcad 计算机程序设计基础课后练习题2 一、判断题 1（错）任何控件都有一个Caption属性。 2（对）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。 3（错）用以下语句定义：Dim max,min as Single , 则max 和 min 的数据类型均为Single。 4（对）通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。 5（对）用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。6（对）在某列表框中一共有5个选项，而当选中第三项时，这时列表框的ListIndex 属性为2。 7（错，标准模块文件格式为.bas）VB中工程文件是指与该工程有关的全部文件和对象，其扩展名是.vbp；窗体文件包括窗体及其控件的正文描述，其扩展名是.frm；标准模块文件是可选的，其扩展名是.cls。 8（错，Clear方法）用Cls方法可以清除组合框中的所有表项。 9Frame控件可以作为其他控件的容器。 10（错）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。 二、单选题 11.P的值为3时，P2的值是_B_。 A、9 B、9 C、6 D、-6 12.以下程序段的执行结果为_A_。 A=0: B=1 Do A=A+B B=B+1 Loop While A10 C、Case Is>10 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=4>6 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的命令按钮，然后编写