首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入一个数值:") Print n; ff(n) End Sub Function ff(x As
编写如下程序: Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入一个数值:") Print n; ff(n) End Sub Function ff(x As
admin
2019-06-20
33
问题
编写如下程序:
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入一个数值:")
Print n; ff(n)
End Sub
Function ff(x As Integer)
Dim k As Integer
k = 1
Do While x
k = k * (x Mod 10)
x = x \ 10
Loop
ff = k
End Function
程序运行后,单击命令按钮Command1,并在输入对话框中输入269,输出结果为
选项
A、269 108
B、0 108
C、269 1
D、26 54
答案
B
解析
在函数ff的Do循环中,当x=269时,k=1*9,x=26;继续执行Do循环体,k=9*6,x=2;第三次执行Do循环循环体,k=54*2=108,x=0,x不满足循环条件,退出循环,函数ff返回值为108。故B项正确。
转载请注明原文地址:https://jikaoti.com/ti/2cN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Labe3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerD
在窗体模块的声明部分声明变量时,不能使用的关键字是
以下关于VB的叙述中,错误的是
在窗体上画一个命令按钮,然后编写如下程序:Subinc(aAsInteger)StaticxAsIntegerx=x+aPrintx:EndSubPrivateSubCommand1_Click()inc2:inc3:in
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
定时器的Interval属性的值是一个整数,它表示的是
下列描述中,错误的是
在窗体上画1个名称为Command1的命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()x=1:s=0Fori=1To5x=x/i:s=s+xNextPrintsEndSub该事件过程的功能是计
下面可以产生20~30(含20和30)的随机整数的表达式是
已知:x=-6y=39则表达式“y\x*Sgn(x)”的值为
随机试题
某公司20×9年损益表中有关资料如下(单位:万元):该公司目前的债务均为长期债务,发行在外的普通股25万股,每股账面价值为50元,股利支付率为50%,股利增长率为5%,目前市价为20元/股,公司未发行优先股。要求:计算销售量为35万件时的DFL、
可引起畸胎或死胎的寄生虫首先应考虑
(2005年)折杆受力如图5—63所示,以下结论中错误的为()。
某企业年初从银行借款600万元,年利率12%,按月计算并支付利息,则每月末应支付利息()万元。
甲建筑公司聘请王某担任推销员,双方签订劳动合同,约定劳动试用期六个月,六个月后再根据王某工作情况确定劳动合同期限,下列正确的是()。
由授信人(债权人)在进行授信活动时,独自对受信人(债务人)的资信状况和履约能力、进行的调查称为()。
各区、县人民政府,市政府各委、办、局,各市属机构:2012年6月,国务院印发了《关于加强食品安全工作的决定》(国发[2012]20号,以下简称《决定》),明确了加强食品安全工作的指导思想、总体要求、工作目标和具体措施。为进一步加强本市食品安全工作
对于下列果蔬的“美誉”,说法错误的一项是:
NASA
Whydofactorieswanttoknowhowpeoplefeelaboutdifferentcolors?Ifweputthesameredmidblueboxestogether,theredo
最新回复
(
0
)