首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:求出所有的三位数,其各位数字的立方和等于该数。如: 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integ
下面程序的功能是:求出所有的三位数,其各位数字的立方和等于该数。如: 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integ
admin
2009-02-13
28
问题
下面程序的功能是:求出所有的三位数,其各位数字的立方和等于该数。如: 153=13+53+33。
Option Explicit
Private Sub Form_Click()
Dim x1 As Integer,x2 As Integer,x3 As Integer
【 】
For i=100 To 999
x=i
x1=【 】个位数字
x2=x\10 Mod 10
x3=x\100
If【 】Then
Print i
End If
Next i
End Sub
选项
答案
Dim x As Integer,i As Integer , x Mod 10 , x1^3+x2^3+x3^3=i
解析
本程序中使用了“Option Explicit”语句,因此程序中使用的所有变量都必须先定义,故[9]处应填变量定义语句“Dim x As Integer,i As Integer”。要判断x是否为水仙花数,可首先把x的各位数字分离出来,[10]处显然是分离出个位数字,应填“x Mod 10”。然后判断各位数字的立方和是否与i相等,如果相等,则是水仙花数,所以[11]处应填“x1^3+x2^3+x3^3=i”。
转载请注明原文地址:https://kaotiyun.com/show/Nn1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设X、Y为已定义的类名,下列声明X类的对象。x1的语句中正确的是()。
下述内容中()不属于软件工程管理的范畴。
若声明"chara[15]="Windows-9x";",语句"printf("%s",a+8);"的输出结果为________。
下面程序段的输出结果是publicclassTest{publicstaticvoidmain(Stringargs[]){inta,b;for(a=1,b=1;a<100;a++){
下列关于JDK目录结构的说法,错误的是
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及()
下列代码的执行结果是:()publicclassTest1{publicstaticvoidmian(Stringargs[]){floatt=0fintq=5;System.ou
在面向对象方法中,类之间共享属性和操作的机制称为______。
下列选项中的变量已正确定义,则表达式不合法的是()
对于长度为n的线性表,若进行顺序查找,则时间复杂度为【】。
随机试题
关于浆细胞下列哪项是错的()
男性,35岁。乏力、腹胀2个月,腹痛4天,便秘2天。体格检查:体温38.5℃,神清,皮肤巩膜轻度黄染,胸前有一蜘蛛痣,肝掌征(+),肝、脾未扪及,移动性浊音(+)。实验室检查:ALT250U/L,AST130U/L,ALB32g/L,GLB38g/L,TB
导致骨折延迟愈合或不愈合的因素不包括()
肝气郁结型郁证治法为:阴虚火旺型郁证治法为:
2002年4月2日,某银行与某公司签订贷款合同,约定银行贷款给公司,公司以土地使用权为抵押。2002年6月1日,公司办理土地使用权抵押登记手续,并取得土地管理局签发的抵押证书。后因公司未依约还款,某银行提起诉讼。2003年2月4日,法院作出民事判决,认定土
根据《中华人民共和国证券法》的规定,股份有限公司发行的公司债券上市交易后,公司发生的下列情形中,证券交易所不可以决定终止公司债券上市交易的是()。
在演绎法中,研究的角度是通过经验和观察试图得到某种模式或理论。()
商业银行应保证个人理财业务人员具备的资格包括()。
2009年全省固定资产投资增速较快。全年完成全社会固定资产投资18751.6亿元,增长24.5%;城镇固定资产投资14122.6亿元,增长24.2%;农村固定资产投资4629亿元,增长25.4%。在全社会投资中,国有及国有控股投资4349.5亿元,增长46
TheReboundBringsInvestingOpportunityHere’sthenot-so-badnews:Wearenearingabottom.Housingpricesarefalling,bu
最新回复
(
0
)