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

1、 第 1 页 共 24 页? ?计算机程序设计根底计算机程序设计根底? ?课后练习题课后练习题 1 1一判断题(1)错事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。(2)错假设 X2, Y5，那么表达式 Y2XAND X2Y 的结果为：True。(3)错常量是指在程序运行过程中其值可以改变的那些量。(4)错，timer 没有VB 工具箱中的所有控件都具有宽度Width和高度Height属性。(5)错定义变量：Dim max,min as Single , 那么 max 和 min 的数据类型均为Single。(6)对如果创立的菜单项的标题是一个减号“-，那么该菜单项显示为一条

2、分隔线。(7)错标准模块文件的扩展名是“*.VBP。(8)错，都不能定时器控件可以响应 Click 事件，但不能响应 DbClick 事件。(9)错在默认情况下，数组下标下界的缺省值为 1。(10) 对在使用字体对话框时，需要对其 Flags 属性先进行相应设置。二单项选择题(11) 在 Visual Basic 中，表示鼠标单击事件的是 C 。AActivate BDoubleClick CClick DMouseDown(12) 用于设置计时器时间间隔的属性是 A 。AInterval BName CLeft DTop(13) 函数 Int(10*Rnd)是在 D 范围内的整数。A1，10

3、 B1，10C) 0，9) D0，9(14) Select case 语句结构的结尾应使用 D 。AEnd B End Case C End Sub D End Select(15) 改变了容器的坐标系后，该容器的 A 属性值不会改变。Aleft Bscaleleft Cscaletop Dscalewidth(16) 执行以下语句后，列表框中各表项顺序为 D List1.Clear For i=1 to 4 : List1.AddItem i-1,0 ：Next iA B C D 第 2 页 共 24 页(17) 输入对话框 InputBox 的返回值的类型是 A 。A字符串 B整数 C浮点

4、数 D长整数(18) 将焦点主动设置到指定的控件或窗体上，应采用 B 方法。ASetDate BSetFocus CSetText DGetData(19) 有如下程序段：Dim I As Integer , S As IntegerS = 1FOR I = 1 TO 8 STEP 2 S = S * INEXT IPRINT “S = “ ; S运行结果为 B AS = 9 BS = 105 CS = 1 DS = 16(20) 利用以下_D_语句，可以输出日期和时间信息。APrint Date BPrint Month CPrint Time DPrint Now(21) 一只漂亮的酒杯被

5、摔碎了，那么漂亮，酒杯，摔是_D_。A对象，属性，事件 B对象，属性，方法C属性，对象，方法 D属性，对象，事件(22) 将通用对话框以“翻开文件对话框方式翻开，那么选以下 A 方法。A) ShowOpen BShowColor CShowSave DShowFont(23) 执行语句“Line (100, 100)-(150, 200), vbBlue, B,在窗体上绘制出一个矩形，那么该矩形的面积 = A 。A5000 B10000 C 15000 D20000(24) 如何使一个标签或按钮控件在运行时不可用_C_。A把它的 Visible 属性设置成 False B把它的 Visible

6、 属性设置成 TrueC把它的 Enabled 属性设置成 False D把它的 Enabled 属性设置成 True(25) 以下 C 表达式的结果为1234556789。ATrim(12345 + 56789) BLtrim(12345 )+Rtrim( 56789)CRtrim(12345 ) & (56789) DLtrim(12345 ) & Rtrim( 56789)(26) 将图形框PictureBox控件的 AutoSize 属性设置为 True 后，那么对于图形框而言，_B_。A图形框中的图片自动改变大小适应图形框B图形框自动改变大小适应其中的图形C如果图片的

7、大小比图形框大，那么图形框自动裁剪图象以适应图形框的大小。D如果图片的大小比图形框小，那么图形框大小不发生变化。(27) 要获得当前驱动器应使用驱动器列表框的哪个属性 B 。APath BDrive CDir DPattern 第 3 页 共 24 页(28) 以下关于函数过程的表达中，正确的选项是_A_。A函数过程形参的类型与函数返回值的类型没有关系B在函数过程中，过程的返回值可以有多个C数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D如果不指明函数过程参数的类型，那么该参数没有数据类型(29) 单击滚动条的滚动箭头时，产生的事件是_C_。AClick BScroll C

8、Change DMove(30) 以下能返回文件长度的函数是_B_。ABOF BLOF CLEN DEOF三程序填空题【程序填空 1】在 C 盘当前文件夹下已存在名为 Data.txt 的文件，利用文本框Text1输入假设干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后去除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END时，那么表示结束输入对于单词“END不管大小写都视为结束 ，最后将文件关闭。Private Sub Form_Load() 31 A Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyA

9、scii As Integer)If KeyAscii = 13 ThenIf 32 D = END ThenClose #EndElse 33 A注意，Text1 的默认属性为 text，可省略不写 Text1.Text = End IfEnd IfEnd Sub(31) AOpen C:Data.txt For Output As #BOpen C:Data.txt For Input #COpen C:Data.txt Input As #DOpen C:Data.txt Output As #(32) ALCase(Text1.Text) BText1.TextCStr(Text1)

10、DUCase(Text1.Text)(33) AWrite #1, Text1 BWrite #1, Text CWrite #3, Text1.Text DWrite #1, Text.Text【程序填空2】程序运行后如以下图所示，Label1的Caption显示为 字体定时变大，影响字体大小的属性每隔0.5秒增加1，数值在8，72之间变化。 第 4 页 共 24 页Option ExplicitPrivate Sub Form_Load()Timer1.Enabled = True 34B Label1.Caption = 字体定时变大End SubPrivate Sub Timer1_T

11、imer() Static i As Integer If i = 72 Then i = 7 i = i + 1 35A End Sub(34) ATimer1.Interval=5/10B Timer1.Interval = 500CTimer1.Interval=True DTimer1.Interval=False (35) ALabel1.FontSize = i BLabel1.Font = iCLabel1.Size = i DLabel1.FontSize = i+1 【程序填空3】五个数存放在数组中，用冒泡法对该数组进行递减排序冒泡法：一旦发现数组中两个数逆序马上交换这两个数

12、 。Private Sub Command1_Click()Dim a(1 To 5) As IntegerDim n%, i%，j%, t%a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23For i = 1 To 4确保第i轮循环后，a(i)位置上存放第i大的数 For j = 5 To i+1 Step -1 If 36 B Then t = a(j) 37D a(j - 1) = t End If Next jNext iFor i = 1 To 5Print a(i);Next i 第 5 页 共 24 页End Sub (36

13、) Aa(j) a(j - 1) Ca(i) a(j) Da(j) a(i) (37) Aa(i)=a(j) B) a(j-1)=a(j) Ca(j)=a(i) D) a(j) = a(j - 1)【程序填空 4】在窗体上画一个名称为 Combol 的组合框，画两个名称分别 Label1 和Label2 及 Caption 属性分别为“城市名称和空白的标签。程序运行后如以下图所示，当在组合框中输入一个新的工程按回车键时回车键的 ASCII 码为 13，如果输入的项在组合框的列表中不存在，那么自动添加到组合框的列表中，并在 Label2 中给出提示“已成功添加输入项；如果存在，那么在 Label

14、2 中给出提示“输入项已在组合框中。Private Sub Combo1_ KeyPress (KeyAscii As Integer)If _ (38) B ThenFor i=0 To Combo1.ListCount-1If Combo1.Text= _ (39) B ThenLabel2.Caption=输入项已在组合框中Exit SubEnd IfNext iLabel2.Caption=已成功添加输入项Combo1._ (40) C Combo1.TextEnd IfEnd Sub(38) AKeyAscii=0 BKeyAscii=13 CKeyAscii=8 DKeyAscii

15、=9(39) ACombo1.ListIndex BCombo1.List(i) CCombo1.AddItem(i) DCombo1.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

16、a As Integer c = 2 Call AA(c) b = BB(a) Print a, b, cEnd SubPublic Sub AA(c%) a = c + b c = a + cEnd SubPublic Function BB(ByVal b%) b = b + 1 BB = a + bEnd Function(41) A2 5 4 B2 3 4 C0 3 4 D0 3 2(42) A7 12 9 B7 15 9 C0 6 2 D0 6 7(43) A0 9 10 B0 9 2 C17 19 35 D10 27 32【程序阅读2】阅读以下程序并答复以下问题，在每题提供的假设干

17、可选答案中，挑选一个正确答案。Private Sub Form_Click()Form1.Scale (-10, 10)-(10, -10)Form1.Circle (0, 0), 5, , -3 * 3.14 / 2, -3.14Form1.FillStyle = 0End Sub(44)运行以上程序，第一次单击窗体后，Form1 上的输出结果是 (44) A ， A B C D (45)第二次单击窗体后, Form1 上的输出结果是 (45) B 。 A B C D 【程序阅读 3】阅读以下程序并答复以下问题，在每题提供的假设干可选答案中，挑选一个正确答案。 ：表示回车 第 7 页 共 2

18、4 页Private Sub Form_Load() Text1.Text=: Form1.ClsEnd SubPrivate 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_。A1 4 9 B9 C1 3 5 D5(47)写出运行时在 Text1

19、 中依次按“1 -3 5 输入后窗体上的显示结果_(47)_B_。A1 -2 3 B1 4 9 C1 -3 5 D3(48)写出运行时在 Text1 中依次按“1 2a 5 输入后窗体上的显示结果_(48) D_。A1 43 48 B1 2 5 C5 D1 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 Pr

20、int y=; x 2End SelectEnd Sub(49) 当 x 的输入值为 5 时的运行结果为 49 C Ay=5 By=2.5 Cy=1 Dy=0(50) 当 x 的输入值为 5.5 时的运行结果为 50D Ay=5 By=2.5 Cy=1 Dy=0(51) 当 x 的输入值为-7 时的运行结果为 51 B Ay=-7 By=-3 Cy=1 Dy=3.5【程序阅读5】设text1.text为“abcdef，运行时连续单击2次控件Hscroll1右侧箭头后， 第 8 页 共 24 页组合框控件中的第一项为_(52) A_、第二项_(53) A_。Private Sub Form_Lo

21、ad() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.ClearEnd SubPrivate Sub HScroll1_Change() Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0End Sub(52) Aabc Babcd Cab Dabcde(53) Aab Babcde Cabc Dabcd【程序阅读 6】阅读以下程序并答复以下问题，在每题提供的假设干可选答案中，挑选一个正确答案。Private Sub

22、 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 = cEnd SubPrivate Sub Command1_Click() Dim x A

23、s String x = InputBox(x=) Call f(x) Print xEnd Sub(54)单击 Command1 后输入abc，窗体上显示结果为54A ：Acba Bbca Cabc Dacb(55)如果将 Sub 过程 f 首句改为 Private Sub f(Byval s As String)，单击 Command1 后 输入abcd，窗体上显示结果为：55C Aabdc Bcdab Cabcd Dbcad 第 9 页 共 24 页? ?计算机程序设计根底计算机程序设计根底? ?课后练习题课后练习题 2 2一、判断题1 错任何控件都有一个 Caption 属性。2 对对

24、于事件驱动型应用程序，每次运行时的执行顺序可以不一样。3 错用以下语句定义：Dim max,min as Single , 那么 max 和 min 的数据类型均为 Single。4 对通用对话框不能真正实现文件翻开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能那么需要编程实现。5 对用 Scale 方法改变了窗体坐标系后，窗体的 Left、Top 属性值不变。6 对在某列表框中一共有 5 个选项，而中选中第三项时，这时列表框的 ListIndex属性为 2。7 错，标准模块文件格式为.basVB 中工程文件是指与该工程有关的全部文件和对象，其扩展名是.vbp；窗体文件包括窗

25、体及其控件的正文描述，其扩展名是.frm；标准模块文件是可选的，其扩展名是.cls。 。8 错，Clear 方法用 Cls 方法可以去除组合框中的所有表项。9 Frame 控件可以作为其他控件的容器。10错Visual Basic 工具箱中的所有控件都具有宽度Width和高度Height属性。二、单项选择题11. P 的值为3 时，P2 的值是_B_。A、9 B、9 C、6 D、-612. 以下程序段的执行结果为_A_。A=0: B=1DoA=A+BB=B+1Loop While A10C、Case Is10 And Is1016. 执行语句 s=Len(Mid(VisualBasic,0,5

26、)后，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_

27、。A、单击鼠标 B、按下键盘上的“A键C、鼠标滑过文本框 D、按下键盘上的任意键19. 执行行下面的事件过程，在窗体显示的内容是_B_。Private Sub Command1_Click()Dim a As Varianta = Array(12, 23, 34, 45, 56)For i = 1 To 3Print Trim(a(i);Next IEnd SubA、122334 B、233445 C、12 23 34 D、23 34 4520. 将图形框PictureBox控件的 AutoSize 属性设置为 True 后，那么对于图形框而言，_B_。A、图形框中的图片自动改变大小适应图形

28、框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)

29、-(500,500) Red22. 以下赋值语句中，_C_是错误的。A、x=x+1 B、x=x+y C、x+y=x D、x=4623. 单击滚动条的滚动箭头时，产生的事件是_C_。A、Click B、Scroll C、 Change D、Move24. 在程序运行期间可以用_D_函数把图形装入窗体、图片或图象框。A、Autosize B、Stretch C、Picture D、LoadPicture25. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Un

30、til num 6Print num;num = num + 2.4LoopEnd Sub 程序运行后，单击命令按钮，那么窗体上显示的内容是_B_。A、1 3.4 5.8 B、1 3 5C、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 =

31、 1 To 5 x = x + a(i)NextEnd Sub 第 12 页 共 24 页在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click()Dim arr(5) As VariantDim n as IntegerFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)Text1.Text = nEnd Sub程序运行后，单击命令按钮，那么在文本框中显示的内容是 A A、10 B、15 C、25 D、2429. 窗体上画一个名称为

32、Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integer For num = 1 To 6 Step 3 Print num; Next num Print numEnd Sub 程序运行后，单击命令按钮，那么窗体上显示的内容是_C_。A、1 4 4 B、1 3 5C、1 4 7 D、无数据输出30. 以下_A_方式翻开的文件只能读不能写。A、InputB、Output C、Append D、Random三、程序填空程序 1在 C 盘当前文件夹下建立一个名为 Data.txt 的顺序文件，要求用文本框输入假

33、设干英文单词，每次按下回车键时将文本框中的内容写入文件，并去除文本框的内容，直到文本框输入 END 为止，最后关闭文件。Private Sub Form_Load() 31 C Text1.Text = End Sub 第 13 页 共 24 页Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf 32 D = END Then 33B EndElse 34A Text1.Text = End IfEnd IfEnd Sub31. A、Open D:Data.txt For Output As #B、Ope

34、n 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.TextC、Str(Text1) D、UCase(Text1.Text)33. A、Quit #1 B、Close #1C、End #1 D、Exit #134. A、Write #1, Text1 B、Write #1, Text C、Write #3, Text1.Text D、Write #1, Text.Text程序 2下面程序的作用是利用随机函数产生 10

35、0 个随机整数,范围在20，120之间包含 20 和 120 ，打印其中为 5 或 7 的倍数的数，求出它们的总和并打印。请将以下程序补充完整。 Private Sub Command1_Click() SUM=0For i = 1 To 100 X = Int 35B If 36D ThenSUM=SUM+X 37A End If Next i Print SUM=; SUM End Sub35. 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

36、7 = 0 第 14 页 共 24 页B、X 5 = 0 and X 7 = 0C、X 5 = 0 Or X 7 = 0D、X Mod 5 = 0 Or X Mod 7 = 037. A、Print X; B、Print SUM+X;C、Print SUM; D、Print SUM*X;程序 3单击窗体后，用输入对话框输入 x、n，然后按下式计算结果。要求：将计算结果以标签控件显示，且标签控件每秒随机变换一次颜色。S)!1(! 4! 3! 232nxxxxnOption Explicit Private Sub Form_Load() Timer1.Interval = 1000 Timer1

37、.Enabled = TrueEnd SubPrivate Sub Form_Click() Dim x As Single, n As Integer, i As Integer, t As Single 38B s = 0 x = InputBox(x=) n = InputBox(n=) 39D for i= 40A t = t * x / i s = s + t Next i 41C End SubPrivate Sub Timer1_Timer() Label1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub38. A、

38、Static s As Single B、Dim s As SingleC、Option Base 1 D、Const s As Single39. A、t = -1 B、t = 0 C、t = 2 D、t = 140. A、2 To n+1 B、1 To n C、2 To n D、1 To n+141. A、Label1.Caption = x B、Label1.Caption = nC、Label1.Caption = s D、Label1.Caption = s+x程序 4设计一个程序，用于从文本框 Text1 输入课程名称，单击按钮，添加到列表框 第 15 页 共 24 页List1中

39、显示出来。具体要求：单击“Command1按钮，假设文本框 Text1.Text 中不是空格串，并且列表中也没有，那么将该课程添加列表框中，然后去除文本框 Text1 的内容，再将焦点返回到文本框 Text1，以便再次在文本框 Text1 输入内容，继续添加。Private Sub Command1_Click()Dim I As IntegerDim AddFlag As Boolean 42A If 43C ThenFor i = 0 To 44B If List1.List(i) = Text1.Text Then AddFlag = False Exit For End IfNext

40、i If AddFlag Then List1.AddItem Text1.TextEnd IfText1.Text = 45B End Sub42. A、AddFlag = -1 B、AddFlag = FalseC、AddFlag = 1 D、AddFlag = 043. A、text1.text = “ B、text1.text = “ C、text1.text “ D、text1.text “ NULL 44. A、List1.ListIndex 1 B、List1.ListCount-1C、List1.ListIndex D、List1.ListCount45. A、text1.Cl

41、ear B、text1.SetFocusC、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 Fo

42、r i = 1 To 6 Print a(i); Next iEnd Sub结果：程序 2单击窗体后，在四个 PictureBox 控件中的图形分别是：答案略答案略Option ExplicitPrivate Sub Form_Click()Dim i%For i = 0 To 3 Picture1(i).Scale (-10, 10)-(10, -10)Next iPicture1(0).Line (-10, 10)-(0, 0)Picture1(0).Line -(-10, -10)Picture1(1).Circle (0, 0), 5Picture1(2).Circle (0, 0),

43、 5, , 0, 3.14159Picture1(3).Circle (0, 0), 5, , , , 2End SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 3 Picture1(i).FillStyle = (i + 1) Mod 2 Picture1(i).ClsNext iEnd Sub结果：程序 3事先将 text1.text 设为为空，在获得焦点后,从键盘上依次按下以下键:1,2,+,3,4,-,5,6,/,1,4,然后按回车键，写出输出结果。Private Sub Text1_KeyPress(K As Intege

44、r) If K Asc(9) Then 第 17 页 共 24 页 K = 0 Print Text1.Text End IfEnd Sub结果：程序 4在窗体上画一个名称为 Command1 的命令按钮，然后编写相应的事件过程。程序运行后，如果单击命令按钮，那么在窗体上显示的内容是Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd FunctionPrivate Sub Command1_Click()Static x As Integerx = 10y = 5y = f(x)Print x; yEnd

45、 Sub结果： 第 18 页 共 24 页? ?计算机程序设计根底计算机程序设计根底? ?课后练习题课后练习题 3 3一判断题1 错窗体或控件的事件的名称可以由编程人员确定。2 错关系运算表达式1+2=3的运算结果为 True。3 对变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。4 对控件的有些属性只能在运行时设置。5 对数组在内存中占据一片连续的区域。6 错驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。7 错当按钮的 Default 属性设置为 True 时，任何情况下按键，相当于单击该按钮。8 错，dim 定义的也可能是模块量在过程中用 Dim 和 S

46、tatic 定义的变量都是局部变量。9 对设置数组下标下界缺省值为 1 的语句为 option base 1 。10 对For-Next 循环结构的默认步长为 1。二单项选择题11当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？ B 个。A) 1 B) 2 C)3 D) 412能够将文本框控件隐藏起来的属性是 B 。(A) Clear (B) Visible (C) Hide (D) New13. 以下符号中，哪个是 VB 合法的变量名？ C 。A) a 123 B) Integer C) X_yz D) 14. inputBox 函数返回值的类型为

47、B 。A) 数值 B) 字符串 C) 变体 D) 数值或字符串视输入的数据而定15. 表达式 5+5 3 * 10 / 8 Mod 9 的值是 C .A) 4 B) 5 C) 6 D) 716. 如果在立即窗口中执行以下操作：a=4 (是回车键，下同)b=6 print ab 那么输出结果是 C 。A) -1 B) 0 C) False D) True 17. 当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的 C 。AMouseDown BMouseUp CLoad DClick 第 19 页 共 24 页 18. 在设计菜单时,如在菜单中参加一个菜单分隔项,那么菜单分隔项的标题

48、必须设置为 B 。 A加号(+) B减号(-) C星号(*) D感慨号(!)19. Select Case 语句属于程序根本结构中的 注意：此题有问题，C 和 D 均可 ：A顺序结构 B循环结构 C分支结构 D选择结构20. 为了把焦点移到某个指定的控件，所使用的方法是 A A) SetFocus B) Visible C) Refresh D) GetFocus21. 设 a=3，那么执行 x=IIf(a5,-1,0)后，x 的值为 C详见附录 IIf 函数定义 。A) 5 B) 6 C) 0 D) -122. 执行下面的程序段后，x 的值为 A 。x=5For i=1 To 10 Step

49、 2x=x+i5Next iA) 8 B) 10 C) 6 D) 1223. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 2x = 2 For j = i To 3 x = x + 6 Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是 B 。A) 20 B) 14 C) 32 D) 3824. 在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click()b=0Do While b-1a = Val(InputBox(“请输入 A

50、的值)b = Val(InputBox(“请输入 B 的值)a = a+bLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入 5、3、3、-1，那么输出结果为 A 。 第 20 页 共 24 页A) 2 B) 3 C) 14 D) 1525. 将通用对话框以翻开对话框翻开，那么选以下 A 方法。AShowOpenBShowColorCShowSaveDShowFont26. 计时器控件能够引发的唯一事件是 C AKeypressBClickCTimerDTimer127. 用于设置计时器时间间隔的属性是 A ：A、Interval B、Name C、Left

51、D、Top28. 在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name属性为 Command1)，然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x40 x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为 B A) 1 和 0 B) 2 和 72 C) 3 和 50 D) 4 和 16829. 用下面语句定义的数组的元素个数是 D 。Dim A (-2 To 6

52、) As IntegerA) 6 B) 7 C) 8 D) 930. 循环语句 For I= -3 To 20 Step 4执行的次数为 C 。A) 4 B) 5 C) 6 D) 831. 函数 Int(10*Rnd)是在 D 范围内的整数。A0，1 B1，10C1，9 D0，932. 利用下面哪个函数可访问文件大小 。 A A LOF B LOC CEOF DBOF 33. 假定有如下的 Sub 过程：Sub Sx As Single,y As Singlet = xx =t/y y =t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Comm

53、andl_Click ( ) 第 21 页 共 24 页Dim a As SingleDim b As Singlea =2b =4S a,b Print a,bEnd Sub程序运行后，单击命令按钮，输出结果为 C 。A) 2 4 B) 1 0 C) 0.5 2 D) 0.5 034. 阅读程序：Function F(a As Integer)Static cb = 0b = b+1c = c+1f = a+b+cEnd Function Private Sub Commandl_Click ()Dim a As Integera =2For i =1 To 2Print F(a)Next

54、iEnd Sub运行上面的程序，单击命令按钮，输出结果为 D 。A) 4 B) 4 C) 4 D) 44 5 6 7 35. 阅读程序：Private Sub Commandl_Click()s=InputBox(输入字符串) For i= Len(s) To 1 Step -1 Print Mid(s,i,1); Next iEnd Sub运行上面的程序，单击命令按钮，输入“ABCD,输出结果为 B 。AABCD B) DCBA C)AAAA D) DDDD36. 在程序运行期间，如果拖动滚动条上的滚动块，那么触发的滚动条事件是 C 。A) Move B) Change C) Scroll

55、D) GetFocus 第 22 页 共 24 页37. 设窗体上有一个列表框控件 List1，且其中含有假设干列表项。那么以下能表示当前被选中的列表项内容的是 D A)List1.List B)List1.ListIndex C)List1.Index D)List1.List(List1.ListIndex)38. 为了暂时关闭计时器，应把该计时器的某个属性设置为 False ，这个属性是 C 。A) Visible B) Timer C) Enabled D) Interval 39. 对窗体编写如下事件过程：Private Sub Form_MouseDown(Button As Integer, _ Shi