首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num
有如下程序: Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num
admin
2020-02-27
40
问题
有如下程序:
Function fun(ByVal 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
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的初值并转换成数字进行计算。Do While…Loop循环对传过来的数值进行处理。Mod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。
转载请注明原文地址:https://kaotiyun.com/show/qTTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:1)单击“读数据”按钮,则把考生文件夹下in3.dac文件中的100个按升序排列的整数读入到数组a中,同时显示在Text1文本框中;2)单击“查找”按钮,则提示用户输入查找的数,并利用
在数据库系统中,考虑数据库实现的数据模型是
在排序过程中,每一次数据元素的移动会产生新的逆序的排序方法是()。
窗体上命令按钮的事件过程如下:PrivateSubCommand1_Click()A="34":B="26":C="98"PrintB+C+AEndSub运行程序后,单击命令按钮,输出结果是(
下列关于顺序文件的描述中,正确的是( )。
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
对下列二叉树进行前序遍历的结果为()。
以下关于注释语句的叙述中,错误的是
下列选项中不属于软件生命周期开发阶段任务的是()。
随机试题
行车中遇儿童在路边玩耍,要提前减速,谨慎驾车通过。
促进胰液分泌的因素有
慢性马鼻疽的主要诊断方法是
8个月男婴,咳嗽3天,发热伴气促1天,查体:呼吸急促,口周略发青,咽部充血,双肺闻及中、小水泡音,心、腹(一):白细胞10×109/L,N0.65,L0.35,其最可能的诊断是
根据民事权利的效力所及相对人的范围为标准而划分的民事权利类型包括()。
—般情况下,平屋面卷材防水层的铺贴方向为()。
在产地、储存库、使用单位之间的用于输送(油气)商品介质的压力管道是()。
背景资料:某建设工程,建筑面积为3.8万m2,地下一层,地上十六层。施工单位(以下简称“乙方”)与建设单位(以下简称“甲方”)签订了施工总承包合同,合同期600d。合同约定,工期每提前(或拖后)1d奖励(或罚款)1万元。乙方将屋面和设备安装两项工
阅读以下材料,完成以下问题。心理学家邓克尔设计了一个“蜡烛实验”。在桌子上有三个硬纸盒,盒里分别装着图钉、火柴盒、蜡烛,要求被试使用桌子上的这些物品将蜡烛固定在木板墙上,解决的方法很简单,把纸盒钉在墙上,再以它为台基竖立蜡烛。但许多被试不会这样解决问题,
WhatIsLiteraryWriting?I.DistinguishingfeaturesofliterarywritingA.Primarilydistinguishable【T1】:【T1】______—creativ
最新回复
(
0
)