首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为“统计”的命令按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别在标签控件数组x中显示,如图所示。 在给出的窗体文件中
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为“统计”的命令按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别在标签控件数组x中显示,如图所示。 在给出的窗体文件中
admin
2016-06-23
29
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/oCJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上添加一个命令按钮,名为Command1,一个文本框,名为text1,则执行如下事件过程后,文本框中的输出为Fori=1To3 Forj=1To3 Fork=1To2 x=x+3
随机文件用于读数据的语句是
有如下程序:PrivateSubForm_Click() E=1:F=1 Forj=1To3 E=E+F:F=F+E Next PrintE:FEndSub该程序的
下列事件过程运行后输出结果是PrivateSubCommand1_Click() PrintFormats(123,456,"###,##%")EndSub
inputBox函数返回值的类型为()。
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
运行以下程序后,打印机上的输出结果是()。ForI=To9Printer.Printtab(I*I),INext
同时按下______和“方向箭头”键也可以移动控件的位置。
下列叙述中正确的是
随机试题
身热,微恶风寒,汗出,头痛,咳嗽,咽燥,口渴,治疗应选用
胃溃疡的并发症最常见的是()。
煤中( )可用物理方法去除。
尾矿工程的单位工程包括有()。
关于税款追征和补缴,下列表述正确的是( )。
Doyoufindgettingupinthemorningsodifficultthatit’spainful?Thismightbecalledlaziness,butDr.Kleitmanhasanewexp
社会主义承认社会价值,否认个人价值。()
提问是课堂教学中常用的教学策略,问题的认知水平与学生回答的认知水平之间存在正相关.请从下列问题归类到相应的认知水平栏目中(只需填写序号即可)。
设离散型二维随机变量(X,Y)的取值为(xi,yj)(i,j=1,2),且P{X=x2|=,P{y=y1|X=x2}=,p{X=x1|Y=y1}=,试求:(I)二维随机变量(X,Y)的联合概率分布;(II)条件概率P{Y=yj|X=x1},j=1,2.
Writingisnotexactlyateamsport.【C1】______awriteryouspendmostofyourtimechuggingawaybyyourlonesome,withonlyyo
最新回复
(
0
)