首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
30
问题
有如下程序:
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://jikaoti.com/ti/k0N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上添加“控件”的正确的操作方式是
下面控件中,没有Caption属性的是
现有由多个单选按钮结构的,控件数组,用于区别该控件数组中控件的属性是
输入VB源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimcAsStringc=U
设有下面的语句:PrintIIf(x>0,1,IIf(x<0,-1,0))与此语句输出结果不同的程序段是
假定有如下语句:answer$=MsgBox("String1","String2","String3",2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为
语句:PrintAsc(Chr$(Mid$("98765432",4,2)))的输出是
如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是
随机试题
根据支付结算法律制度的规定,下列有关汇兑的表述中,不正确的是()。
在()以上大风天气,不准进行高空焊接作业。
三次采油又称()。
患者,女,27岁。扪及右下腹有一块物。今晨排便后突然发生右下腹剧烈疼痛,伴恶心、呕吐。查体:体温37.3℃,右下腹肿块,压痛明显。对该患者最佳的处理是
关于不作为犯罪,下列哪些选项是正确的?(2015年卷二52题)
企业安全文化建设,就是要不断地提升人的安全素质,优化安全管理制度和基础条件,营造良好的安全氛围。关于企业安全文化建设的说法正确的有()。
A、B两种烃组成的混合物,当它们的总质量一定时,无论A、B以何种比例混合,完全燃烧生成的CO2的质量都相等,符合这一条件的组合有:①同分异构体;②同系物;③具有相同的最简式;④含碳的质量分数相等。其中正确的是()。
通过拨号上网,从室外进来的电话线应当和______连接。
(1)Jobstressandworryingaboutjobsecuritycanbothtakeatollonawoman’sbody,althoughthetwoissuesaffectfemaleheal
Aperson’shomeisasmuchareflectionofhispersonalityastheclotheshewears,thefoodheeatsandthefriendswithwhomh
最新回复
(
0
)