首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
25
问题
有下面程序代码:
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://jikaoti.com/ti/I0N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设a=4,b=5,c=6,执行语句Printa<bAndb<c窗体上显示的是
设有如下事件过程:PrivateSubForm_Click()Sum=0Fork=1T03Ifk<=1Thenx=1ElseIfk<=2Thenx=2ElseIfk<=3Thenx=
在黑盒测试方法中,设计测试用例的主要根据是
在软件设计中,不属于过程设计工具的是
下列控件中,不响应Click事件的是
用来设置文字字体是否斜体的属性是
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码前叙述中,错误的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Label1、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、
(1)在名称为Form1的窗体上添加一个名称为Shape1的形状控件,要求在属性窗口中将其形状设置为椭圆,其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”,窗体上无最大化、最小化按钮。程序运行后的窗体如图
窗体上有名称为Command1的命令按钮和名称为Text1的文本框()。PrivateSubCommand1_Click()Text1.Text="程序设计":Text1.SetFocusEndSubP
随机试题
Iwenttoseemyparents_______NationalDay.()
dTMP是由下列哪种核苷酸直接转变
A.螺旋甾烷醇型B.达玛烷型C.齐墩果烷型D.乌索烷型E.羽扇豆烷型人参皂苷Ro是
某市检察院张某在办理一起受贿案件时,发现犯罪嫌疑人之一系其堂妹,故申请回避并经检察长同意。下列关于张某在申请回避前所取得的证据和进行的诉讼行为效力问题的表述,哪一项是正确的?()
某企业上年度全部资金来源包括普通股1640万元、长期债券1600万元、长期借款40万元,资金成本分别为20%、13%和12%。本年年初企业发行长期债券1200万元,年利率为14%,筹资费用率为2%,企业的股票价格变为每股38元。假设企业下年度发放股利每股5
风险缓释的目的在于降低未来风险发生时所带来的损失,()就是最常用、最重要的风险缓释措施。
下列历史事件按时间顺序排列正确的一组是()。
如果经计算机处理后,结果超过计算机可表示的数据范围,则称为_________。如超过最大值,则称为_________,如果超过最小值,则称为_______。
有如下程序:#includeusingnamespacestd;intmain(){int*p;*p=9;cout
•Youwillhearabusinesspresentationabout3simplesellingtactics.•Asyoulisten,forquestions1—12,completethenotes,
最新回复
(
0
)