首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多砬整数") For k=1 To Len(x) b=Mid(x,
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多砬整数") For k=1 To Len(x) b=Mid(x,
admin
2019-03-08
43
问题
有下面程序代码:
Option Base 1
Private Sub Commandl_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
程序运行时,单击命令按钮Commandl,输入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 O 7 2 5 5 3 2
答案
A
解析
InputBox函数将会返回用户在输入对话框中输入的文本,以字符串的形式返回:在第一个For循环中从前到后依次取出字符串中的每一位数字,然后令对应的数组元素自加1,其中数组的第一位放的是0的个数,所以循环结束后数组中存放的是各个数字出现的个数。
转载请注明原文地址:https://kaotiyun.com/show/oZFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下程序:PrivateSubForm_Click()Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintText1.Text;EndSub运行程序,
以下关于窗体的叙述中,错误的是( )。
(1)在名称为Form1、标题为“菜单”的窗体上,设计满足如卜要求的菜单。程序运行后的窗体如图所示,存盘时,将文件保存至考生文件央下,且工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。(2)在名称为Form1的窗
下面属于黑盒测试方法的是
VB中,若没有显式声明变量的数据类型,则默认的类型是
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整
(1)在名称为Form1的窗体上添加一个名称为Shape1的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求:①圆角矩形中填满绿色(颜色值为:&H0000FF00&或&HFF00&)。②窗体的标题为“
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
随机试题
单纯性甲状腺肿的最主要病因是
A、《赫尔辛基宣言》B、《夏威夷宣言》C、《希波克拉底誓言》D、《大医精诚》E、《纪念白求恩》第二个关于人体实验的伦理学文献是
托姆斯颗粒层位于
A、异喹啉<四氢异喹啉B、麻黄碱<去甲麻黄碱C、伪麻黄碱>麻黄碱D、利血平<一般叔胺碱E、咖啡碱<一般生物碱空间效应造成碱性不同的生物碱为()
某工厂坐落于城市中心区域,有厂房数幢,土地使用权性质为划拨的国有建设用地使用权,用途为工业用地。最新城市规划将该地块调整为商业用地,政府现对该地块进行收购储备,委托某房地产估价机构进行有关估价。评估该宗熟地出让价格时,如何界定土地用途?适宜选用哪些估价
大地水准面精化工作中,A、B级GPS见测应采用()定位模式。
The Turing machine is an abstract(71)of computer execution and storage introduced in 1936 by Alan Turing to give a mathematicall
KTCShippingcompanyhasthebestpriceforshippinggoodsviacontainers______anydestinationworldwide.
Scientistsfordecadeshaveclashedoverwhetherevolutiontakesplacegraduallyorisdrivenbyshortspurtsofintensechange
Everyoneneedstosleep.Ifwedon’tsleepenough,weoftenfeeltiredandirritable(烦躁的,易怒的).Itseemstherearetwopurposes
最新回复
(
0
)