vb2009考题.docVIP

南 方 医 科 大 学 2009学年（春）季学期考试 临床医学, 预防医学, 公共事业管理(医院管理), 经济学, 《计算机二》试卷（A卷） 姓名 学号 专业 年级 学时数： 答卷时间：14:00--15:40 负责人: 席卫文 题号 一　 二　 合计 题型 A1型题　 编程题　 满分 60　 40　 100　 得分 评卷人 得分： 　 得分： 　 D）。??? A．???Private?Sub?Text1_Change（）??? 　　　Command1.Caption?=计算机等级考试???? 　　End?Sub??? B．???Private?Sub?Command1_?Click?（）??? 　　　Caption?=?计算机等级考试??? 　　End?Sub??? C．??Private?Sub?Form1_?Click?（）??? 　　　Text1.Caption?=?计算机等级考试??? ?　End?Sub??? D．?Private?Sub?Command1_?Click?（）??? 　　　Text1.Text?=?计算机等级考试??? ?End?Sub?? 52. 把窗体的KeyPreview属性设置为True，然后编写如下事件过程 Private Sub Form_KeyPress（KeyAscii As Integer） 　　Dim ch As String 　　ch = Chr（KeyAscii） 　　KeyAscii = Asc（UCase（ch））　　Print Chr（KeyAscii + 2） End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（　　）。 　　A．A 　　B．B 　　C．C 　　D．D 53. 在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： 　　Private Sub Command1_Click（（） 　　a=InputBox（（“请输入日期（1~31）”） 　　t=”旅游景点：” _ 　　 IIf （ a 0 And a = 10,”长城”,””） _ 　　 IIf （ a 10 And a = 20,”故宫”,””） _ 　　 IIf （a 20 And a = 31,”颐和园”,””） 　　Text1.Text = t 　　End Sub 　　程序运行后，如果从键盘上输入16，则在文本框显示的内容是（　　）。 　　A． 旅游景点：长城故宫 　　B． 旅游景点：长城颐和园 　　C． 旅游景点：颐和园 　　D． 旅游景点：故宫 54. 在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是（　）。?? A）?Private?Sub?List1_Click（）?? 　　?Label1.Caption?=?List1.ListIndex?? 　　?End?Sub?? B）?Private?Sub?List1_Click（）?? 　　?Label1.Name?=?List1.ListIndex?? 　　?End?Sub?? C）?Private?Sub?List1_Click（）?? 　　?Label1.Name?=?List1.Text?? 　　?End?Sub?? D）?Private?Sub?List1_Click（）?? 　　?Label1.Caption?=?List1.Text?? 　　?End?Sub? 55. 计算n!的函数过程如下： Private Function fact（n As Integer） As Long f = 1 For i = 1 To n f = f * i Next i （___________________） End Function 下划线处需要编写的语句是（ ）。 A. f = 1 B. f = fact C. fact = f D. 不需要其他任何语句 56. 设有Function过程:? Private?Function?f（a?As?Integer,?b?As?Integer）?As?Integer a?=?a?*?a:?b?=?b?*?b f?=?CInt（Sqr（a?-?b）） End?Function 则如下程序段的运行