首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal sum As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While sum k=k*(hum Mod 10):sum=sum\10 L
有如下程序: Function fun(ByVal sum As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While sum k=k*(hum Mod 10):sum=sum\10 L
admin
2020-01-02
21
问题
有如下程序:
Function fun(ByVal sum As Integer)As Integer
Dim k As Integer k=1
num=Abs(num)
Do While sum
k=k*(hum Mod 10):sum=sum\10
Loop
fun=k
End Function
Private Sub Form Click()
DiIn n As Integer,r As Integer
n=InputBox(“请输入一个数:”):n=Int(n):r=fun(n):Print r
选项
A、120
B、48
C、24
D、60
答案
B
解析
在函数fun中会对传过来的参数num进行判断,如果不为0则进行循环,将各位数字乘到一起然后作为函数的返回值。
转载请注明原文地址:https://kaotiyun.com/show/1ITp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。要求:程序中不得使用变量,每个事件过程
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Text1的文本框,其高、宽分别为400、2000。运行后的窗体如图3—112所示。请在属性框中设置适当的属性满足以下要求:
以下叙述中错误的是
将数据项“Student”添加到名称为List1的列表框中,并使其成为列表框第一项的语句为
为计算an的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLongDimPAsLongP=aFork=1Ton
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
设A、B、C是三角形的3条边,则以下表示“任意两边之和大于第三边”的布尔表达式是()。
(1)在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框,通过属性窗口输入4个列表项:“数学”、“语文”、“历史”、“地理”,列表项形式采用复选框形式,如图所示。列表框的宽为1100,高不限。注意:存盘时必须存放在考生文
假定有下表所列的菜单结构:要求程序运行后,如果单击菜单项“大图标”,则在该菜单前添加一个“√”。以下正确的是
随机试题
一般认为管理过程学派的创始人是()。
Abouttenmenineveryhundredsufferfromcolorblindnessinsomeway;womenareluckieronlyaboutoneintwohundredisaffec
A.向下颌方向缓慢刺入0.5~1.5寸B.针尖微向下,向鼻尖方向缓慢刺入0.8~1.2寸C.向下颌方向缓慢刺入0.5~1寸D.向眼球方向缓慢刺入0.5~1寸用毫针刺风池穴,正确的操作手法是
肝细胞凋亡可见肺硅沉着症可见
A.上斜肌B.下斜肌C.外直肌D.眼轮匝肌E.瞳孔开大肌动眼神经支配的肌肉是
患者,女性,55岁。高血压病史10年,因未规律用药,血压控制不理想,多在160/105mmHg。4小时前患者心前区持续疼痛、出冷汗来院急诊,诊断为急性心肌梗死。半小时前患者呼吸困难伴喘息,两肺布满湿哕音和哮鸣音,心率108/分,律齐。首先考虑该患者的病情变
商业发票是国际货物买卖中的核心单据,其作用表现为()。
运营环境变化对电信企业运营提出了新的要求,表现在()。
我国投入巨额资金实施退耕还林工程,这说明()。
EgyptianwinehasanextensivehistorywithinthehistoryofEgyptiancivilization.Grapeswerenot(1)_____tothelandscapeof
最新回复
(
0
)