二级二级VB2014年全国计算机等级《二级VB》考前押密试题(5)

试卷预览

• 11把窗体的KeyPreview属性设置为True，然后编写如下事件过程：Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))Print Chr(KeyAscii+2)End Sub程序运行后，按键盘上的"A"键，则在窗体上显示的内容是（　　）。

  A.A

  B.B

  C.C

  D.D

  开始考试练习点击查看答案
• 12下述关于数据库系统的叙述中，正确的是（　　）。

  A.数据库系统减少了数据冗余

  B.数据库系统避免了一切冗余

  C.数据库系统中数据的一致性是指数据类型一致

  D.数据库系统比文件系统能管理更多的数据

  开始考试练习点击查看答案
• 13以三级模式为框架形成的3种数据库中，真实存在于计算机外存的数据库是（ ）。

  A.概念数据库

  B.用户数据库

  C.物理数据库

  D.逻辑数据库

  开始考试练习点击查看答案
• 14执行下列程序段后，输出的结果是（　　）。For k1＝0To 4y ＝20For k2＝0To 3y ＝10For k3＝0To 2y ＝y ＋10Next k3Next k2Next k1Print y

  A.90

  B.60

  C.40

  D.10

  开始考试练习点击查看答案
• 15能够存放组合框的所有项目内容的属性是（ ）。

  A.Caption

  B.Text

  C.List

  D.Selected

  开始考试练习点击查看答案
• 16软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是( )

  A.编译程序

  B.操作系统

  C.教务管理系统

  D.汇编程序

  开始考试练习点击查看答案
• 17在窗体上画一个通用对话框，其Name 属性为Cont ，再画一个命令按钮，Name 属性为Co mmand1，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Cont ．File Name ＝＂＂Cont ．Flags ＝vbOFNFile MustExistCont ．Filter ＝＂All Files｜＊．＊＂Cont ．FilterIndex＝3Cont ．DialogTitle ＝＂Open File＂Co nt ．Action ＝1If Cont ．File Name ＝＂＂ThenMsgBox ＂No file selected＂ElseOpen Cont ．File Name For Input As ＃1Do While Not EOF（1）Input ＃1，b$Print b$LoopEnd IfEnd Sub以下各选项，对上述事件过程描述错误的是（　　）。

  A.该事件过程用来建立一个Open 对话框，可以在这个对话框中选择要打开的文件

  B.选择后单击"打开"按钮，所选择的文件名即作为对话框的File Name 属性值

  C.Open 对话框不仅仅用来选择一个文件，还可以打开、显示文件

  D.过程中的＂Cont ．Action ＝1＂用来建立Open 对话框，它与Cont ．ShowOpen 等价

  开始考试练习点击查看答案
• 18在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝InputBox（＂Input＂）Select Case x Case 1，3Print ＂分支1＂Case Is ＞4Print ＂分支2＂Case ElsePrint ＂Else 分支＂End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（　　）。

  A.分支1

  B.分支2

  C.Else 分支

  D.程序出错

  开始考试练习点击查看答案
• 19若窗体上的图片框中有一个命令按钮，则此按钮的Left 属性是指（　　）。

  A.按钮左端到窗体左端的距离

  B.按钮左端到图片框左端的距离

  C.按钮中心点到窗体左端的距离

  D.按钮中心点到图片框左端的距离

  开始考试练习点击查看答案
• 20单击命令按钮时，下列程序段的执行结果是（　　）。Private Sub Commandl Click（）Di ma As Integer ，b As Integer ，c As Integera＝2：b ＝4：c ＝6Call Sl（a，b）Print ＂a＝＂；a；＂b ＝＂；b ；＂c ＝＂；cCall S2（a，b）Print ＂a＝＂；a；＂b ＝＂；b ；＂c ＝＂；c ；End SubPrivate Sub S1（x As Integer ，Y As Integer）Di mc As Integerx＝2＊x：y ＝y ＋2：c ＝x＋yEnd SubSub S2（x As Integer ，ByVal Y As Integer）Di me As Integer x＝2＊x：Y ＝Y ＋2：e ＝x＋yEnd Sub

  A.a＝4 b ＝6 c ＝6a＝4 b ＝6 c ＝6

  B.a＝8 b ＝6 c ＝6a＝8 b ＝6 c ＝6

  C.a＝4 b ＝6 c ＝6a＝8 b ＝6 c ＝6

  D.a＝8 b ＝6 c ＝6a＝4 b ＝6 c ＝6

  开始考试练习点击查看答案