首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2018-12-20
118
问题
窗体上有一个名称为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/xuFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click() a=InputBox("Enteranintege
假定在图片框Picture1中装入了一个图片,在程序运行中,为了清除该图片(注意,清除图片,而不是删除图片框),应采用的正确方法是( )。
编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(x,12)+xEndSubPrivateFunctionfun1(mAsI
编写如下程序:PrivateSubCommand1_Click()DimnAsInteger,tAsLongStaticsAsIntegert=1Forn=1To3t=
为了保存数据,需打开顺序文件"E:\UserData.txt",以下正确的命令是
窗体上有一个名称为Combo1的组合框,要求在其编辑区输入文本并按回车键后,编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。
下面叙述中错误的是( )。
对于语句DimVar1,Var2AsString*10,下列说法中正确的是
随机试题
通过保险和社会保障机制对经济与社会生活中的各种风险进行的补偿、防范或管理,体现金融机构的()
反映项目财务状况的主要指标有()。
如果乙公司没有按照合同的约定支付材料款,则( )。《根据合同法》规定,违约责任除另有规定外,实行( )原则。
下列分配完工产品成本与在产品成本的方法中,能使某种产品本月发生的生产费用就是本月完工产品成本的有()。
下列属于面试中应聘者目标的是()
如图,已知双曲线C:一y2=1(a>0)的右焦点为F,点A,B分别在C的两条渐近线上,AF⊥x轴,AB⊥OB,BF//OA(O为坐标原点).求双曲线C的方程;
计算累次积分I=∫01dx∫1—x2—xe(x+y)2dy+∫12dx∫02—xe(x+y)2dy。
LatelyIhavebeennoticingthegreatnumberofelectricalappliances(电器)onthemarket.Itseemstomethatthereare【C1】_____
【B1】【B6】
A、Heisagoodfriendwiththespeakers.B、Hedoesn’tsupportthesameteamasthespeakers.C、Heisusuallypessimistic.D、Hei
最新回复
(
0
)