程序设计基础练习题.doc

1. 列表框 属性，无论是在设计时还是在运行时都是不能修改的。A) ListB) SortedC) ListCountD) Multiselect2. 在组合框Combo1中有3个项目，能删除最后一项的语句是 。A) Combo1.RemoveItem IndexB) Combo1.RemoveItem 3C) Combo1.ClearD) Combo1.RemoveItem 23. 下列语句中正确的是 。A) Dim a%(20) as integerB) n =10：Dim a(n)As IntegerC) Dim a$( )：a=Split(“经济，政治，哲学，文学，地理”, “,”) D) Dim a%( )：a=Array(2,3,4,5,6)4. 执行下列程序段，窗体上显示的是 。Dim a(10) as integera(0)=1:a(1)=1For i = 2 To 10 a(i) = a(i-1) +a(i-2)Next iFor i=3 to 5 Print a(i);Next i A) 3 5 8B) 1 1 2C)1 2 3D)1 1 2 3 55. 执行下列程序段，窗体上显示的是 。Private Sub Form_Click()Dim a()a = Array(5, 6, 8, 4, 3, 7)For i = LBound(a) To UBound(a) k = i For j = i + 1 To UBound(a) If a(j) a(k) Then k = j Next j temp = a(k): a(k) = a(i): a(i) = tempNext i For i = 0 To UBound(a) Print a(i);Next iEnd SubA)5 6 8 4 3 7B)3 4 5 6 7 8C)程序有错D)8 7 6 5 4 36. 执行下列程序段，窗体上显示的是 。Private Sub Form_Click()Dim a(9) As Integer, i%, x%, s%For i = 0 To 9 a(i) = Int(10 * Rnd) x = a(i) 10 x = x + 1 s = s + xNext iPrint x, sEnd SubA)11 55B)1 10C)程序有错D)11 107. 执行下列程序段，窗体上第一行显示的是 。Private Sub Form_Click()Dim a(1, 1)s = 东南西北For i = 0 To 1 For j = 0 To 1 k = k + 1 a(i, j) = Mid(s, k, 1) Next jNext iFor i = 0 To 1 For j = 1 To 0 Step -1 Print a(j, i); Next j PrintNext iEnd SubA)东南B)东西C)西东D)北南8. 执行下列程序段，窗体上显示的是 。Private Sub Command1_Click()Dim a(5) As Integer, b(5) As IntegerFor j = 1 to 4a(j) = 3 * jb(j) = a(j) * 3Next jPrint b(j 2)End SubA) 25B)28C) 36D) 189. 下列程序段运行的结果是 。Dim a1(1 to 4,1 to 4),a2(1 to 4,1to 4)For i =1 To 4 For j=1 to 4a1(i,j)= i+ja2(i,j)=a1(i,j)+i+jnext jNext iPrint a2(1,2);a2(2,2)A) 3 4B)6 8C) 2 6D) 3 610. 不是合法的语句。A) MsgBox InputBox(请输入整数)B) MsgBox InputBox(请输入整数)，VbOkOnlyC) Call MsgBox(输出整数为 & InputBox(请输入整数)D) InputBox(MsgBox(请输入整数)11. 执行command1_click事件过程后，窗体上显示的是 。Private sub command1_click()Dim a% a = -1 call f1(a) print “a=”;aend subpublic sub f1(ByVal a%) a = a +1end subA) a=-1 B) a=-2 C) a=0 D) a=112. VB在过程声明时对形参与实参的传递方式不做说明时，系统默认的传递方式为 。A) 按值传递B) 按址传递C) 通过过程名反馈传递D) 给出传递出错信息框13. 在窗体通用栏上声明的Public变量，被其他窗体或模块引用时需要在变量名前加 。A) 所在的窗体名B) MeC) 它所在的程序名D) 它所在的项目名14. 在窗体的通用栏用Dim定义的变量是 。A) 全局变量B) 模块变量C) 私有变量D) 静态变量15. 自定义函数将运算结果返回的方法是 。A) Return & 表达式B) 函数名 & 表达式C) Return=表达式D) 函数名= 表达式当实参数组A声明为A%(9)，则对应的形参数组B应声明为 。A) B%(9)B) B%(1 to 9)C) B%( )D) B%(LBound(A)17. 若没有声明函数返回值的数据类型时，系统默认的数据类型是 。A) IntegerB) StringC) SingleD) Variant18. 要在菜单中添加一个分隔条，需要设置菜单项的 属性值为“-”。A) 标题B) 名称C) 快捷键D) 索引19. 要想使通用对话框显示“另存为”对话框，可以使用 方法。A) ShowOpenB) ShowSaveC) ShowSaveAsD) ShowWrite20. 使通用对话框CommonDialog1显示“打开文件”对话框时，如果只显示窗体文件，则需要将CommonDialog1的Filter属性设置为 。A) Form filesB) Form files(*.frm) C) Form files(*.frm)|*.frmD) Form files(*.form) 21. 鼠标点击2次窗体后，显示在窗体上的内容是 。Dim a%, b%Private Sub Form_Click() Dim a% Static c As Integer a = a + 1 b = b + 1 c = c + 1 Print a; b; cEnd SubA) 1 1 1B) 2 2 2C) 1 2 1D) 1 2 222. 数组a是一个存放整型数据的动态数组，执行Redim 语句后，系统分配1KB的内存空间给数组a存放数据，则数组a包含的元素个数应为 A) 1024B) 256C) 512D) 12823. 如果f(1) + 15 为合法表达式，则f(1) 。A) 可以是一个数组元素引用，也可以是一次函数调用B) 一定是一个数组元素引用C) 一定是一次函数调用D) 既不可能是一个数组元素引用，也不可能是一次函数调用24. 以下叙述中错误的是 。A) 打开工程文件时，系统自动装入与其有关的窗体、标准模块等文件B) 保存Visual Basic程序时，应分别保存窗体文件及工程文件C) Visual Basic源程序不能编译成可执行程序D) 事件可以由用户引发，也可以由系统引发25. 要使Print方法在Form_Load事件中起作用，必须对窗体的 属性进行设置。A) ForeColorB) CaptionC) AutoRedrawD) BackColor26. VB是一种面向对象的可视化程序设计语言，采用了 的编程机制。A) 事件驱动B) 按过程顺序执行C) 从主程序开始执行D) 按模块顺序执行27. 如果在窗体上已经创建了一个文本框对象Text1，可以通过 事件过程获得输入键的ASC码值。A) ChangeB) KeypressC) LostfocusD) Gotfocus28. 如果一个变量未经声明就直接使用，则该变量的数据类型为 。A) IntegerB) ByteC) BooleanD) Variant29. 所有对象都应具有的属性是 。A) TextB) NameC) ValueD) Caption30. 数学表达式“A小于B或C”在VB中的逻辑表达式为 。A) AB OR CB) AB OR BCC) A (B OR C)D) AB OR A637. 产生10,37之间的随机整数的VB表达式是 。A) Int(Rnd*27)+10B) Int(Rnd*28)+10C) Int(Rnd*27)+11D) Int(Rnd*28)+1138. 没有Value属性的控件是 。A) ListBoxB) HScrollBarC) CheckBoxD) OptionButton39. Select Case End Select属于 控制结构语句。A) 选择B) 顺序C) 循环D) 列表40. 执行下列程序段，窗体上显示的是 。For i = 1 To 5 For j = i To 5 Print Tab(3 * j); i; Next jNext iA）1 1 1 1 1 2 2 2 2 3 3 3 4 4 5B）1 2 3 4 5 2 3 4 5 3 4 5 4 5 5C）1 2 3 4 52 2 2 23 3 3 4 45D）1 1 1 1 12 2 2 23 3 34 4541. 执行下列程序段，窗体上显示的是 。M = 10I = 1Do While I = M M = M - 1 I = I + 1LoopPrint M, IA) 0 11B) 5 5 C) 10 11D) 5 642. 下列程序段循环体语句执行了多少次 。M = 10I = 1Do While I =90 Then print ”优秀” ElseIf mark=80 Then print ”良好” ElseIf mark=70 Then print ”较好” ElseIf mark=60 Then print ”及格” Else print ”不及格”End IfB）Select Case markCase Is=90 print ”优秀” Case Is=80 print ”良好” Case Is=70 print ”较好” Case Is=60 print ”及格” Case Elseprint ”不及格”End SelectC)If mark=60 Then print ”及格”ElseIf mark=70 Then print ”较好” ElseIf mark=80 Then print ”良好” ElseIf mark=90 Thenprint ”优秀”Else print ”不及格”End IfD)If mark=90 Then print ”优秀” If mark=80 And mark=70 And mark=60 And mark10C) case is 10 and is 1056. 将字符型数据转换成数值型数据的函数是 。A) Str()B) Val()C) Sring() D) Instr()57. 以下叙述中错误的是 。A、在程序运行时，通用对话框是不可见的。B、同一个程序中，用不同方法（如showopen或showsave等）打开的通用对话框具有不同的作用。C、调用通用对话框控件的showopen方法，可以直接打开在该通用对话框中指定的文件。D、调用通用对话框控件的showcolor方法，可以打开颜色对话框。58. 下列对象中，不属于标准控件的是 。A、单选按钮B、图片框C、通用对话框D、文本框二、填空题1. 写出与Print “y”;iif(y mod 2 = 1 ,”是奇数”,”是偶数”)等价的if语句是if y mod 2=1 than print Y& ”是奇数” else print y & “是偶数”2. 已知数组a的上界为top，下界为bot，那么在使用折半查找法时中点mid的表达式为mid = (top + bot)/23. 要使定时器对象Timer1在程序运行起作用，除了要设置其Interval值不为零以外，还必须将其Enabled 属性值设置为 Ture。4. 随机产生一个小写英文字母的表达式为：Chr ( Int( Rnd ( )* 26+97)。5. 在VB中，声明静态变量的关键字是： Static。6. 在用菜单编辑器设计菜单时，必须输入的菜单项是： 名称 。三、简答题1. 阅读以下程序，回答下列问题。Private Sub Form_Click()Dim c%,d%,y%c=10:d=20x=add1(c,d)print c,d,xEnd SubPublic Function add1(ByVal a%, b%)a = 2 * ab = b + 100add1 = a + bEnd Function上述程序中，哪些是c,d形参、哪些是a,b实参？上述程序中，实参和形参之间采用什么样的数据传递方式？c,d 地址 a,b數值执行Form_Click()事件过程，窗体上显示的内容是？ 10,12,12002. 下面程序可正确运行。简述其功能。Dim a(), x%, y%, z%, t%a = Array(12, 23, 44, 78, 98