首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
2020-05-11
23
问题
有下面程序代码:
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、1 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/BEHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序:PrivateSubFormClick()DimSAsInteger,pAsIntegerP=1Fori=1To4Forj=1ToiS=S+jNextjP=P=p*sNextiPrintpEn
语句DimArr(-2To4)AsInteger所定义的数组的元素个数为
设窗体上有一个Textl文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Textl=HScroll1EndSub在程序运行时,当
(1)在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图1-13(a)所示。输入商品名称后,选中一种付款方式,则“成交”按钮变为可用,选择一种或多种“服务”后,单击“成交”按钮,则把相应信息显示在下面的图片框中,如图1-13(b)所示。若不选任
(1)在考生文件夹下有一个工程文件sjt3.vbp,它的功能是在运行时只显示名为Form2的窗体,单击Form2上的“C2”按钮,则显示名为Form1的窗体;单击Form1上的“C1”按钮,则Form1的窗体消失。这个程序并不完整,要求如下:①
(1)考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。要
在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画三个命令按钮,其名称分别为C1、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图1-125所示)。程序运行后,如果单击“读入数据
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框。Text1,2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Label2、标题为“各行平均值的最小值为”的标签,再画1个名称为Text2、初始内容为空的文本框。效果如图3-18
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些
能得到组合框Combol中最后一个列表项序号的表达式是()。
随机试题
麦氏重排的特点有哪些?
数而时一止,止无定数所主病有
多发性骨髓瘤患者血清蛋白电泳图谱出现M区带是由于患者血清中有大量的
下列哪一项是对行政诉讼和刑事诉讼之间关系的错误表述?
关于公路施工企业信用评价等级的说法正确的有()。
对圆的直径是它的半径的两倍的学习属于()。
收容教育的期限是()
设函数f(x)==__________。
Manyexpertsbelievethatinthenewworldofartificialintelligence(AI)humanbeingswillstillbeneededtodothejobsthat
FannyKemble(1809—93)wasthenieceoftwoShakespeareantragedians,SarahSiddonsandSiddons’sbrother,JohnPhilipKemble.【R1】
最新回复
(
0
)