(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别显示在标签控件数组x中,如图3.167所示。在给出的窗体文件

admin2017-09-22  28

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别显示在标签控件数组x中,如图3.167所示。在给出的窗体文件中已经添加了全部控件,但程序不完整。
    要求:去掉程序中的注释符,把程序中的“?”改为正确的内容。
    注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

    (2)考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、List2的列表框控件,两个名称分别为Command1、Command2,标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等表项,如图3.168所示。
    程序的功能是:单击“>>”按钮,将List1中的表项添加到List2中,同时将List1清空;单击“<<”按钮,将List2中的表项添加到List1中,同时将List2清空。程序已给出,但是不完整。请将程序中的注释符去掉,把“?”改为正确的内容,实现上述功能。
    注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: n=Len(Text1.Text) b=Asc(Mid(s,i,1)) Select Case b For i=0 To 2 x(i)=a(i) 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,通过List1列表框的List属性添加四个项目:文本框、标签、命令按钮、单选按钮。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: For i=0 To La.ListCount - 1 Lb.AddItem La.List(i) Next La.Clear 步骤3:按要求将文件保存至考生文件夹中。

解析 (1)本题源程序在For循环体中(其中循环终值应为文本框的字符长度,即n=Len(Text1.Text)),用Mid函数逐一取出文本框中的每个字符,并用Asc函数返回其ASCII码。若取出字符的ASCII码在48~57之间,则记录数字个数的数组变量a(0)增1;若ASCII码在65~90之间,则记录大写字母个数的数组变量a(1)增1;若ASCII码在97~122之间,则记录小写字母个数的数组变量a(2)增1。
    (2)本题列表框中列表项的移动功能,是通过调用remove过程来实现的,在remove过程中通过For循环(循环变量终值为La.ListCount-1)将列表框La中的各项逐一添加到列表框Lb中,全部项目添加完成后,用列表框的Clear方法清除该列表框中的所有项目。
转载请注明原文地址:https://kaotiyun.com/show/AjGp777K
0

随机试题
最新回复(0)