2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签；三个初始文本为空，用于接收学号、姓名和平均分的文本框Text1、Text2和Text3；一个用

在考生文件夹下有一个工程文件sjt5．vbp，在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签；三个初始文本为空，用于接收学号、姓名和平均分的文本框Text1、Text2和Text3；一个用

admin2019-03-14  43
问题 在考生文件夹下有一个工程文件sjt5．vbp，在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签；三个初始文本为空，用于接收学号、姓名和平均分的文本框Text1、Text2和Text3；一个用于显示排序结果的图片框。还有两个标题分别是“添加”和“排序”的命令按钮，如图所示。
  程序功能如下：
  ①在Text1、Text2和Text3三个文本框中分别输入学号、姓名和平均分后，单击“添加”按钮，则将输入内容存入自定义的学生记录类型数组stud中。(注：最多只能输入10个学生信息，且学号不能为空)
    ②单击“排序”按钮，则将学生记录类型数组stud中存放的学生信息，按平均分从高到低排列的方式显示在图片框中，每个学生一行，且显示三项信息。
    请将“添加”、“排序”按钮Click事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 窗体的代码 Option Base 1 Dim n%, tag in% Dim stud(1 To 10) As StudType Private Sub Command1_Click() If n < 10 Then 　 　tag in = 0 　　　n = n + 1 Else 　　 tag in = 1 　　 MsgBox "输入的学生人数已超过数组声明的个数！" End If If tag in = 0 Then 　　 If Text1 = "" Then 　　　　 MsgBox "学号不能为空，请重输！" ’　 n =？ 　　 Else ’　 ? = Text1 　　　　 stud(n)．Name = Text2 　　　　 stud(n)．Average = Val(Text3) 　　　End If End If Text1 = ""： Text2 = ""： Text3 = "" End Sub Private Sub Command2_Click() Dim t As StudType Picture1.Cls For j = 1 To n - 1 ’　 For k = ? To n ’　 If stud(k)．Average > stud(j)．? Then 　　　　　　t = stud(k) ’　stud(k) = ? 　　　　　　stud(j)= t 　　　　 End If 　　　Next k Next j For j = 1 To n 　　　Picture1.Print stud(j)．Num; stud(j)．Name; stud(j)．Average Next j End Sub 模块的代码 Type StudType Num As String * 6　’ 学号 Name As String * 8　 ’ 姓名 Average As Single　’ 平均分 End Type 程序结束 参考答案 第1个？处填入：n - 1 第2个？处填入：stud(n)．Num 第3个？处填入：j 第4个？处填入：Average 第5个？处填入：stud(j) 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/c7m0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)