首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
126
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
要删除列表框中最后一个列表项,正确的语句是( )。
假定在图片框Picture1中装入了一个图片,在程序运行中,为了清除该图片(注意,清除图片,而不是删除图片框),应采用的正确方法是( )。
编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(x,12)+xEndSubPrivateFunctionfun1(mAsI
工程中有Form1、Form2两个窗体(Form1中有文本框Text1;Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码:Form1中的代码如下:PrivateSubT
如果要在语句:a=Array(1,2,3,4,5)的前面声明变量a,则正确的声明是
编写如下程序:PrivateSubCommand1_Click()DimnAsInteger,tAsLongStaticsAsIntegert=1Forn=
如果要在语句:a=Array(1,2,3,4,5)的前面声明变量a,则正确的声明是
下列不包含滚动条的控件是
下列说法中,错误的是()。
随机试题
下列选项中不属于学校产生的必备条件的是()。
阅读下列程序段,程序的输出结果为()#include"stdio.h"#defineM(x,y)(x)*(y)#defineN(x,y)(x)/(y)main(){inta=5,b=
Writersandartistsarealwaysgood______oflifefortheircreation,(observe)
下列哪种疾病可出现周围性发绀
《药品注册管理办法》(试行)中有关稳定性试验的叙述正确的是
某公司实行了扩张的企业战略,计划招聘员工120名,但是公司高层犹豫是采用内部招聘还是外部招聘。根据以上资料,回答下列问题:内部招聘的优点包括()。
某企业长期持有A股票,目前每股现金股利2元,每股市价20元。在保持目前的经营效率和财务政策不变,且不从外部进行股权融资的情况下,其预计收入增长率为10%,则该股票的股利收益率和期望报酬率分别为()元。
在对N公司2009年度财务报表进行审计时,A注册会计师需要考虑以下事项,请代为作出正确的专业判断。针对下列或有事项,A注册会计师提出审计调整建议不正确的有()。
对于小学儿童,常用的心理测验有__________、个性测验、__________和心理健康临床诊断测验。
Woman:Ihaven’tseensuchafantasticmovieforages.Don’tyouenjoyk?Man:IhavetoadmitthatIsleptthroughit.Question:
最新回复
(
0
)