(1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮:2个名称分别为Text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效

admin2018-07-11  25

问题 (1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮:2个名称分别为Text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效果如图3.16所示。程序功能如下:
    1)单击“产生范文”命令按钮,则在Text1文本框中随机产生由20个字母组成的范文。
    2)用户可以在Text2文本框中依照范文输入相应字母,当输入字母达到20个之后,禁止向Text2输入内容,且在Text3文本框中显示输入的正确率。
    3)单击“结束”命令按钮,则结束程序运行。
    请将“产生范文”命令按钮的Click事件过程,以及Text2文本框的KeyPress事件过程中的注释符去掉,把“?”改为正确内容,以实现上述程序功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序。最后,程序按原文件名存盘。

    (2)考生文件夹下的工程文件sjt4.vbp中已经定义了一个学生记录类型数据StudType。有3个标题分别为“准考证号”“姓名”和“总分"的标签;3个初始内容为空,用于接收准考证号、姓名和总分的文本框Text1、Text2和Text3;1个用于显示提示信恳的标签Label4。请再画1个含有3个命令按钮的控件数组,其名称为Cmdl,标题分别是“添加”“最高”和“结束”。效果如图3.17所示。

    程序功能如下:
    1)单击“添加”按钮,则将Text1、Text2和Text3文本框中输入的准考证号、姓名和总分等学生信息存入自定义的学生记录类型数组stu中,同时在Label4中显示已输入的学生人数。最多只能输入50个学生信息。
    2)单击“最高”按钮,则在3个文本框中显示“总分”最高的学生记录,同时在Label4中显示该记录的位置。
    请将命令按钮控件数组Cmd1的Click事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。

选项

答案(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在窗体上加入一个标签和文本框,按照表4.10设置相关属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Text1=Text1+s Text2.Locked=True If Mid(Text2,i,1)=Mid(Text1,i,1) Then m=m+1 n=n+1 步骤3:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在窗体上加入一个命令按钮数组,按照表4一11设置相关属性。 [*] 步骤2:在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Select Case Index n=n+1 Max=stu(1).Total If stu(j).Total>Max Then maxi=j 步骤2:按要求将文件保存至考生文件夹中。

解析 (1)题目要求比较两个文本框内容的相似程度,比较方法是通过循环分别从两个文本框逐个取字母,然后逐个比较,如果相同则正确计数变量m的加1,否则错误计数变量n加1。循环结束后,便可根据m和n的值计算正确率。
    (2)题目要求首先在窗体上添加一个命令按钮数组,具体方法是在窗体上添加第一个命令按钮之后,选择该命令按钮,然后使用“复制”和“粘贴”命令或快捷方式,创建第二个命令按钮,系统会提示是否创建控件数组,选择“是”便完成控件数组的建立,重复一次“粘贴”即可创建第三个命令按钮。
    分析程序可知,在Cmdl的Click事件处理过程中,首先需要先判断当前点击的是哪一个命令按钮,这可以通过控件数组的index来来区分。题目要求最多只能输入50组数据,在第二个“?”处,If判断如果n没有超过50则n应该加1,保存当前有多少组数据;在case 1里面是查找最高的那组数据,使用For循环来查找,循环的起始条件是{=2,即搜索是从第二组数据开始的,变量Max记录最高分,而变量maxi记录最高分出现的位置,因此第三个“?”处给Max变量初始化,即赋值第一组数据的分值;如果当前的分数高于Max值,则更新Max和maxi的值。
转载请注明原文地址:https://jikaoti.com/ti/UMy0FFFM
0

最新回复(0)