首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
2018-05-08
49
问题
有下面程序代码:
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/NvGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
程序调试的任务是
有如下程序:PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=su
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击”删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommandI_Click()D
不能正确表示条件”两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是()。
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
下面程序计算并输出的是()。PrivateSubCommandl_Click()Num=10Sum=0DoSum=Sum+Num*Num*NumNum=Num-1LoopUntilNum<=0PrintSumE
为了保存数据,需打开顺序文件“E:\UserData.txt”,以下正确的命令是
在考生目录下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图2-93所示。要求如下:①利用属性窗口设置适当的属性:为Listl列表框添加三个项目:宋体、黑体、楷体_GB2312;Textl文本框设置初始值为”计算机”;Hscroll1水
在下列几种排序方法中,要求内存量最大的是()。
随机试题
You’dthinkPaulineHordwouldhaveservedhertimebynow.Afterall,sherecentlycelebratedher90thbirthday,andbythetim
简述物流七要素的内容。
我国于______年起实行出口退税政策。()
伤寒发病第1周,下列哪项检查阳性率最高()
抗香豆素过量引起出血可选用()。
A.直肠给药B.舌下给药C.呼吸道给药D.经皮给药E.口服给药气体、易挥发的药物或气雾剂的适宜给药途径是()。
宗地分割及调整边界测量放样数据一般有三种:极坐标法放样数据、长度交会法放样数据和()。
在电子邮件中所包含的信息()。
下列选项中,()不是保险与赌博的区别。
在某攀断竞争市场中。实现长期均衡时的均衡价格pe,此时的均衡点是代表性企业的需求曲线与其长期平均成本(LAC)曲线相切之点,因而pe=LAC。己知代袭性厂商的长期成本函数和需求函数分别为:LTC=0.0025q3-0.5q2+384q,p=A-0.1q。上
最新回复
(
0
)