10年VB笔试.docVIP

四川省计算机等级考试 （2010年4月） 一、单项选择题（1*10分） 在VB中不正确的常量是（ ） 12.3# B. X10！ C. True D. hjk18 X是一正实数，保留2为小数，第3位四舍五入的是（ ） 0.01 * Int(x + 0.05) B. 0.01 * Int(100 * (x + 0.005)) C. 0.01 * Int(100 * (x + 0.05)) D. 0.01 * Int(x + 0.5) 赋值语句：a = 123 Mid(123456, 3, 2)执行后，a中的值是（ ） 12312 B. 12323 C. 12334 D. 12345 以下Case子句，错误的是（ ） Case 1, 5, 7 B. Case Is = 6 C. Case 2 To 12 D. Case Is 2 and Is 8 表达式2*3^2+2*8/4+3^2的值是（ ） 64 B. 22 C. 49 D. 31 要访问组合框Combo1中被选中的选项，应使用（ ） Combo1.Text B. Combo1.List C. Combo1.ListIndex D. Combo1.ListCount 若要一个文本框具有垂直滚动条，则应该（ ） MultiLine = True: ScrollBars = 0 MultiLine = True: ScrollBars = 1 MultiLine = True: ScrollBars =2 MultiLine = True: ScrollBars = 3 窗体上有一个命令按钮“确定”，代码窗口中与之对应的OK_Click事件过程，则该按钮的Name和Caption属性分别是（ ） OK、确定 B. 确定、OK C. Command1、确定 D. Command1、确定 设计菜单时，必须输入的选项是（ ） 快捷键 B. 标题 C. 索引 D. 名称 不能用作容器控件的是（ ） Form B. PictureBox C. Shape D. Frame 二、阅读程序（3*15） 1. 程序代码如下： Option Base 1 Private Sub Command1_Click() Dim a a = Array(4, 3, 2, 1) s = 0: k = 1 For i = 4 To 1 Step -1 s = s + a(i) * k k = k * 10 Next i Print s End Sub 以下关于Option Base 1的描述正确的是（ ） 声明数组下标下界为1 强制定义变量 声明一维数组 ④ 以上均不对 程序运行结束时，变量i的值是（ ） ① 0 ② 1 ③ -1 ④ 4 程序的运行结果是（ ） ① 1234 ② 4321 ③ 12 ④ 34 代码如下： Private Sub Form_Click() Cls s = String(8, @) For i = 1 To 4 n = 8 - 2 * i t = s r = Space(n) L1: Mid(t, i + 1, n) = r Print t Next i End Sub String(8, @)的功能是（ ） 产生由8个@组成的字符串 将数值型数据转换成字符串型数据 产生8个空格 判断一个字符串是否是另一个字符串子串 程序运行并单击窗体输出结果为（ ） ① @@@@@@@@ ② @ @ @@@@@@@@ @@ @@ @@@@@@@@ @@@ @@@ @@@@@@@@ @@@@@@@@ ③ @@@@@@@@ ④ @@ @ @ @@@@ @ @ @@@@@@ @ @ @@@@@@@@ 将L1改为: Mid(s, i + 1, n) = r, 程序运行单击窗体输出结果为（ ） ① @@@@@@@@ ② @