首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(By Val num As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):num=num\10
有如下程序: Function fun(By Val num As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):num=num\10
admin
2019-04-29
16
问题
有如下程序:
Function fun(By Val num 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/HLUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序,希望能把Text1文本框中的内容写到Temp.txt文件中PrivateSubCommand1_Click()Open”Temp.txt”ForOutputAs#2Print”Text1”
为计算1+2+22+23+24+…+210。的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1_Click()Dima%,b%,i%s=1a=2Fori
如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是()。
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text1
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()Fori=lTo4X=4Forj=1To3X=3Fork=1to2X
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序:DimFlagAsBooleanPrivateSubCommandl—Click()DimintNumAsIntegerintNum=I
在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件(如图3—82所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,.则计算出大于该数的第一个素数,并
以下关于图片框控件的说法中,错误的是()。
随机试题
页面设置通常是指各类文件的具体内容所用页面篇幅大小、页码、打印方式(向)、装订方式等格式的定义。()
脾的位置何说法是错误的()
A.2年B.3年C.4年D.5年进口特殊用途化妆品批准文号每几年重新审查1次?()
患者,女,36岁,因降结肠癌,行左半结肠切除术,术后严禁进行的护理操作是
输沙率的单位为()。
下列放样方法中,不属于平面位置放样方法的是()。
注意分散和注意转移()。
近代“中国科学界的先驱”是清朝的魏源。()
保存当前记录的宏命令是
Whatkindofexerciseburnsthemostcaloriesaccordingtothechart(图表)?Whatisthebestexercisetodotoburncaloriesif
最新回复
(
0
)