（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)

题目

相似考题

1.设有以下说明:type t1=file of integer; var f1:t1;n:integer; 且abc.dat是t1型文件,下面正确的程序段是Aassign(f1,‘abc.dat‘); write(f1,n); rewrite(f1); close(f1);Bassign(f1,‘abc.dat‘); reset(f1); readln(f1,n); close(f1);Cassign(f1,‘abc.dat‘); rewrite(f1); writeln(f1,n); close(f1);Dassign(f1,‘abc,dat‘); rewrite(f1); read(f1,n); close(f1);

2.下面子过程语句说明合法的是( )。A．Function f1(By Valn%)B．Sub f1(n%)As IntegerC．Function f1%(f1%)D．Sub f1(ByValn%())

3.下列子过程语句中正确的是 A.Sub f1(By Val()As Integer) B.Sub f1(n()As Integer)As Integer C.Function f1(f1 As Integer)As Integer D.Function f1(By Val f As Integer)

4.下面的子过程语句说明合法的是________。A.Sub fib(ByRef i%())B.Sub fib(j%) As IntegerC.Functionf%(f%)D.Function f1!(ByValn%)

更多“（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)”相关问题

第1题：

在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

正确答案：B
【解析】本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。
第2题：

要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句中正确的是______。
A．Sub Proc(x as Integer, y as Integer)
B．Sub Proc(By Val x as Integer, y as Integer)
C．Sub Proc(x as Integer, By Val y as Integer)
D．Sub Proc(By Val x as Integer, By Val y as Integer)

正确答案：A
解析：过程定义时，如果形式参数被声明为传值(ByVal项)，则过程调用只是相应位置实参的值“单向”传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。由于这个过程中数据的传递只是单向性，故称为“传值调用”的“单向”作用形式。反之，如果形式参数被声明为传址(ByRef项)，则过程调用是将相应位置实参的地址传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化又会反向影响实参的值。在这个过程中，数据的传递具有双向性，故称为“传址调用”的“双向”作用形式。在过程定义时，如果未做参数说明，则默认为传址调用。本题要在过程Proc调用后返回形参x和y的变化结果，所以本题的参数x和y的说明方式都需要采用传址(ByRef项)，所有B、C、D选项不符合要求，由于未做参数说明，则默认为传址调用，则A选项正确。
第3题：

函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0，以下能正确实现上述功能代码的是______。
A．Function F1(b As Integer) If b Mnd 2=0 Then Return 0 Else Return 1 End If End Function
B．Function F1(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Function F1(b As Integer) If b Mod 2=0 Than F1=1 Else F1=0 End If End Function
D．Function F1(b As Integer) If b Mod 2＜＞0 Then Return 0 Else Return 1 End If End Function

正确答案：B
解析：b为偶数的条件是“bMod2=0”，当b为偶数时返回0，应将0赋给函数名F1，当b为奇数时返回1，即将1赋给F1。
第4题：

在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

正确答案：B
解析：本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给 F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。
第5题：

下列子过程语句中正确的是( )。
A．Sub f1(ByVal() As Integer)
B．Sub f1(n() As Integer)As Integer
C．Function f1(f1 As Integer)As Integer
D．Function f1(ByVa1 f as Integer)

正确答案：D
解析：Sub过程定义的一般格式如下：[Private|Public|Friend][Sratic]Sub过程名[(参数表)]语句块[ExitSub][语句块]EndSub其中，Private|Public|Friend说明Sub过程的访问权限，如果没有Privge|Public|Friend显式指定，则Sub过程按缺省(公用的)访问权限定义。参数表含有在调用耐要传递给该Sub过程的参数的类型和个数，多个变量则用逗号隔开。参数的格式为：[ByVal|ByRef]变量名[()][As数据类型]格式中[]里的内容表示可选，变量可以是简单变量或者敷组。选项A中参数没有参数名，所以是错误的；因为Sub过程没有返回值，所以选项B是错误的。Function过程的定义的一般格式如下：[Public|private|Friend][Static]Function过程名[(参数表)][As类型][语句块](过程名=表达式)[ExitFunction][语句块]EndFunction“As类型”是Function过程返回的值的数据类型，如果省略，则默认为Variant。Function函数中参数名不能与函数名相同，因此选项C错误；选项D中省略了返回值类型，是正确的。
第6题：

在窗体上画一个名称为Command1的命令按钮，并编写如下过程： Private Sub Command1_Click() Dim x AS Integer Static y As Integer x=10 y=5 Call f1(x, y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．10 5
B．12 5
C．10 7
D．12 7

正确答案：D
解析：在形参中，默认的传送方式为传地址传送，所以形参x1和y1都按传地址传送。最后，实参x为12，实参y为7。
第7题：

在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef x1 As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
A．10 5
B．12 5
C．10 7
D．12 7

正确答案：D
解析：题干中y定义为静态函数，再观察过程f1中x1是传值方式传送， y1是传址方式传送，单击命令按钮后，x和y分别赋初值为10和5，接着调用f1过程，x和 y分别加2，正确结果为选项D.
第8题：

要想在过程Proc调用后返回形参x和Y的变化结果，下列定义语句中正确的是（）。【考点5过程调用与参数传递】
A.Sub Proc（x as Integer，Y as Integer）
B.Sub Proc（ByVal x as Integer，Y as Integer）
C.Sub Proc（x as Integer，ByVal Y as Integer）
D.Sub Proc（ByVal x as Integer，ByVal Y as Integer）

正确答案：A
本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用：若没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。
第9题：

下列子过程语句的说明正确的是( )。
A．Sub f1(ByVal x()As Integer)
B．Sub f1(x%())As Integer
C．Function f1%(f1%)
D．Function f1%(x As Integer)

正确答案：D
解析：选项A中，形式参数为数组，但数组不能作为值传递方式；选项B中，Sub过程不能有返回值：选项C中的参数和函数名相同是不允许的；选项D中对于过程的定义是正确的。
第10题：

在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As integer Static y As integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef xl As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．10 5
B．12 5
C．10 7
D．12 7

正确答案：D
解析：传地址方式一般用ByRef表示，形参在默认情况下也是以传地址的方式传送参数。本题中F1子过程的x1与y1参数都是传地址的方式。这就意味着在调用该过程后，实参的数值会使着过程内的相关处理而发生变化。本题单击一次按钮后，实参x加2，变为12，实参y加2，变为7，当再次输出x与y时，x与y的值已不再是10与5，而是变为12与7。
第11题：

设F₁（x）与F₂（x）为两个分布函数，其相应的概率密度f₁（x）与f₂（x）是连续函数，则必为概率密度的是（）
- A、f₁（x）f₂（x）
- B、2f₂（x）F₁（x）
- C、f₁（x）F₂（x）
- D、f₁（x）F₂（x）+f₂（x）F₁（x）
正确答案:D
第12题：

单选题
设y1（x）是方程y′＋P（x）y＝f1（x）的一个解，y2（x）是方程y′＋P（x）y＝f2（x）的一个解，则y＝y1（x）＋y2（x）是方程（　　）的解。
A
y′＋P（x）y＝f₁（x）＋f₂（x）
B
y＋P（x）y′＝f₁（x）－f₂（x）
C
y＋P（x）y′＝f₁（x）＋f₂（x）
D
y′＋P（x）y＝f₁（x）－f₂（x）

正确答案： A
解析：
根据题意可知，y₁′＋P（x）y₁＝f₁（x），y₂′＋P（x）y₂＝f₂（x）。两式相加得（y₁′＋y₂′）＋P（x）（y₁＋y₂）＝f₁（x）＋f₂（x）。则可发现y＝y₁＋y₂是方程y′＋P（x）y＝f₁（x）＋f₂（x）的解。
第13题：

函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是（）。
A．Function F1（b As Integer）
If b Mod 2 = 0 Then
Return 0
Else
Return 1
End If
End Function
B．Function F1（b As Integer）
If b Mod 2 = 0 Then
F1 = 0
Else
F1 = 1
End If
End Function
C．Function F1（b As Integer）
If b Mod 2 = 0 Then
F1 = 1
Else
F1 = 0
End If
End Function
D．Function F1（b As Integer）
If b Mod 2 <> 0 Then
Return 0
Else
Return 1
End If
End Function

正确答案：B
第14题：

下列子过程语句中正确的是( )。
A．Sub fl(By Val()As Integer)
B．Sub fl(n() As Integer)As Integer
C．Functionn fl(fl As Integer)As Integer
D．Function fl(ByVal f As Integer)

正确答案：D
解析：Sub过程定义的一般格式如下：
[Private|Public|Friend][Static] Sub过程名[(参数表)]
语句块
[Exit Sub]
[语句块]
End Sub
其中，Private|Public|Friend说明Sub过程的访问权限，如果没有Private|Public|Friend显式指定，则Sub过程按默认(公用的)访问权限定义。
参数表含有在调用时要传递给该Sub过程的参数的类型和个数，多个变量则用逗号隔开。参数的格式为：[ByVal|ByRef]变量名[()][As数据类型]
格式中口里的内容表示可选，变量可以是简单变量或者数组。选项A)中参数没有参数名，所以是错误的；Sub过程没有返回值，所以选项B)是错误的。
Function过程的定义的一般格式如下：
[Public|Private|Friend][Static]Function过程名[(参数表)][As类型]
[语句块]
[过程名=表达式]
[Exit Function]
[语句块]
End Function
“As类型”是Function过程返回的值的数据类型，如果省略，则默认为Variant。Function函数中参数名不能与函数名相同，因此选项C)错误，选项D)中，省略了返回值类型，是正确的。
第15题：

下列过程语句中正确的是( )。
A．Sub fl(By Val () As Integer)
B．Sub fl(n() As Integer)As Integer
C．Function fl(fl As Integer)As Integer
D．Function fl(By Val f As Integer)

正确答案：D
解析：Sub过程定义的一般格式如下：[Private|Public|Friend][Static]Sub过程名[(参数表)]语句块[ExitSub][语句块]EndSub其中，Private|Public|Friend说明Sub过程的访问权限，如果没有Private|Public|Friend显式指定，则Sub过程按缺省(公用的)访问权限定义。参数表含有在调用时要传递给该Sub过程的参数的类型和个数，多个变量则用逗号隔开。参数的格式为：[ByVal|ByRef]变量名[()][As数据类型]格式中[]里的内容表示可选，变量可以是简单变量或者数组．选项A)中参数没有参数名，所以是错误的；因为Sub过程没有返回值，所以选项B)是错误的。Function过程的定义的一般格式如下：[Public|Private|Friend][Static]Function过程名[(参数表)][As类型][语句块][过程名=表达式][ExitFunction][语句块]EndFunction“As类型”是Function过程返回的值的数据类型，如果省略，则默认为Variant。Function函数中参数名不能与函数名相同，因此选项C)错误；选项D)中省略了返回值类型，是正确的。
第16题：

下面子过程语句说明合法的是
A．Sub f1(s1 As String*8)
B．Sub f1(n()As Integer)As Integer
C．Function f1(f1 As Integer)As Integer
D．Function f1(By Val n As Integer)

正确答案：D
解析：选项A中，在定义Sub过程时，形参不能用定长字符串变量或定长字符串数组作为形式参数：选项B中，过程名不能被指定其数据类型：选项C中，函数名与形参名不能同名。只有选项D是正确的。
第17题：

函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。
A． Function Fl(b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B．Function Fl(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Function F1(b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Function Fl(b As Integer) If b Mod 2＜＞Then Return 0 Else Return 1 End If End Function

正确答案：B
解析：Visual Basic程序中不能使用Return语句来返回一个函数的值。要返回一个函数的值，需要把这个值赋值给函数名。所以本题中AD选项错误，而题目中，当b为奇数时返回0，所以本题答案是B。
第18题：

下面子过程语句说明合法的是( )。
A．Sub f1(ByValx() As Integer)
B．Subf1(x%())As Integer
C．Functionf1%(f1%)
D．Functionf1%(x As Integer)

正确答案：D
第19题：

下列子过程语句的说明正确的是( )。
A．Sub fl(ByVal x() As Integer)
B．Sub fl(x%())As Integer
C．Function fl%(fl%)
D．Function fl%(x As Integer)

正确答案：D
解析：选项A)中，形式参数为数组，但数组不能作为值传递方式；选项B)中，Sub过程不能有返回值；选项C)中的参数和函数名相同是不允许的；选项D)中对子过程的定义是正确的。
第20题：

以下正确的函数定义是______。
A．double f1(int x,int y)
B．double f1(int x;int y)
C．double f1(int x;float y)
D．double f1(int x,y)

正确答案：A
第21题：

函数过程n的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。
A．Function F1(b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B．Function F1(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Function F1(b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Functionn(b As Integer) If b Mod 2 ＜＞0Then Return 0 Else Return 1 End If End Function

正确答案：B
解析：Visual Basic程序中不能使用Return语句来返回一个函数的值。要返回一个函数的值，需要把这个值赋值给函数名。所以本题中AD选项错误，而题目中，当b为奇数时返回0，所以本题答案是B。
第22题：

设f1(x)和f2(x)为二阶常系数线性齐次微分方程y''+py'+q=0的两个特解，若由f1(x)和f2(x)能构成该方程的通解，下列哪个方程是其充分条件？
A. f1(x)*f'2(x)-f'1(x)*f2(x)=0
B. f1(x)*f'2(x)-f'1(x)*f2(x)≠0
C. f1(x)*f'2(x)+f'1(x)*f2(x)=0
D. f1(x)*f'2(x)+f'1(x)*f2(x)≠0

答案：B
解析：
提示:二阶线性齐次方程通解的结构要求f1(x)，f2(x)线性无关，
第23题：

在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（） Private Sub Command1_Click（） x=InputBox（"请输入整数"）a=F1（Val（x）） Print a End Sub Function F1（ByRef b As Integer） If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
- A、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0
- B、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回0，否则返回1
- C、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回1，否则返回0
- D、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回0，否则返回1
正确答案:A

（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)

题目

相似考题

更多“（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)”相关问题

相关内容