模块和VBA试卷(1-10).pdfVIP

中央民族大学公共计算机教学部 2004 年 9 月 一、选择题（每小题 2 分，共 70 分） （32）以下关于VBA运算符优先级比较，正确的是 A）算术运算符 逻辑运算符 比较运算符 B）逻辑运算符 比较运算符 算术运算符 C）算术运算符 比较运算符 逻辑运算符 D）以上均是错误的 （33）定义了二维数组A(2 to 5,5)，该数组的元素个数为 A）20 B）24 C）25 D）36 （34）在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为 A）Boolean B）Int C）String D）Variant （35）使用VBA的逻辑值进行算术运算时，True值被处理为 A）-1 B）0 C）1 D）任意值 二、填空题： （11）下面程序的功能是计算折旧年限。假设一台机器的原价值为100万元，如果每年的折旧率为4%，多少年后它的价值不足50 万元。请填空。 y=0 p=100 x=0.04 Do p=p*(1-x) y=y+1 Loop Until p______ MsgBox y （12）执行下面的程序段后，b的值为______。 a=5 b=7 a=a+b b=a-b a=a-b （13）执行下面的程序，消息框里显示的结果是______。 Private Sub Form_Click() Dim Str As String, K As Integer Str=ab For k=Len(Str) To 1 Step -1 Str=Str Chr(Asc(Mid(Str, k, 1))+k) Next k MsgBox Str End Sub （14）在名为Form1的窗体上添加三个文本框和一个命令按钮，其名称分别为Textl、Text2、Text3和Commandl，然后 编写如下两个事件过程： Private Sub Command1_Click() Text3=Text1+Text2 End Sub Private Sub Form1_Load() Text1= Text2= Text3= End Sub 打开窗体Form1后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入5和7，然后单击命令按钮Command1，则文本框 （Text3）中显示的内容为______。 （15）执行下面的程序，消息框的输出结果是______。 Option Base1 Private Sub Command1_Click( ) Dim a(10),P(3)As Integer k=5 For i=1 To1 0 a(i)=i Next i For i=1 To3 P(i)=a(i*i) 第 1 页 共 19 页 中央民族大学公共计算机教学部 Next i For i=1 To 3 k=k+p(i