有如下函数过程： Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer Do While…y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a，b)Print x End Sub -题库考试答案搜索网

有如下函数过程： Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer Do While…y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a，b)Print x End Sub

单选题

2022-03-15 15:47

B、25
C、50
D、100

查看答案

正确答案

B

试题解析

解析：本题的难点是子函数调用过程。子函数Fun的功能是求x和y的公约数，由“欧几里德”求最大公约数的算法可知，当余数r为0时，x为x和y的最大公约数。变量，的值通过子函数名Fun返回。

标签：

感兴趣题目

程序中对fun()函数有如下说明 void *fun()；此说明的含义是______。

有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While y＜＞0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，B)Print x End Sub

有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Print x End Sub

有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y ＜＞ 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，B)Print x End Sub

有如下函数过程： Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer Do While…y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a，b)Print x End Sub

有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer)As Integer Do While…Y＜＞0 reminder=x Mod Y x=y y=reminder Loop Fun=X End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub

在窗体上画一个命令按钮，然后编写如下程序：Sub S1(ByVal x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=tEnd SubPrivate Sub Command1_ Click() Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print "a="；a="b="；bEnd Sub 程序运行后，单击命令按钮，输出结果是______。

若有函数fun(x，y)，并且已经使函数指针变量p指向函数fun，则使用p调用函数fun的正确方法是( )。

有下列程序： #include＜iostream＞ using namespace std; int main() { void function(double val); double val; function(val); cout＜＜val; return 0; } void fimction(double val) { v

设函数fun的定义形式为void fun（char ch，float x）{……}则以下对函数fun的调用语句中，正确的是（）

设有如下函数： fun(floatx) { x*=x++； printf("%d ",x)； return(x)； } 则函数的类型是______。

函数定义如下: void fun(int x,int& y){x++;y++;} 如果执行代码段: int a=0,b=1; fun(a,b); 则变量a和b的值分别是( )。

相关题目: Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（）类型。; 设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_____; 若有以下变量定义和函数调用语句： int a=5； fun(&a)；则执行下面函数后正确的输出结果是( )。 void fun(int*x) { cout＜＜++*x＜＜end1； }; 设fun函数的定义形式为void fun(char ch，float x){…}则下列对函数fun的调用语句中，正确的是( )。; 设fun函数的定义形式为 void fun(char ch，float x){…} 则下列对函数fun的调用语句中，正确的是( )。; 在过程定义中有语句：Private Sub GetData(ByVal data As Integer)，其中“ByVal”的含义是（）。; 编写如下事件过程和函数过程： 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 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 程序运行后，在窗体上输出( )。; 编写如下事件过程和函数过程： 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 程序运行后，在窗体上输出( )。; 编写如下事件过程和函数过程： Private Sub Form_Chck() DimBum(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=; 在函数调用过程中，如果函数fun A调用了函数fun B，函数fun B又调用了函数fun A，则; 在过程定义中有语句： Private Sub GetData(ByVal data As Integer)其中“ByVal”的含义是( )。; （ 33 ）在过程定义中有语句： Private Sub GetData (ByVal data As Integer)其中 “ ByVal ” 的含义是（）。; 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer strL=Len(xStr) Do While i<=strL／2 tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1) i=i+1 Loop 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String Textl.Text=UCase(Fun(S1)) 程序运行后,单击命令按钮,则Textl中显示的是【】; 设有以下函数过程Private Function Fun(a()As Integer，b As String)As IntegerEhd Function若已有变量声明：Dim x(5)As Integer，n As Integer，ch As String则下面正确的过程凋用语句是; 单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，A)End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function; 程序中对fun函数有如下说明： void * fun(); 此说明的含义是______。; 程序中对fun函数有如下说明： void *fun()；此说明的含义是( )。; 程序中对fun 函数有如下说明void *fun(); 此说明的含义是; 程序中对fun函数有如下说明 void*fun()；此说明的含义是; 程序中对fun函数有如下说明void *fun( );此说明的含义是：

广告位招租WX:84302438

题库考试答案搜索网

免费的网站请分享给朋友吧