计算机二级
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1) For
题目
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。
A．-56
B．0
C．103
D．190
相似问题和答案
第1题：
设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 Te1Num As String *20End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是。A．Private Sub Command1_Click() Dim B As Books Open"c":\Person.txt"For Output As #1 B.Name=InputBox（"输入姓名"） B.Te1Num=InputBox（"输入电话号码"） Write #1,B.Name,B.Te1Num Close #1 End SubB．Private Sub Command1_Click() Dim B As Books Open"c":\Person.txt"For Input As #1 B.Name=InputBox（"输入姓名"） B.Te1Num=InputBox（"输入电话号码"） Prite #1,B.Name,B.Te1Num Close #1 End SubC．Private Sub Command1_Click() Dim B As Books Open"c":\Person.txt"For Output As #1 B.Name=InputBox（"输入姓名"） B.Te1Num=InputBox（"输入电话号码"） Write #1,B Close #1 End SubD．Private Sub Command1_Click() Open"c":\Person.txt"For Input As #1 Name=InputBox（"输入姓名"） Te1Num=InputBox（"输入电话号码"） Prite #1,Name,Te1Num Close #1 End Sub
【解析】本题考查文件的打开与顺序文件中写入记录的操作。由于要写入，故顺序文件的打开方式应为Output，所以B、D项错误。同时用“Write #”语句写入时，要指明写入的变量名，对于记录类型的变量，要分别写出元素，所以C项也是错误的，正确答案为A。
第2题：
在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function Fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k* (num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=In put Box("请输入一个数") n=CLng(n) r=Fun(n) Print r End Sub
A．20
B．24
C．9
D．28
解析：此程序的功能是对输入的整数在fun函数中求出其每位数字的积，循环结构的作用是对传来的数据进行位数的分解，分别得到个位、十位、百位等的数字，再将其累乘到变量k中，并把k的值作为函数的返回值，因此234的三位数字相乘的结果是24。
第3题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第4题：
假定有如下的Sub过程： Sub Func(x As Single， y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=5 Func(a, B) Print a, b End Sub 程序运行后，单击命令按钮，输出结果为 ______。
A．6 5
B．1 1
C．1.2 5
D．1.2 1
解析：Visual Basic的函数参数默认的方式是传地址的，所以函数s对参数做的改变会反映到原来的变量里。
第5题：
假定有如下的Sub过程： sub sfun(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a as single Dim b as single a=5 b=4 sfun a,b MsgBox a & chr(10)+chr(13)& b End Sub 打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为 ______。
A．1和1
B．1.25和1
C．1.25和4
D．5和4
解析：此题中设定了一个sfun()函数，进行除法运算利求模运算，为命令按钮(名为Command1)编写事件，定义两变量a=5，b=4；调用此函数传递a，b的值给x，y进行运算，t=x=5，y=4；x=t/y=5/4=1.25(除法运算)； y=t Mod y=5 mod 4=1(求模运算)。
第6题：
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_________。
A．13.45.8
B．1 3 5
C．147
D．无数据输出
解析：DoUntil．．．Loop循环采用的是先判断循环条件后执行循环体的做法。而用Until关键字表示当循环条件为False时执行循环体，直到条件为True时终止循环。代码中，num是整型数据，循环体共被执行3次。循环体第三次被执行后，num的值为7，故循环终止。
第7题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do UntiL num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。
A．13.45.8
B．1 3 5
C．1 4 7
D．无数据输出
解析：Do Until…Loop循环采用的是先判断循环条件后执行循环体的做法。而用Until关键字表示当循环条件为False时执行循环体，直到条件为True时终止循环。 代码中，num是整型数据，循环体共被执行3次。循环体第三次被执行后，num的值为7，故循环终止。
第8题：
（26）编写下列事件过程和函数过程Private Sub Command1_Click() Dim num（1 TO 6）As Single Num(1)=103:Num(2)=190:Num(3)=0: Num(4)=32:Num(5)=-56:Num(6)=100: Print Print p2(6,num()) End Sub Private Function p2(By Val n Integer,number()As Single)As Integer P2=number(1) For j=2 To n If number(j)<p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出 A.-56 B.0 C.103 D.190
【解析】分析程序，函数p2的作用是找出指定数组中最小的数并返回。p2函数指定第1个参数以传值的形式传递，第2个参数以传地址的形式传递。因此，在命令按钮单击事件中调用函数p2时，参数6是以传值的形式传给形参n，数组num以传地址的形式传给形参number。所以题中整个程序要实现的功能是找出数组num中最小的数并输出，因此最后输出-56。
第9题：
在窗体画一个命令按钮，然后编写如下过程:
Function fun(ByVal num As Long)As Lone
Dim k As Long
k=1
num=Abs (num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n= InputBox (“请输入一个数”)
n=CLng (n)
r=fun (n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【 】。
24
第10题：
假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______ 。
A．5 4
B．1 1
C．1.25 4
D．1.25 1
解析：Visual Basic的函数参数默认的方式是传地址的，所以函数S对参数做的改变会反映到原来的变量里。