首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,编写如下程序代码: Option Base 1 Private Sub Command1_Click() Dim n As Long Dim m As Integer
在窗体上画一个名称为Command1的命令按钮,编写如下程序代码: Option Base 1 Private Sub Command1_Click() Dim n As Long Dim m As Integer
admin
2020-06-30
34
问题
在窗体上画一个名称为Command1的命令按钮,编写如下程序代码:
Option Base 1
Private Sub Command1_Click()
Dim n As Long
Dim m As Integer
Dim x As Integer,i As Integer
Dim nums()As Integer
n=CLng(Val(InputBox("输入一个正整数","输入")))
m=Len(Trim(Str(n)))
ReDim Bum8(m)
For i=m To 1 Step—1
nums(i)=n 10^(i—1)
n=n—num$(i)*10^(i一1)
Next i
For i=m To 1 Step一1
x=x+num$(i)
Next i
Print x
End Sub
程序运行时,单击命令按钮,在出现的输入对话框中输入“8356”,则输出结果是( )。
选项
A、一6
B、6538
C、8356
D、22
答案
D
解析
程序开始前使用Option Base 1语句,表示数组下标从1开始。在过程Command1_Click中定义了动态数组nums,通过lnputBox函数输入一个正整数赋值给n,n=8356;str(n)可以将n转换为字符串,通过Len函数测量字符串的长度,然后赋值给变量m,m=4。通过ReDim语句给动态数组nums重新分配空间,nums是一个可以包含4个元素的一维整型数组。第一个for循环的功能是:将整数n的千位数赋值给nums(1),将整数n的百位数赋值给nums(2),将整数n的十位数赋值给nums(3),将整数n的个位数赋值给hums(4),所以循环结束后nilms(1)=8,nums(2)=3,nums(3)=5,hums(4)=6。后一个For循环的功能是:将hums数组中的所有元素累和,并将结果赋值给变量x,x=8+3+5+6=22,最后输出x的值。故本题D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/pTHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicXAsIntegerPrivateYAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSubForm_Load()
下面叙述中正确的是
窗体上已有1个名称为Picturel的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picturel显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picturel显示在鼠标位置下面不能实现上述任何功能的事件过程是
假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为()。
假定有如下语句:answer$=MsgBox(”String1”,,”String2”,”String3”,2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为
编写如下程序:PrivateSubCommand1—Click()DimXAsIntegerx=10Printfunl(x,12)+xEndSubPrivateFunctionfiml(mAsInteger,nAsInteger)
窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOpt1中每个元素的属性是
以下关于窗体的叙述中错误的是
设循环队列的存储空间为Q(1:50),初始状态为front=rear=50。现经过一系列入队与退队操作后,front=rear=1,此后又正常地插入了两个元素。最后该队列中的元素个数为()。
在软件开发中,需求分析阶段产生的主要文档是
随机试题
现代人才最基本的特征是()
关于侧脑室脉络丛球钙斑的描述,错误的是
消渴,气上撞心,心中疼热,饥不欲食,食则吐蛔,辨为
所有进出我国关境,从事商业性国际运输的船舶必须缴纳船舶吨税。()
甲公司2012年~2019年发生的有关经济业务如下:(1)2012年1月10日,甲公司销售一批商品给乙公司,货款为2000万元(含增值税额)。合同约定,乙公司应于2012年4月10日前支付上述货款。由于资金周转困难,乙公司到期不能偿付货款。经协商,甲
仲裁庭做出的仲裁裁决书发生法律效力后,如果当事人一方不履行裁决的,另一方当事人可以依据《民事诉讼法》的有关规定向人民法院申请执行。()
把下面的六个图形分为两类,使每一类图形都有各自的共同特征或规律,分类正确的一项是()。
好像上天在铺排这个仪式时突然想到要补上一个代表,让蠕动于山川间的渺小生灵占据一角观礼。被选上的当然是女性,正当妙龄,____________________,人类的真正杰作只能是她们。人们在她身上倾注了最______________的传说,好像下决心让她_
Bobfailstoattendtheeveningschool.He______sick,becauseheneverasksforleave.
Thehours______thechildrenspendintheirone-wayrelationshipwithtelevisionpeople,undoubtedlyaffecttheirrelationships
最新回复
(
0
)