首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
29
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
以下过程定义中正确的过程首行是
设X为一整型变量,且语句的开始为:SelectCasex,则不符合语法规则的Case子句是
以下关于VB对象属性的叙述中,错误的是
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回f(x
下列描述中,错误的是
下面叙述中错误的是
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是
随机试题
()等自然资源,属于国家所有,但是法律规定属于集体所有的除外。
顾客态度追踪系统包括()
下列腧穴中,属于足太阴脾经的有
表现右胁疼痛,肿块质硬拒按,腹胀大,青筋暴露,呕血,皮下出血,五心烦热,舌红少苔,脉细数者属肝癌之表现右胁下肿块,刺痛,目黄身黄,心烦易怒,口干,溲赤便干,舌紫暗,苔黄腻,脉弦滑者属
根据《道路交通安全法》的规定,如下哪些行为将被受到拘留(十五天)处罚?()
在学习《陈情表》时,学生发现课文下面有很多对文中重要实词、虚词的解释,从语文教材的构成来看,这属于语文教育科书的哪一系统?()
有的老师认为“学习好的学生就是好学生”,这是社会认知中的()。
心理学家陆钦斯的“量水实验”证明的迁移理论是()。
某个班一共有30个学生,其中11人参加chessclub,13人参加bridgeclub,还有10人什么也没有参加,问有多少人仅仅参加一个club?
WhereisJoan’sfamilygoingtospendsummer?
最新回复
(
0
)