首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为“统计”的命令按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别在标签控件数组x中显示,如图所示。 在给出的窗体文件中
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为“统计”的命令按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别在标签控件数组x中显示,如图所示。 在给出的窗体文件中
admin
2016-06-23
72
问题
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为“统计”的命令按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别在标签控件数组x中显示,如图所示。
在给出的窗体文件中已经添加了全部控件,但程序不完整。要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1_Click() Dim n As Integer Dim b As Integer Dim a(3)As Integer S=RTrim(Text1.Text)’将文本框中的内容取出并去掉右边空格 n=
Len
(Text1.Text)’用Len函数确定字符串长度 For i=1 To n b=
Asc
(Mid(s,i,1))’将取出的字符转换为ASCII码值 Select Case
b
’确定b的范围,从而得知它的类型 Case 48 To 57 a(0)=a(0)+1 Case 65 To 90 a(1)=a(1)+1 Case 97 To 122 a(2)=a(2)+1 End Select Next For i=0 To
2
x(i)
=a(i)’将所得个数分别显示在标签控件数组X中 Next End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/0SLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有下面的循环:i=0Whilei<=1 i=i+3 PrintiWend则运行后的输出结果是
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dima(5,5) Fori=1To3 Forj=1To4
常用的黑箱测试有等价分类法、______、因果图法和错误推测法4种。
在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到()事件。
可决定窗体左上角是否有控制菜单的属性是()。
下列程序的运行结果是()。s=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3 s=s+1Nextzt=t+1Nextyu=u+1
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Te
设用复制、粘贴的力怯建立了一个命令安钮数组Command1,以下列该数组说法错误的是
随机试题
Whatistheconversationmainlyabout?
原尿成分与血浆成分不同的是
患者神疲思睡,动则心悸,常自汗出,纳差乏力。面色不华,舌淡,脉沉细无力。其证候是
工程经济分析中,某年的投资(现金流出)标在现金流量图中该年的( )。
企业发生的一切支出都属于费用。()
下列属于加强秘书人员的政治思想修养的措施的是()。
远东地区最大、最先进的啤酒厂里.有一台电机默默运转带动生产,一瓶瓶________的啤酒鱼贯产出。转眼109年已逝,这台老电机虽已停运,但仍________地置于原地,成为青岛啤酒博物馆的“镇馆之宝”,讲述着它与青岛啤酒跨越一个世纪的________。在博
“万众创新,大众创新”是()提出的。(北京师范大学2016)
Ifanyoneisqualifiedtounifytheseeminglydisparatesubjectsoffinancialmarketsandneurology,it’sJohnCoates,asenior
Theanimalprotectiongroupiscallingonpeopleto_______furcoatsandcareforwildanimals.
最新回复
(
0
)