首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")
admin
2019-06-20
45
问题
有下面程序代码:
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, x, b
x = InputBox("请输入一个多位整数")
For k = 1 To Len(x)
b = Mid(x, k, 1)
a(Val(b) + 1) = a(Val(b) + 1) + 1
Next k
For k = 1 To 10
Print a(k);
Next k
End Sub
程序运行时,单击命令按钮Command1,输入2355270224,则输出是
选项
A、1 0 4 1 1 2 0 1 0 0
B、0 4 1 1 2 0 1 0 0 0
C、2 3 5 5 2 7 0 2 2 4
D、4 2 2 0 7 2 5 5 3 2
答案
A
解析
Len函数获取整数的位数并作为For循环的边界。Mid函数从循环变量指定的地方获取字符并赋值给b。Val函数取b的数值。For循环完成对数组a的元素赋值。第二个for循环进行打印。选A)。
转载请注明原文地址:https://kaotiyun.com/show/iMUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下数组定义语句:Dima(-1To4,3)AsInteger以下叙述中正确的是
以下关于控件数组的叙述中,错误的是
假定有以下通用过程:FunctionFun(nAsInteger)AsIntegerx=n*n:Fun=x-11EndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCom
在VB中,函数过程与子程序过程的区别之一是
(1)在名称为Forml的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObj,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdHide、cmdCopy,标题分别为“显示”、“隐藏”、“
设a=2,b=3,c=4,d=5,下列表达式的值是()。3>2*bOra=cAndb<>cOrb<>a+c
下列可作为VisualBasic变量名的是()。
设有如下数组定义语句:Dima(-1To4,3)AsInteger以下叙述中正确的是
设一棵完全二叉树共有700个结点,则此二叉树中的叶子结点数为
下列运算符中,优先级别最高的是
随机试题
“骗子”客商
Theyear2000willbringbigchangesincommunication.Cellphoneswillbesmallenoughtocarryinyourpocket.Videophoneswil
下列哪种先心病可引起原发性左心衰
与急性心包炎相鉴别,支持急性心肌梗死的诊断依据是( )。
当事人可以自由选择一种形式即可成立的法律行为,称为()。
拮抗作用
将下列选项中的词语依次填入各句横线处,最恰当的一组是()。①网坛女将郑洁几经__________,才进入国家队。②我将于18日__________去上海参加比赛。
下列句子中加点的成语,使用恰当的一句是:
1.Onanaverageofsixtimesaday,adoctorinHollandpractices"active"euthanasia:intentionallyadministeringalethaldru
【B1】【B6】
最新回复
(
0
)