VBA理论练习题 - 图文(9)

VBA理 论 练 习 题 第 41 页 共 42 页

然后编写如下事件过程：

PriVale Sub Commandl_Click( ) n=Val(Textl.text) If n\\2=n/2 Then f=f1(n) Else

f=f2(n) End If

MsgBox f & \ End Sub

Public Function f1(ByRef x) x=x*x f1=x+x End Function

Public Function f2(ByVal x) x=x*x f2=x+x+x End Function

程序执行后，在文本框中输入6，然后单击命令按钮，消息框输出的是。 A) 72 36 B) 108 36 C) 72 6 D) 108 6 ． 二、填空题 （1～5）：

1．VBA全称是Visual Basic for Aplication。 2.说明变量最常用的方法，是使用Dim...As结构。

3．用户定义的数据类型可以用Type...End Type关键字间说明。

4．以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分，试填空补充完整。

Private Sub Form_Click( )

Dim Max As Integer，Min As Integer

Dim i As Integer，x As Integer，s As Integer Dim p As Single Max=0 Min=0 s=0

For i=1 to 8

x=Val(InputBox(\请输入分数：\

VBA理 论 练 习 题 第 42 页 共 42 页

If x>Max Then Max=x If x

s=s-Min-Max p=s/6

MsgBoxr\最后得分:\ End Sub

5．以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果，试填空补充完整。 Pribate Sub Form_click( ) Dim x，y As Single Dim z As Integer

x=InputBox(\ Do while x>=0 y=y+x z=z+1

x=InputBox(\ Loop

If z=0 Then z=1 End If y=y/z MsgBox y End Sub

(试题结束)