首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10) As Int
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10) As Int
admin
2015-08-28
73
问题
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:
Private Sub Command1_Click()
Dim count(10) As Integer
’第1个For循环
For i = 0 To 9
count(i) = 0
Next
s = Trim(Text1.Text)
strLen = Len(s)
’第2个For循环
For i = 1 To strLen
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
x = Val(c)
count(i) = count(i) + 1
End If
Next
’第3个For循环
For i = 0 To 9
Print Str(i), count(i)
Next
End Sub
运行程序后,发现不能实现题目的要求,程序应该进行的修改是
选项
A、将第2个For循环的初值改为0
B、将第2个For语句改为For i = 0 To 9
C、去掉x=Val(c)语句
D、将 count(i) = count(i) + 1改为count(x) = count(x) + 1
答案
D
解析
根据题意可知,第2个For循环应该是统计的字符个数。i是循环变量,所以选D)。
转载请注明原文地址:https://kaotiyun.com/show/mmLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,然后编写如下事件过程。当该程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。PrivateSubText1_KeyPress<KeyAsciiAsInteger)Dimchara
在窗体上建立一个单选钮组Option1和一个图片框Picture1,如下图所示。当选择不同的单选钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。PrivateSubOption1_Click(______)DimH,
表达式"12345"<>"12345"&"ABC"的值是______。
语句DimArr(3To5,-2To2)定义的数组的元素个数是()。
下列关于栈的叙述中正确的是______。
【】是数据库应用的核心。
以下程序段运行的结果是______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerDoUntilflag=TrueFor
下列程序段的执行结果为______。A=0:B=0ForI=-1To-2Step-1ForJ=1To2B=B+1NextJA=A+1
下列叙述中正确的是______。
在窗体中放置控件,对该控件的操作错误的是()。
随机试题
Apioneeringstudyintotheeffectsofamother’sfatintakeduringpregnancyonherchild’shealthwhenheorshegrowsupisb
A.皮肤蒸热B.壮热烦渴C.高热惊厥D.夜热早凉属于青蒿鳖甲汤特征的是
男孩,15岁,近3个月来感四肢乏力,晨轻暮重,近1天来明显加重,口齿不清,吞咽困难,否认肢体酸痛,大小便正常。假设经2个月治疗,呼吸平稳,肌力恢复.检查发现有胸腺瘤存在,进一步的处理措施应该是
下列哪种药物不属治疗类风湿关节炎的慢作用抗风湿药
关于民事诉讼财产保全制度,下列哪些说法是正确的?(2003—卷三—71,多)
土地利用合理性分析的内容包括()
企业所得税的征税对象是企业取得的生产经营所得和其他所得,但并不是说企业取得的任何一项所得,都是企业所得税的征税对象。确定企业的一项所得是否属于征税对象,要遵循以下原则( )。
资本周转速度的加快对剩余价值生产的影响表现为()。
公文标题一般由()构成。
A、Theyarereliable.B、Theyarecompact.C、Theyarespacious.D、Theyareeasytodr
最新回复
(
0
)