首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
33
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
以下关于控件的叙述中,正确的是
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下:PrivateSubCommand1_Click(IndexAsIntege
以下关于VB对象属性的叙述中,错误的是
下列描述中,错误的是
设有下面的程序段:X=InputBox(“请输入一个整数”)ReDima(x)Fork=xTo0Step一1a(k)=kNextk一般,在这段程序之前应先进行数组a的定义。下面定义语句中正确的
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommandlClick()DimslAsString,s2AsStringOpen“c:\d4.
下面不属于对象主要特征的是()。
下面描述中不属于数据库系统特点的是()。
数据库设计过程不包括
随机试题
《中国药典》(2000版)规定的计量单位与名称是
能直接编程的梯形图必须符合顺序执行,即从________到________,从________到________地执行。
咯血患者ANCA阳性常见于下述哪种情况
符合G蛋白耦联受体(GPCR)信号通路特征的是
羊脂油炙淫羊藿的作用是
国家信贷政策规定的首付款比例一般是个人购买普通住房首付款的()比例要求。
因企业合并所形成的商誉和使用寿命不确定的无形资产,若期末不存在减值迹象,则不必进行减值测试。()
有的成语与历史人物密切相关。下列选项中,与“狡兔三窟”相关的历史人物是()
单元备课
证券到期日的长短与市场利率变化的可能性成正比,到期日越长,市场利率变化的可能性就越大,反之则越小。
最新回复
(
0
)