首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1
在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1
admin
2013-04-11
21
问题
在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1 mum=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End Sub
选项
A、20
B、24
C、9
D、28
答案
2
解析
此程序的功能是对输入的整数在fun函数巾求出其每位数字的积,循环结构的作用是对传来的数据进行位数的分解,分别得到个位、十位、百位等的数字,再将其累乘到变量k中,并把k的值作为函数的返回值,因此234的3位数字相乘的结果是24。
转载请注明原文地址:https://jikaoti.com/ti/S860FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了同时改变一个活动控件的高度和宽度,正确的操作是______。
【】的本质是主张从客观世界固有的事物出发来构造系统,提倡用人们在现实生活中常用的思维方法来认识、理解和描述客观事物,强调最终建立的系统能够映射问题域。
下列关于数据结构的叙述中,正确的是______。
分析算法的目的是______。
要在形状控件Shape1中填充一种图案,可设置它的______属性。
下面关于二叉树的叙述中,正确的是______。
软件开发的结构化设计(SD)方法中,全面指导模块划分的最重要原则是______。
在窗体上有一个命令按钮,其名称为Command1。要实现程序运行后,单击命令按钮,如果在输入对话框里分别输入12和4,编写如下事件过程:PrivateSubCommand1_Click()A=InputBox("被除数")B=InputBox("
算法复杂度包括时间复杂度和空间复杂度。对于时间复杂度,一般可以用平均性态和最坏情况复杂性来衡量:对于空间复杂度,一般指执行该算法所需要的【】。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是______。
随机试题
材料一新春伊始,《新农村》记者小梁到基层调研,以下是他在两个村庄采访的片段。“村子真于净”,这是外来人对东各村的第一印象。村道上见不到一张纸片,家家院里院外也清清爽爽。79岁的高大妈笑着把小梁往屋里迎。冬季取暖煤改电以后,高大妈家装了地暖,外面再
被称为课程现代化进程中的重要里程碑的是()
下列关于聚合物改性沥青防水卷材的优点,说法错误的是()。
电站锅炉安装质量控制要点包括()。
会计职业道德来自于职业习惯和约定俗,它是靠()的力量来维持的。
进出境的动植物、动植物产品其他检疫物,装载动植物、动植物产品和其他检疫物的装载容器、包装物,以及来自动植物疫区的运输工具,依照《进出境动植物检疫法》规定实施检疫。()
有以下程序#include<stdio.h>main(){inti=0,sum=1;do{sum+=i++;}while(i<6);printf("%d\n",su
A、Heshouldn’thelphisroommatenexttime.B、Heneedsplanstodealwithunexpectedthings.C、Heshouldtakeexerciseandgeth
A、Greatpressureonhousing.B、Risingdemandsofgoods.C、Theprosperityofthebuildingindustry.D、Adecliningmarketformanu
Againstabackgroundofcontroversialplanstotripleuniversitytuitionfees,studentsshortofmoneymightbeattractedbyan
最新回复
(
0
)