有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")

admin2018-05-08 60

问题有下面程序代码：
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全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")

二级VB

NCRE全国计算机二级

支持子程序调用的数据结构是

下列叙述中正确的是

(1)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为Picturel的图片框(PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为Imagel的图像框(Imag

下面程序运行后，语句”Printi”执行的次数是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=0Doi=i+1Forj=10To1Step-3

要使菜单项MenuOne在程序运行时失效，应使用的语句是()。

若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndTypeDimStudent(5)AsTem则下面的输出语句中正确的是()

在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：OptionBaselPrivateSubCommandl_Click()Dimaa=Array(1，2，3，4)j=lFori=4To1

在考生目录下有一个工程文件sjt4．vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Textl、Text2的两个文本框，用于接收输入的M和N(要求M＜N)。单击名称为Commandl、标题为”计算”的命令按钮，计

Jackdecidedtogototheshop________persontomaketherequestforarefund.

Here’samanwhojustbreaksintoabankandhelpshimself______somuchmoney.()

A．ISELB．IDEALC．BR21D．INTACLE．HERA研究ZD1839联合化疗疗效的临床试验是

不属于氯丙嗪临床应用的选项是()

患儿．口舌生疮、咽喉红肿疼痛、心胸烦热、小便短赤、大便秘结。治疗选用导赤丸。导赤丸的功能为()

采用投资组合保险策略时,风险资产收益率上升,风险资产的投资比例随之上升,如果风险资产市场继续上升,投资组合保险策略将取得优于买入并持有策略的结果。()

木版年画出现于雕版印刷术发明之后的宋代，清代中叶起已成为一种独立的艺术形式。()

根据法律规定，适龄儿童和青少年都必须接受，国家、社会、家庭必须予以保证的国民教育是()。

以“模式标本采集圣地”闻名于世的地方是()。