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

admin2019-03-14  46

问题 在考生文件夹下有一个工程文件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
0

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