首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") Forvk=1 To Len(x) b=Mid(x,k,
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") Forvk=1 To Len(x) b=Mid(x,k,
admin
2019-01-17
85
问题
有下面程序代码:
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer,x,b
x=InputBox("请输入一个多位整数")
Forvk=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/9gFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommand1_Click()DimsignAsIntegersign=1a=1b=2Fork=1To5c=a
设变量x的值是845,则下面语句的输出是Printx\100+(xMod100)\10+xMod10
窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序:PrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Cl
下列叙述中正确的是
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:OptionBase0PrivateSubCommand1_Click() DimA1(4)AsInteger,A2(4)AsInteger Fork=0To
设在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Com
如果一个菜单项的Enabled属性被设置为False,则程序运行时,该菜单项( )。
按照下表建立菜单:单击菜单的事件过程如下:PrivateSubmnu1_Click(IndexAsInteger)SelectCaseIndexCase1Print"选中菜单项1"Case2IfMnu
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a
随机试题
患者,男性,54岁。2月前发现左肩胛骨及左上肢内侧疼痛,逐渐加重,伴有低热,2年前胸部X线检查正常。查体:左眼睑下垂,瞳孔缩小,眼球内陷。X线显示左前第二肋以上至肺尖部有高密度阴影。诊断应考虑()
商业信用所贷出的是()
胃食管反流病的主要发病机制不包括
河流断面现状监测,上、下午COD监测浓度分别为36mg/L和42mg/L,其质量标准为30mg/L,则COD标准指数为()。
下列关于扶持特殊类型地区发展的说法中,正确的有()。
杨贤江于1930年出版的教育学著作是()。
教练给某学员的便条上写道:今天你表现不错,跑位积极,速度达到每秒7米,全场跑动距离达到1.3千米,但要更注意与队友们的配合,毕竟60分钟的比赛不是你一个人的战斗。据此可知,该教练最可能从事的运动是:()
使用VC6打开考生文件夹下的源程序文件modi3.cpp,其中定义了用于表示日期的类Date,但类Date的定义并不完整,按要求完成下列操作,将类的定义补充完整。(1)定义私有成员变量year、month、day,分别表示年、月、曰,类型为int
SpringhascametoPortlandatlast.Theskyisblue.【M1】______Birdsaresingingonthetrees,flowersareblooming,and【M2】___
Sometimescertainfamiliesadhered______thesamereligiousbeliefsforseveralgenerations.(2013年3月中国科学院考博试题)
最新回复
(
0
)