VB--2010考题---答案的 南医大.doc

南 方 医 科 大 学2009学年（春）季学期考试临床医学, 预防医学, 公共事业管理(医院管理), 经济学,计算机二试卷（A卷）姓名 学号 专业 年级 考试日期: 2010-7-15学时数：答卷时间：14:00-15:40负责人: 席卫文题号一二合计题型A1型题编程题满分6040100得分评卷人得分：一、A1型题 (答题说明：单句型最佳选择题。每一道考题下面均有五个备选答案。在答题时，只需从中选择一个最合适的答案，并在显示器选择相应的答案或在答题卡上相应位置涂黑，以示正确回答。 每题1.5分，合计60分。) 1. Sub过程与Function过程最根本的区别是 c 。 A. Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以 B. Function过程可以有形参，Sub过程不可以 C. Sub过程不能返回值，而Function过程能返回值 D. 两种过程参数的传递方式不同 2. 执行下面的语句后,所产生的信息框的标题是 C a=MsgBox（AAAA,5,BBBB）A.AAAA B.5 C.BBBB D.没有标题 3. 下列符号中哪个是VB程序中合法的变量名 A A. ab7 B. 7ab C. If D. a*bc 4. 设置属性的语句格式为 AA. “对象名属性名属性值” B. “对象名属性名 属性值” C. “窗体名属性名属性值” D. “窗体名属性名 属性值” 5. 若用户在键盘上按下一个键，则会产生一个_事件 B A. click B. KeyDown C. DbClick D. Load 6. 在密码文本框中，要使从键盘上输入的字符在文本框上显示为“*”，则应用到文本框的_属性。 A APasswordChar BCaption CValue Dword 7. 标准控件不包括（）控件。D A.驱动器列表框 B.目录列表框 C.文件列表框 D.通用对话框 8. 下列叙述错误的是（ ）。 A A 不允许使用行号与标号 B 单条语句可分行书写 C 同一行上可以书写多条语句 D VB代码不区分字母的大小写 9. 下列叙述正确的是_ B A 窗体的Name属性可以为空 B 窗体的Name属性定义窗体的名称 C 可以在运行期间改变窗体的Name属性 D 窗体的Name属性的值显示在窗体标题栏中 10. 下列叙述错误的是_A A 标签和文本框都有Caption属性 B 标签和文本框的主要区别在于能否编辑其内容 C 标签具有AutoSize属性，而文本框没有 D 文本框具有ScrollBar属性，而标签没有 11. 能清除文本框Text1中内容的语句是_B _ A Text = B Text1.Text = C Text1.clear D Text1.Cls 12. 复选框的Value属性为0表示_A A 复选框未被选中 B 复选框被选中 C 复选框内有灰色的钩 D 操作出错 13. 下列_语句设置单选按钮Option1为选中状态。B A Option1.Value = 0 B Option1.Value = True C Option1.Value = 1 D Option1.Value = False 14. 用_分隔同一窗体中的多组单选按钮，使它们互不干扰。 A A 框架 B 组合框 C 复选框 D 列表框 15. 设用复制、粘贴的方法建立一个命令按钮数组Command1，以下对该数组说法错误的是:B A、命令按钮的所有Caption属性都是Command1 B、在代码中访问任意一个命令按钮只需要使用名称Command1 C、命令按钮的大小都相同 D、命令按钮共享相同的事件过程 16. 以下说法错误的是（ ）。 B A.控件数组是一组具有相同名称、相同类型和相同事件过程的控件。 /B.常用索引号（Index） 来标识各个数组控件,第一个索引号默认为1。 C.通常如果一组控件的功能和外观都很类似（属于同一类）,则可以采用控件数组的方法来处理。 D.控件数组可以共享代码,避免了重复劳动,同时还能够提高程序的可读性。 17. 下列_不是Visual Basic程序的基本结构。 A A、层次结构 B、分支结构 C、循环结构 D、顺序结构 18. 符号常量的声明要使用关键字 。A A. Const B. Public C. Private D. Static 19. 在ForNext循环结构中，如果要做递减循环，则步长值必须 。 B A. 0 B. 0 C. =0 D. =1 20. 下列不合法的变量名是 _ 。D A、name1 B、e3 C、r_3 D、we-5 21. 下面 _类型只有True和False两个取值。 A A. 逻辑 B. 字符 C. 货币 D. 日期 22. 设有以下循环结构ADo 循环体 LoopWhile 则以下叙述中错误的是 A. 循环体有可能一次也不执行 B. 条件可以是关系表达式、逻辑表达式或常数 C. 循环体中可以使用ExitDo语句 D. 如果条件总是为True，则不停地执行循环体 23. 下面的循环语句可以在一行上输出_ 个“*”号。 C For i=1 To 40 Print “*”; Next i A. 38 B. 39 C. 40 D. 41 24. 表达式含多个运算符时，先完成（ ）A 。 A. 括号内运算 B. 函数运算 C. 算术运算 D. 关系运算 E,not and or,逻辑25. 设a=“Visual Basic”，下面使b=“Visual”的语句是 D A. b=Left（a,8,12） B. b=Mid（a,8,5） C. b=Rigth（a,6） D. b=Left（a,6） 26. 在VB代码中，将多个语句合并写在一行上的并行符是（ ） B A. 撇号（） B. 冒号（：） C. 感叹号（！） D. 星号（*） 27. 设计一个函数过程，当条件不满足时，提供报告错误信息，并使程序从特殊出口退出，需要用（ ）语句。 D A. End Sub B. Exit Sub C. End Function D. Exit Function 28. 以下说法错误的是_。A A. 函数过程没有返回值 B. 子过程没有返回值 C. 函数过程可以带参数 D. 子过程可以带参数 29. 调用CommonDialog控件的_方法可以显示“字体”对话框。C A、ForeColor B、Fore C、ShowFont D、Font30. 下列关于目录列表框的Path属性的作用说法正确的是_ C A、显示根目录下的目录和文件名 B、显示当前目录下的文件 C、显示当前驱动器或指定驱动器上某目录下的文件名 D、显示当前驱动器或指定驱动器上的目录结构 31. ListBox控件中有关List属性和Text属性描述错误的一项是_D A、List是ListBox中所有列表项的集合，是一个数组 B、List1.List（1）代表List1中的第一个列表项 C、Text属性代表ListBox当前选中的列表项 D、List1.Text与List1.List（List1.ListIndex）的效果一样 32. 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（）。 D A. Timer1.InterVal=0.5 B. Timer1.Interval=5 C. Timer.Interval=50 D. Timer1.Interval=500 33. 属性BorderColor的作用是 （ ） A A 设置直线颜色和形状边界颜色 B 设置直线或形状背景颜色 C 设置直线或形状边界线的线型 D 设置形状的内部颜色 34. 以下叙述中错误的是 （ ） C A. Visual Basic是事件驱动型可视化编程工具 B. Visual Basic应用程序不具有明显的开始和结束语句 C. Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D. Visual Basic中控件的某些属性只能在运行时设置 35. 如果要改变窗体的标题，则需要设置的属性是（ ）A A. Caption B. Name C. BackColor D. BorderStyle 36. 用来设置文本框有无滚动条的属性是 （ A ） A. ScrollBars B. MultiLine C. SelText D. SelLength 37. 下列控件运行时不可见的是_C _ A、命令按钮 B、组合框 C、通用对话框 D、文本框 38. 在过程调用中，“实参”和“形参”中对应的（ ）C ： A. 参数个数不必相等。 B. 参数类型不必相同。 C. 参数个数和类型和位置都必须相同。 D. 以上都不对。 39. 当一个工程含有3个窗体时，其中的启动窗体是（D ）。 A. 启动Visual Basic时建立的窗体。 B. 第一个添加的窗体Form1。 C. 最后一个添加的窗体Form3。 D. 在工程属性对话框中指定的窗体。 40. 要在代码编辑器的“通用/声明”段部分定义私有Function函数，则正确的是（ ）。DA. Public Sub B. Public Function C. Private Sub D. Private Function 得分：二、编程题 (答题说明：根据给出条件，完成相应的代码，或者算出结果。 每题2分，合计40分。) 41. 某人设计了下列程序用于计算并输出5!（5的阶乘）： Private Sub Command1_Click（ ） A t=0 For k=5 To 2 Step -1 t=t*k Next k Print t End Sub 执行程序时，发现结果是错误的。下列修改方案中能够得到正确结果的是_ A. 把t=0改为t=1 B. 把For k=5 To 2 Step -1改为For k=5 To 1 Step -1 C. 把For k=5 To 2 Step -1改为For k=1 To 5 D. 把Next改为Next t 42. 下列程序段的执行结果为 C a=5 For k=1 To 0 a=a + k Next k Print k; a A. -1 6 B. -1 16 C. 1 5 D. 11 21 43. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Public x As Integer Private Sub Command1_Click（） Dim y As Integer x=10 : y=5 Call f（x, y） Print x; y End Sub Private Sub f（ x1 As Integer, y1 As Integer） x1=x+2 y1=y+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是_C _。 A. 10 5 B. 12 7 C. 12 2 D. 以上都不对 44. 下列程序段运行后，其运行结果是_C _。 Dima（3）AsInteger,b（3）AsInteger Fork=0To3 a（k）=k*k+k b（k）=a（k）-k Nextk Printa（2）+b（1） A.5 B.6 C.7 D.8 45. 下列表达式的值是字符串型的是_B _。 A52+114/5 B”2007”&”4” C”abcd”2）and“bde”tre” 46. 下列_表达式的值不等于4。DA、Int（4.1） B、Int（4.9） C、Abs（int（-3.9） D、Abs（int（-4.5） 47. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click（） DimnumAsInteger num=1 DoUntilnum6 Printnum; num=num+2.4 Loop EndSub 程序运行后，单击命令按钮，则窗体上显示的内容是 AA）13.45.8 B）135 C）147 D）无数据输出 48. 运行下列程序段后，j3显示的结果为D J1=23 J2=32 j3=j1&J2 A3223 B23 C55 D2332 49. 计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是 D A.Ifx=yThenz=x:z=y BIfx=yThenz=xElsez=y C.z=y:Ifx=yThenz=x D.Ifx 0 And a 10 And a 20 And a = 31,”颐和园”,”） Text1.Text = t End Sub 程序运行后，如果从键盘上输入16，则在文本框显示的内容是（D ）。 A 旅游景点：长城故宫 B 旅游景点：长城颐和园 C 旅游景点：颐和园 D 旅游景点：故宫 54. 在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是（D ）。 A）PrivateSubList1_Click（） Label1.Caption=List1.ListIndex EndSub B）PrivateSubList1_Click（） Label1.Name=List1.ListIndex EndSub C）PrivateSubList1_Click（） Label1.Name=List1.Text EndSub D）PrivateSubList1_Click（） Label1.Caption=List1.Text EndSub 55. 计算n!的函数过程如下： Private Function fact（n As Integer） As Long f = 1 For i = 1 To n f = f * i Next i （_） End Function 下划线处需要编写的语句是（C ）。 A. f = 1 B. f = fact C. fact = f D. 不需要其他任何语句 56. 设有Function过程: PrivateFunctionf（aAsInteger,bAsInteger）AsInteger a=a*a:b=b*b f=CInt（Sqr（a-b） EndFunction 则如下程序段的运行结果是（C ）。 PrivateSubCommand1_Click（） DimXAsInteger,YAsInteger X=5:Y=4 a=f（X,Y） Printa EndSub A.5 B.4 C.3 D.9 57. 设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下列正确的事件过程是（ A ）。 A.Private Sub Commandl_Click（ ） Textl.SetFocus End Sub B.Private Sub Commandl_Click（ ） Commandl.GotFocus End Sub C.Private Sub Commandl_Click（ ） Textl.GotFocus End Sub D.Private Sub Commandl_Click（ ） Commandl.SetFocus End sub 58. 执行以下程序，在窗体上输出（ A）。 Private Sub Command1_Click（） Dim a（20） As Integer For j = 1 To 20 Step 2 a（j） = j Next j Print a（1） + a（2） + a（3） AAAAA