第九章过程习题

1、设有以下函数过程

Private Function fun(a() as integer,b as string) as integer

…

End Function

若已有变量声明：

Dim x(5) as integer,n as integer,ch as string

则下面正确的过程调用语句是()

A) x(0)=Funtion(x,”ch”) B)n=fun()

C)Call Fun x,”ch”D)n=Fun(x(5),ch)

2、已知有下面的过程()

Private sub pro(a as integer,b as string,optional x as boolean)

….

End sub

正确调用此过程的语句是（）

A)Call pro(5) B)Call pro 5,”abc”,False

C)pro(12,”abc”,True) D)pro 5,”abc”

3、下列可以作为过程名的是()

A)Sub B)_sub C) 3Sub D)Sub1

4、某人编写了如下的程序

Private sub Command1_click()

Dim a as Integer ,b as Integer

a=Inputbox(“请输入整数”)

b=Intputbox(“请输入整数”)

Pro a

Pro b

Call pro(a+b)

End sub

Private sub pro(n as Integer)

While (n>0)

Print n Mod 10

n=n\10

Wend

End sub

此程序功能是：输入2个正整数,反序输出这2个数的每一位数字,再反序输出这2个数之和的每一位数字。例如：若输入123和234,则应该输出：

321

432

753

但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即两个数之和的反序),程序需要修改,下面的修改方案中正确的是

A)把过程pro 的形式参数n as Integer 改为 byval n as Integer

B)把 Call pro(a+b) 改为 pro a+b

C)把 n=n\10 改为 n=n/10

D)在 pro b 语句之后增加语句c%=a+b ,再把 Call pro(a+b) 改为 pro c

5、在窗体上画一个名称为Command1的的命令按钮和一个名称为Text1的文本框，然后编写如下程序：

Private Sub Command1_click()

Dim x as integer,y as integer,z as integer

x=5： y=7：z=0

Text1.text=""

Call p1(x,y,z)

Text1.text=str(z)

End Sub

Sub p1(byval a as Integer,byval b as Integer,c as Integer)

C=a+b

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是( )

A)0 B)12 C)str(z) D)没有显示

6窗体上有一个名为Command1的命令按钮，并有如下程序：

Private Sub Command1_Click()

Dim a as integer,b as integer

a=8

b=12

print Fun(a,b);a;b

End Sub

Private Function fun(Byval a as integer, b as integer) as integer

a=a mod 5

b=b\5

Fun=a

End Function

程序运行时，单击命令按钮，则输出结果是()

A)3 3 2 B)3 8 2 C)8 8 2 D)3 8 12

7、假定有以下函数过程：

Public Function Fun(s As String) As string

Dim s1 As string

For i=1 to len(s)

s1=Lcase(mid(s,i,1))+s1

Next i

Fun=s1

End function

在窗体上画一个命令按钮,然后编写如下事件过程：

Private Sub Command1_Click()

Dim str1 As String,str2 as string

str1=inputbox(“请输入一个字符串”)

str2=Fun(str1)

Print str2

END SUB

程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体上输出结果为( )

A)BCDEFG B)Abcdefg

C)GFEDCB D)gfedcba

8、在窗体上画一个命令按钮(名称为Command1),并编写如下代码：

Functin Fun1(Byval a As Integer ,b As Integer) As Integer

Dim t As Integer

t=a-b

b=t+a

Fun1=t+b

End Function

Private Sub Command1_Click()

Dim x As Integer

X=10

Print Fun1(Fun1(x,(Fun1(x,x-1))),x-1)

End Sub

程序运行后,单击命令按钮,输出结果是

A)10 B)0 C)11 D)21

9、为计a^n 的值,某人编写了函数power 如下：

Public Function power(a as interger,n as integer) As long

Dim p As Long

p=a

For k= 1 to n

p=p*a

Next k

power=p

End function

在调试时发现错误,例如Print power(5,4)的输出应该是625,但实际输出是3125,程序需要修改,下面的修改方案中有3个是正确的,错误的一个是( )

A)把 for k=1 to n 改为 for k=2 to n

B)把 p=p*a 改为 p=p^n

C) 把 for k=1 to n 改为 for k=1 to n-1

D)把 p=a 改为 p=1

10、以下关于过程及过程参数的描述中,错误的是( )

A)调用过程时可以用控件名称作为实际参数

B)用数组作为过程的参数时,使用的是”传地址”方式