首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
79
问题
窗体上有一个名称为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/qdQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox("
因修改文本框中的数据而触发的事件是______。
设x=4,y=8,z=7,下列表达式的值是()。x>zOrz<x
在窗体上建立通用对话框需要添加的控件是()。
下列叙述中错误的是()。
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
数据库系统中实现各种数据管理功能的核心软件称为【】。
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
表达式Abs(-5)+Len("ABCDE")的值是______。
与数学表达式对应的,VisualBasic表达式是______。
随机试题
【背景资料】某施工单位承建某铁路客运专线双线隧道。隧道长度为2600m,起止里程为DK38+000~DK40+600。进、出口段浅埋,围岩为风化泥灰岩,岩体破碎,节理发育,裂隙水丰富,级别为Ⅴ级;洞身DK39+100~DK39+500段围岩级级为
某小区五楼刘某家的抽油烟机发生故障,王某与李某上门检测后,决定拆下搬回维修站修理。刘某同意。王某与李某搬运抽油烟机至四楼时,王某发现其中藏有一包金饰,遂暗自将之塞入衣兜。(事实一)王某与李某将抽油烟机机搬走后,刘某想起自己此前曾将金饰藏于其中,追赶前来,
处理肉芽过度增生的药物是
与可摘局部义齿稳定无关的是
A.曲泽B.间使C.内关D.大陵E.劳宫可用于治疗鹅掌风的穴位是
尿少,口干,皮肤弹性稍差,血压为11.3/7.7kPa,呼吸深快,口唇樱红,前囟门凹陷,心音低钝,肺无啰音,腹胀,四肢无力、稍凉,血钠132mmol/L。可能的诊断是
患儿,女,3岁,因发热3日伴流涕、咳嗽、流泪来诊。护士预诊时发现该患儿体温39.4℃,结膜充血、畏光流泪,并且在颊黏膜上出现柯氏斑,应首先考虑的疾病是()
甲公司是一家软件企业,80%的员工都是资深的程序员,则该企业适合于采用()。
心理咨询最终的目标是()。
Youwillhearanotherfiverecordings.Eachspeakerrecentlyattendedaninterview.Foreachrecording,decidewhatthespea
最新回复
(
0
)