2013vb题i1

29、表达式\的值是______。（1分） A、True B、False C、Null D、出错信息 30、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是______。（1分） A、T >= 1.7 And W <= 52.5 B、T <= 1.7 Or W >= 52.5 C、T > 1.7 And W < 52.5 D、T > 1.7 Or W < 625 31、变量未赋值时，字符串变量的值为______。（1分） A、O B、空串\ C、Null D、没任何值 32、下列数据中，______是日期型数据。（1分） A、\ B、Date(\ C、#01/30/2004# D、01/30/2004 33、InStr(\程序设计简明教程中关于可视化界面的设计\设计\的函数值为______。（1分） A、15 B、17 C、30 D、47 34、语句Print 4 + 5 \\ 6 * 7 / 8 Mod 9的值是______。（1分） A、4 B、5 C、6 D、7 35、InputBox函数返回值的类型为______。（1分） A、数值 B、字符串 C、变体 D、数值或字符串 36、下列符号常量的声明中，______是不合法的。（1分） A、Const a As Single = 1.1 B、Const a As Integer = \ C、Const a As Double = Sin(1) D、Const a = \ 37、如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。（1分） A、O B、-1 C、True D、False 38、执行语句Print Format(32548.5, \，输出结果是______。（1分） A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50 39、下列声明语句中，错误的是______。（1分） A、Constvarl=123 B、Dim var2='ABC' C、Const y=\计算机等级考试\ D、Static var3 as Integer 40、变量未赋值时，数值型变量的值为______。（1分） A、O B、空串\ C、Null D、没任何值 41、语句X = X + 1的正确含义是______。（1分） A、变量X的值与X + 1的值相等 B、将变量X的值存到X + 1中去 C、将变量X的值加1后赋给变量X D、变量X的值为1 42、表达式Str(Len(\的值是______。（1分） A、377.7 B、3 77.7 C、80.7 D、12377.7 43、下列不合法的常量形式是______。（1分） A、\ B、100.0 C、1OE+0.5 D、Const G = 23 + 12 44、Print DateDiff(\的输出结果是______。（1分） A、O B、1 C、-1 D、2 45、下列符号中，属于Visual Basic合法变量名的是______。（1分） A、x23 B、8xy C、END D、X8[B] 46、在下列符号常量的声明中，______是不合法的。（1分） A、Const a As Single = 2.6 B、Const a As Integer = \ C、Const a As Double = 2 * 2 D、Const a = \ 47、设有变体变量x，执行语句：x = InputBox(\输入数值\示例\后，如果从键盘上输入10并按回车键，则下列叙述中正确的是______。（1分） A、变量x的值是数值10 B、在InputBox对话框标题栏中显示的是“示例” C、0是默认值 D、变量x的值是字符串“10” 48、执行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，输出的结果是______。（1分） A、6 B、8 C、10 D、14 49、程序段Print -15;: Print -16， 输出的结果是______。（1分） A、-15 -16 B、-31 C、-15-16 D、出错 50、执行x = -6 ^ 2: Print Sgn(x) + Abs(x) + Int(x)的结果是______。（1分） A、-36 B、1 C、-1 D、-32 二、填空题（7道小题，共30分） 1、* 求7!(7!=1*2*3...*6*7)的值。 Private Sub Command1_Click() Dim a As Single a =

For i = 1 To 7 a = Next i Print a End Sub （4分）

* i

2、* 对10个100以内的整数用选择法按递增顺序排序。 Private Sub Command1_Click() Dim a(10) As Integer, t As Integer Dim i As Integer, j As Integer For i = 1 To 10 a(i) = Int(Print a(i); Next i: Print For i = 1 To 9 For j = i + 1 To

* 101)

If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i

For i = 1 To 10 Print a(i); Next i: Print End Sub （4分）

3、* 删除已知数组 a 中的某个元素。