首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
2015-08-28
37
问题
有下面程序代码:
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/OILp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。
设有语句:x=InputBox("输入数值","0","示例")程序运行后,如果从键盘上输人数值10并按回车键,则下列叙述中正确的是______。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()aS="VisualBasic"
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,Y,zAsIntegerx=5y=7
设有如下程序:PrivateSubCommand1_Click()DimsumAsDouble,kAsDoublesum=0n=0Fori=1To5k=n/i
在窗件上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()a=12345PrintFormatS(a,"000.00")EndSub
假设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是______。
下列说法错误的是______。
随机试题
患者,男,46岁。口腔糜烂1年,躯干水疱6个月。体格检查:躯干见蚕豆大小的水疱,壁薄,基底红,尼氏征(+);并见较多糜烂面,表面有污秽痂皮;口腔黏膜糜烂。实验室检查:血尿及大便常规检查正常;肝肾功能正常;ESR正常。确诊该病,最有价值的辅助检查为
A.小蓟B.白茅根C.侧柏叶D.茜草E.槐角既凉血止血,又活血通经的是
巴比妥类药物进入脑组织快慢主要取决于()。
建设工程项目管理的“费用目标”对业主而言指的是()。
诗人从生活和大自然捕捉灵感,将语言文字剪裁成诗;知音的理解和回响,可使诗的意象和隐藏其中的思想感情浮现出来。天地一沙鸥,海上生明月,悠然见南山,经由后人的吟诵品味,其意象才更为深化;巴山夜雨,易水悲歌,汉关秦月,江山风光和人物诗文相互烘托,转化为跨时空的文
《幼儿园工作规程》明确规定幼儿园教育要以()为基本活动,寓教育于各项活动中。
教师在班级管理中应当将非正式组织取消,从而增强班级群体的力量。()
A、 B、 C、 D、 B很明显本题考查的是图形的对称性。以中间图形为中心,其对称位置上的图形关于中间图形对称,由此选择B。
思维的智力操作过程的基本形式有()
WhatisthemostimportantfactorforarockettoescapefromtheEarth?Howfastwillarocketgotoescapecompletelyfromth
最新回复
(
0
)