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

第 1 页 共 24 页 计算机程序设计基础计算机程序设计基础课后练习题课后练习题 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 属性先进行相应设置。 二单选题 (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，10C) 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） 第 2 页 共 24 页 (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 第 5 页 共 24 页 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 四程序阅读题 【程序阅读 1】根据以下代码，单击窗体三次，那么第一次单击后输出的 a、b、c 的值为 _(41)_ C_，第二次单击后输出的 a、b、c 的值为_(42)_D_，第三次单击后输 出的 a、b、c 的值为_(43) _A_。 第 6 页 共 24 页 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】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正 确答案。 （：表示回车） 第 7 页 共 24 页 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 【程序阅读4】 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 【程序阅读5】设text1.text为“abcdef”，运行时连续单击2次控件Hscroll1右侧箭头后， 第 8 页 共 24 页 组合框控件中的第一项为_(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 【程序阅读 6】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正 确答案。 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 第 9 页 共 24 页 计算机程序设计基础计算机程序设计基础课后练习题课后练习题 2 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 方法可以清除组合框中的所有表项。 9 Frame 控件可以作为其他控件的容器。 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 Is10 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、如果图片的大小比图形框小，则图形框大小不发生变化。 第 11 页 共 24 页 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 第 12 页 共 24 页 在窗体上画一个名称为 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 第 13 页 共 24 页 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 第 14 页 共 24 页 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 )!1(! 4! 3! 2 32 n xxxx n 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 输入课程名称，单击按钮，添加到列表框 第 15 页 共 24 页 （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 “” D、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) 第 16 页 共 24 页 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 第 17 页 共 24 页 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 结果： 第 18 页 共 24 页 计算机程序设计基础计算机程序设计基础课后练习题课后练习题 3 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 第 19 页 共 24 页 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. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 2 x = 2 For j = i To 3 x = x + 6 Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是 B 。 A) 20 B) 14 C) 32 D) 38 24. 在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_Click() b=0 Do While b-1 a = Val(InputBox(“请输入 A 的值”) b = Val(InputBox(“请输入 B 的值”) a = a+b Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、3、3、-1，则输出结果为 A 。 第 20 页 共 24 页 A) 2 B) 3 C) 14 D) 15 25. 将通用对话框以打开对话框打开，则选以下（ A ）方法。 A）ShowOpenB）ShowColorC）ShowSaveD）ShowFont 26. 计时器控件能够引发的唯一事件是（ C ） AKeypress BClickCTimerDTimer1 27. 用于设置计时器时间间隔的属性是 A ： A、Interval B、Name C、Left D、Top 28. 在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x40 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为 B A) 1 和 0 B) 2 和 72 C) 3 和 50 D) 4 和 168 29. 用下面语句定义的数组的元素个数是 D 。 Dim A (-2 To 6) As Integer A) 6 B) 7 C) 8 D) 9 30. 循环语句 For I= -3 To 20 Step 4执行的次数为 C 。 A) 4 B) 5 C) 6 D) 8 31. 函数 Int(10*Rnd)是在（ D ）范围内的整数。 A0，1 B1，10C1，9 D0，9 32. 利用下面哪个函数可访问文件大小 。（ A ） A） LOF B） LOC C）EOF D）BOF 33. 假定有如下的 Sub 过程： Sub S（x As Single,y As Single） t = x x =t/y y =t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click ( ) 第 21 页 共 24 页 Dim a As Single Dim b As Single a =2 b =4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为 C 。 A) 2 4 B) 1 0 C) 0.5 2 D) 0.5 0 34. 阅读程序： Function F(a As Integer) Static c b = 0 b = b+1 c = c+1 f = a+b+c End Function Private Sub Commandl_Click () Dim a As Integer a =2 For i =1 To 2 Print F(a) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 D 。 A) 4 B) 4 C) 4 D) 4 4 5 6 7 35. 阅读程序： Private Sub Commandl_Click() s=InputBox(输入字符串) For i= Len(s) To 1 Step -1 Print Mid(s,i,1); Next i End Sub 运行上面的程序，单击命令按钮，输入“ABCD”,输出结果为 B 。 A）ABCD B) DCBA C)AAAA D) DDDD 36. 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 C 。 A) Move B) Change C) Scroll D) GetFocus 第 22 页 共 24 页 37. 设窗体上有一个列表框控件 List1，且其中含有若干列表项。则以下能表示当前被选 中的列表项内容的是 D A)List1.List B)List1.ListIndex C)List1.Index D)List1.List(List1.ListIndex) 38. 为了暂时关闭计时器，应把该计时器的某个属性设置为 False ，这