首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Commandl Click() Dim a(10)As Integer,x,b x=InputBox(“请输入一个多位整数”) For k=1 To Len(x) b=Mid(x,k,
有下面程序代码: Option Base 1 Private Sub Commandl Click() Dim a(10)As Integer,x,b x=InputBox(“请输入一个多位整数”) For k=1 To Len(x) b=Mid(x,k,
admin
2019-01-17
54
问题
有下面程序代码:
Option Base 1
Private Sub Commandl 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(ValCo)+1)+1
Next k
For k=1 To 10
Print a(k);
Nextk
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/MMFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不能作为结构化方法软件需求分析工具的是
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() Dima(3,3) Form=1To3 Forn=1To3 Ifn=mOrn=4-mThen
设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程中不能实现此功能的是( )。
以下关于VB的叙述中,错误的是( )。
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("输入数据")) Text1=
以下叙述中错误的是( )。
下列叙述中正确的是( )。
以下不能输出"Program"的语句是( )。
如果将命令按钮的访问键设置为“D”,以下不会触发命令按钮Click事件的操作是()。
随机试题
纽曼指出,管理部门在指导既定目标的活动时基本用的是两种计划:常规计划和_____。
A.克己B.利人C.同情D.正直E.审慎医师要为医学事业奉献毕生精力,把患者的利益放在首位,属于
对于大气一级评价项目,按大气环境影响评价的技术导则规定,其现状监测不得少于二期,其监测季节分别为()。
基坑开挖过程中应立即停止挖土的异常情况有()等。
单独或合并持有证券公司5%以上股权的股东,不可以向股东会提名()。
证券登记结算机构付出证券但收不到对应款项,或者付出款项但收不到对应证券指的是()。
1995年10月,旅游者王某等7人到旅游行政管理部门投诉,称经导游人员钱某联系,报名参加了某旅行社组织的内蒙古草原风光七日游,每人交纳了旅行费用5000元。从内蒙古旅游归来,他们认为旅程及旅游项目与原来约定的完全不相符。当他们去该旅行社交涉时,却发现该旅行
Catalyst6500的VTP域名是bupt,在该交换机上建立ID号为128,名为phyl28的VLAN,修改ID号为223,名为phy223的VLAN的名字为mat223,并为端口3/10分配128号VLAN,交换机正确的配置是()。
Normallyastudentmustattendacertainnumberofcoursesinordertograduate,andeachcoursewhichheattendsandgiveshim
LeavingHomeGenerally,mostpeoplehaveintheirmindsapictureoftheir"idealhome",butifyouarestudentsorpeopleju
最新回复
(
0
)