首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Len(x) b=Mid(x,k,1
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Len(x) b=Mid(x,k,1
admin
2019-07-30
57
问题
有下面程序代码:
Option Base1
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
解析
InputBox函数将会返回用户在输入对话框中输入的文本,以字符串的形式返回;在第一个For循环中从前到后依次取出字符串中的每一位数字,然后令对应的数组元素自加1,其中数组的第一位放的是0的个数,所以循环结束后数组中存放的是各个数字出现的个数。
转载请注明原文地址:https://kaotiyun.com/show/WpUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是
以下叙述中正确的是
为了使列表框中的项目呈多列表显示,需要设置的属性为
编写如下程序:PrivateSubCommandl_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>60Thenr=2El
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动到最左边时,文本框中显示的是1
以下自定义数据类型的语句中,正确的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
假定有以下循环结构DoUntil条件表达式循环体Loop则以下正确的描述是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩
结构化程序设计的3种结构是()。
随机试题
低碳钢碳弧气刨后,在刨槽表面会产生一层()。
Theprospectofincreasedpriceshasalreadyworries.
有机磷农药中毒的机理是
当比对传递标准器稳定性容易受环境、运输等影响时,为了比对结果的有效性,应选择__________。
解决问题的基本过程是()。
遗产:是公民死亡时遗留的个人合法财产,其范围包括:公民的收入;房屋、储蓄和生活用品;林木、牲畜和家禽;文物、图书资料;法律允许公民所有的生产资料;著作权、专利权中的财产权;其他合法财产和个人承包应得的收益。明确了遗赠财产是遗产的一部分。根据以上定义
A、B两地位于同一条河上,B地在A地下游100千米处。甲船从A地、乙船从B地同时出发,相向而行,甲船到达B地、乙船到达A地后,都立即按原来路线返航。水速为2米/秒,且两船在静水中的速度相同。如果两船两次相遇的地点相距20千米,那么两船在静水中的速度是(
在某届洲际杯足球大赛中,第一阶段某小组单循环赛共有4支队伍参加,每支队伍需要在这一阶段比赛三场。甲国足球队在该小组的前两轮比赛中一平一负。在第三轮比赛之前,甲国队主教练在新闻发布会上表示:“只有我们在下一场比赛中取得胜利并且本组的另外一场比赛打成平局,我们
GooglealreadyhasawindowintooursoulsthroughourInternetsearchesanditnowhasinsightintoourailingbodiestoo.The
AbundanceAbundanceisalifestyle,awayoflivingyourlife.Itisnotsomethingyoubuynowandthenpulldownfromthe
最新回复
(
0
)