C、变体 D、数值或字符串 36、设有变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是______。（1分） A、TestDate = #1/1/2002# B、TestDate = #\ C、TestDate = Date(\ D、TestDate = Format(\ 37、下面表达式中，______的运算结果与其他3个不同。（1分） A、Log(Exp(-3.5)) B、Int(-3.5) + 0.5 C、-Abs(-3.5) D、Sin(30 * 3.14 / 180) 38、语句X = X + 1的正确含义是______。（1分） A、变量X的值与X + 1的值相等 B、将变量X的值存到X + 1中去 C、将变量X的值加1后赋给变量X D、变量X的值为1 39、执行程序段：a$ = \，输出的结果是______。（1分） A、Chi B、aaa C、iii D、ina 40、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是______。（1分） A、232 232032 B、232 232 C、232.32 232.32 D、显示出错信息 41、变量未赋值时，数值型变量的值为______。（1分） A、O B、空串\ C、Null D、没任何值 42、假设变量iVar是一个整型变量，则执行赋值语句iVar = \之后，变量 iVar 的值是______。（1分） A、2 B、3 C、5 D、23 43、语句Print 4 + 5 \\ 6 * 7 / 8 Mod 9的值是______。（1分） A、4 B、5 C、6 D、7 44、执行语句Print Format(32548.5, \，输出结果是______。（1分） A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50 45、下列不合法的常量形式是______。（1分） A、\ B、100.0 C、1OE+0.5 D、Const G = 23 + 12 46、设有变体变量x，执行语句：x = InputBox(\输入数值\示例\后，如果从键盘上输入10并按回车键，则下列叙述中正确的是______。（1分） A、变量x的值是数值10 B、在InputBox对话框标题栏中显示的是“示例” C、0是默认值 D、变量x的值是字符串“10” 47、下列符号常量的声明中，______是不合法的。（1分） A、Const a As Single = 1.1 B、Const a As Integer = \ C、Const a As Double = Sin(1) D、Const a = \ 48、某中心选拔身高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 49、以下声明语句中，错误的是______。（1分） A、Constvarl=123 B、Const var2=\ C、Public const=\计算机等级考试\ D、Static var3 as Integer 50、表达式\的值是______。（1分） A、True B、False C、Null D、出错信息 二、填空题（7道小题，共30分） 1、* 产生50个60~100的随机数，统计其中被6整除余2的个数，并将这些数输出。 Private Sub command1_click() Dim x, n As Integer Dim counter As Integer For = 1 To 50 x = Int(Rnd * 41 + 60) If Mod 6 = 2 Then counter = counter + 1 End If Next n Print counter End Sub （4分） 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(Rnd * 101) Print a(i); Next i: Print For i = 1 To 9 For j = 1 To 10 - i If a(j) < a(j + 1) Then Next j Next i For i = 1 To 10 Print a(); = a(j): a(j) = a(j + 1): a(j + 1) = t Next i: Print End Sub （4分）
3、* 随机产生 n 个两位整数，求出其中的最大值和最小值。 Private Sub Command1_Click()
Dim a(100) As Integer, n As Integer, i As Integer Dim min As Integer, max As Integer
= InputBox(vbCrLf + vbCrLf + \
Print \产生的随机数为\Randomize For i = 1 To n
a(i) = Int(Rnd * 90) + 10 Print a(i); Next i: Print
min = a(1): max = min For i = 2 To
If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next i
Print \最大值为 \Print \最小值为 \End Sub （4分）
4、* 杨辉三角形如图所示{
Private Sub Form_Click()
Dim a(1 To 10, 1 To 10) As Integer, i%, j% For i = 1 To 10 a(i, 1) = 1
a(i, Next i ) = 1 For i = 3 To 10 For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 1 To 10 For j = 1 To Print Tab(5 * (j - 1) + 1); a(i, j); Next j Print Next i End Sub 【附图3】（4分） 5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。 * 程序代码如下： Private Sub Command1_Click() Dim sum As Long,n As Integer sum=0 For n = 100 To 999 If duicheng(n) then sum=sum+Next n End Sub Public Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i \\ 100 If a = c Then duicheng=true Else duicheng=False End If End