首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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-09-19
90
问题
窗体上有一个名称为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/O2Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
表达式12/2\4的值是( )。
设有如下事件过程:PrivateSubForm_Click()Dimf1AsInteger,f2AsInteger,iAsIntegerDimsAsIntegerf1=1:f2=1s=f1
下面对软件特点描述错误的是
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Forml的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
设有以下程序:PrivateSubForm_Click() x=50 Fori=1To4 y=InputBox("请输入一个整数") y=Val(y) IfyMod5=0Then a=a+y
(1)在名称为Form1,标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。框架内含有三个复选框,其名称分别为Chk1、Chk2和Chk3,标题分别为“倾斜”、“加粗”和“下划线”。程序运行后的窗体如图所示。要求:存盘时必
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
下列说法中错误的是
下面描述不属于软件特点的是
一个运动队有多个队员,一个队员仅属于一个运动队,一个队一般都有一个教练,则实体运动队和队员的联系是
随机试题
焊接工艺()是一种经评定合格的书面焊接工艺文件,用以指导按法规的要求焊制产品的焊缝。
静脉DSA造影时,关于动脉内碘浓度的描述,正确的是
1.在实际工作中常测试腋窝、口腔或直肠的温度代表体温,同一个体的这三处温度由高至低的排列顺序为
A.由司法机关依法追究其刑事责任B.注册机构应及时记录在其《执业药师资格证书》中的备注《执业情况记录》栏内C.发证机构应收回证书,取消其执业药师资格,注销注册D.应限期配备,逾期将追究单位负责人的责任E.必须调离岗位执业药师在执业期间违
A.产后2~3dB.产后4dC.3~7dD.产后10~14dE.产后2~3周一般脐带脱落的时间是()
墩台混凝土分块浇筑时,接缝应与墩台()的一边平行。
铁路车辆种类很多,主要有通用货车、专用货车和特种货车,以下车辆属于特种货车的是()。
帕累托定律:该定律发现,企业80%的收入来源于20%的客户,全世界也只有20%的人影响着时代进程。因此以一个关键的小的诱因、投入和努力,通常可以产生大的结果、产出或酬劳。以下做法不属于对帕累托定律的运用的是:
真彩色是指组成一幅彩色图像的每个像素值中,有R、G、B3个基色分量。RGB(8:8:8)表示R、G、B分量都用8位来表示。一幅640×480的RGB(8:8:8)的真彩色图像文件的大小是(57)。
AccordingtoGoleman,thebiggestdifferencebetweenthetwoCEOsdescribedinthefirstparagraphliesin______.Golemansnew
最新回复
(
0
)