问题
单项选择题
单击命令按钮时，下列程序的运行结果为（ ）。 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m＜＞n Do While m＞n：m=m-n：Loop Do While m＜n：n=n-m：Loop Loop MyFund=m End Function
A．0
B．2
C．4
D．6
答案
参考答案：B
解析：此题程序代码中，被调过程采用了Do While…Loop的嵌套语句结构，主调过程只调用了一次被调过程，Print MyFund(20， 18)语句表明，程序最后输出的 只是被调过程的返回值。主调过程在调用被调过程MyFund时，把数值20，18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的 值大于n的值，所以执行语句m=m -n，m值变为2，而由语句MyFund=m可看出，此过程的返回值就是m的值，即2。
气源由D325×8埋地无缝钢管，从局里总站420m的天然气管网接驳，管网压力1.0Mpa。主要设备工艺参数如图示，P表示工作压力，Q表示流量。 项目报建审批手续完善，采取土建和安装工程施工总承包模式。建设单位通过相关媒体发布公开招标信息，按招投标管理要求选定具备相应资质的A施工单位。 签订施工合同，建设单位制定B专业公司分包储气井施工。A单位将土建工程的劳务作业发包给C劳务分包单位。工程实施过程中，A单位及时检查、审核分包 单位提交的分包工程施工组织设计、质量保证体系及措施、安全保证体系及措施、施工进度统计报表、工程款支付申请、竣工交验报告等文件资料，并指派专人负责 对分包单位进行全过程管理。 消防设施检测单位对采用公用接地装置的消防控制室主机进行技术测试时，在柜体处实测接地电阻为12Ω，在基础槽钢处实测接地电阻值为0.4Ω。由于测试是有不合格项，为此向A单位提出整改要求，项目部认真分析原因，并及时整改，顺利通过消防部门验收。 【问题】