首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下函数过程: 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
有如下函数过程: 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
admin
2013-01-23
55
问题
有如下函数过程:
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
选项
A、0
B、25
C、50
D、100
答案
B
解析
本题的难点是子函数的调用过程。子函数Fun的功能是求x和y的公约数,由“欧几里德”求最大公约数的算法可知,当余数r为0时,x为x和y的最大公约数。变量z的值通过子函数名Fun返回。
转载请注明原文地址:https://kaotiyun.com/show/5uhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应将该列表框的MultiSelect属性设置为
垂直平铺所有非最小化MDI子窗体的方法是()。
Sub过程与Function过程最根本的区别是
以下语句的输出结果是PrintFormat$(123467,"000.00.00")
关系数据库管理系统能实现的专门关系运算包括选择、连接和【】。
在窗体上有一个计时器控件Timer1和一个标签控件Labe11,在程序运行的时候,可通过每隔30ms让Labe11左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动,如图20-9所示。空格处应填()。
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:PrivateSubForm_Click()Text1.Text=“VB程序设计”EndSubPrivmeSubTex
下面有关E-R模型向关系模型转换的叙述中,不正确的是()。
下面不属于软件设计原则的是
当对象得到焦点时,会触发GotFocus事件,当对象失去焦点时将触发______事件。
随机试题
在出版工作中,编辑工作处于()的地位。
库血的有效保存期是【】
A、 B、 C、 D、 C
VTS通过发布消息的方式提供服务,下列发布的消息中不包括()。
绞吸式挖泥船在()情况下分层施工。
下列报告文学中()是散文作家、诗人、小说家魏巍的作品。
根据下面材料回答下列题。假设2001一2005年间,该县GDP逐年稳定增长且每年增幅相同。那么2004年该县GDP约比2001年增长了()。
Caller:Hello.I’mringingabouttheflatadvertisedintoday’sSTAR.______?Mrs.Green:Yes,itis.Twoorthreepeoplehaveru
=_______
在窗体上有一个计时器控件Timer1和一个标签控件Label1,在程序运行时可通过每隔30毫秒让Lable1左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动。空格处应填______。PrivateSub
最新回复
(
0
)