首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num\10 L
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num\10 L
admin
2019-07-30
41
问题
有如下程序:
Function fun(ByVal num As Integer)As Integer
Dim k As Integer
k=1
hum=Abs(nnm)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer
Dim 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
解析
程序从对话框中获得n的初值并转换成数字进行计算。DoWhile…Loop循环对传过来的数值进行处理。Nod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。
转载请注明原文地址:https://kaotiyun.com/show/IpUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上添加“控件”的正确的操作方式是
现有由多个单选按钮结构的,控件数组,用于区别该控件数组中控件的属性是
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
为了使窗体左上角不显示控制框,需设置为False的属性是
设a=10,b=5,c=1,执行语句Printa>b>c窗体上显示的是
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()m=-3.6IfSgn(m)Thenn=Int(m)Elsen=Abs(m)EndIfPr
下列关于栈的叙述正确的是
在窗体上画一命令按钮和一文本框,其名称分别为Commandl和Textl,然后编写如下程序:FunctionFun(xAsInteger,PrivateSubCommandl_Click()yAsInte
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
下列说法中错误的是()。
随机试题
水淹路面影响行车安全,不易通行的原因是什么?
简易平均法
卫氏并殖吸虫病日本血吸虫病
项目市场预测要解决的基本问题不包括项目的()
设随机变量X与Y相互独立,且X服从标准正态分布N(0,1),y的概率分布为P{Y=0}=P{Y=1}=,记FZ(z)为随机变量Z=XY的分布函数,则函数FZ(z)的间断点个数为()
用Word打开文档A1.doc,然后将文档以A2.doc为名进行“另存为”的操作,这时()。A.A1.doc和A2.doc两个文档全被关闭B.A1.doc是当前文档C.A2.doc是当前文档D.当前文档由用户指定是A1.doc或A2.doc
软件商标权的权利人是指______。
局域网(LAN)指较小地域范围内的计算机网络,一般是一幢建筑物内或一个单位的几幢建筑物内的计算机互连而成的计算机网络。局域网有多种类型,目前使用最多的是:
OnApril20,2000,inAccra,Ghana,theleadersofsixWestAfricancountriesdeclaredtheirintentiontoproceedtomonetaryuni
Completethesummary.ChooseNOMORETHANTWOWORDSfromthepassageforeachanswer.Instrumentssimilartotheguitarhavebee
最新回复
(
0
)