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

admin2010-09-02  33

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

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

选项

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

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

随机试题
最新回复(0)