首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):n
有如下程序: Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):n
admin
2020-04-18
39
问题
有如下程序:
Function fun(ByVal aura As Integer)As Integer
Dim k As Integer k=1
num=Abs(num)
Do While num
k=k*(num Mod 10):num=num\10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer,r As Integer
n=InputBox("请输入一个数:"):n=Int(n):r=fun(n):Print r
End Sub
程序运行后,单击窗体,在输入对话框中输入246,输出结果为
选项
A、120
B、48
C、24
D、60
答案
B
解析
在函数fun中会对传过来的参数num进行判断,如果不为0则进行循环,将各位数字乘到一起然后作为函数的返回值。
转载请注明原文地址:https://kaotiyun.com/show/bMTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上建立一个命令控件数组Commandl,并双击第一个命令按钮,编写如下事件过程:PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index).Caption=Format$(Now,"hh
阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubForm_Click()
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入门令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“XSLNCER
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
已知AS="Welcome",下列语句操作能够正确执行的是()。
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
当窗体大小改变时,要使其中的控件也按比例发生变化,应使用窗体的()。
从键盘上输入一个浮点数asmgle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asmgle=InputBox("请输入一个浮点数:")str1$=Str$(asingle
一棵二叉树的前序遍历结果是ABCEDF,中序遍历结果是CBAEDF,则其后序遍历的结果是()。
随机试题
肾盂肾炎的并发症有
患儿出生一天,足月顺产,24小时内出现黄疸,嗜睡,吸吮无力,肝脾可触及。此患儿诊断最大可能是
关于干燥方法适应性的叙述正确的是
由于工作需要和软件配置的需求,某人对其已有的台式电脑安装了宽带装置,并扩展了内存容量,这一措施是()。
增值税属于()。
《国家中长期教育改革和发展规划纲要(2010—2020年)》提出,到()年,基本实现教育现代化,基本形成学习型社会,进入人力资源强国行列。
你是新刑警,老同志不看好你,新同志对你有意见,你如何做?
次数分布表可分为()
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click() Dima s=0 a=Array(1,2,3,
【T1】近日《牛津词典》公布了2019年度词汇——“气候紧急状态”(declare)。这一词汇的使用率在2019年增加了100倍。据称,当人们谈论气候问题时,使用这个词会“更加突出危机感”。《牛津词典》将“气候紧急状态”定义为:需要采取紧急行动以减少或阻止
最新回复
(
0
)