问答题

[说明]
某高等院校的教学管理具有选课管理和成绩管理两大功能。选课管理主要完成以下工作:(1)录入与生成新学期课程表;(2)学生选课注册;(3)查询,学生、教师、教学管理员可以查询课程表,获得课程信息、学生选课信息和学生、教师信息;(4)选课注册信息的统计与报表生成。成绩管理主要的功能为: (1)成绩录入:教学管理员录入学生考试成绩;(2)成绩查询:教师、教学管理员可以查询学生考试成绩。。学生只允许查询自己的考试成绩,不允许查询他人的成绩;(3)成绩统计与报表生成:教学管理员进行成绩统计,打印统计报表。把学生选课注册信息传送给财务系统,以便计算学生应交纳的费用。
根据需要,系统设计的用例有“选课管理”、“成绩管理”、“查询课程信息”、“选课注册”、“管理开设课程”等用例。其中部分用例说明如下:
“查询课程信息”:学生、教师或教学管理员启动查询课程信息时,该用例开始运行。根据输入的查询要求(查询主题或关键字),显示有关的课程信息;
“选课注册”。当学生登录进行选课注册时,该用例开始运行,它提供了选择课程、注册、修改注册、删除注册等功能。学生登录需要用户标识(ID)和口令;
“管理开设课程”。 当教学管理员登录系统进行产生选课信息操作时, 该用例开始运行。 它首先检查用户标识(ID)和口令,然后从数据库中取出学生的选课注册数据,按照要求进行分类统计,生成选课注册报表。
活动者“学生”与用例“选课注册”的交互关系如下:当“学生”登录系统进入选课注册活动时,首先要输入用户标识(ID)和口令,经系统的“注册表单”接口对象验证,如果正确无误,则“学生”可以进行查询活动或选课活动,否则拒绝进入。若“学生”发出“查询”请求,系统的“选课注册表单”接口对象响应信息给“学生”,及发送增加或删除学生选课数据的消息。 “开设课程”对象响应该消息,找出数据库中的相关数据,增加或删除学生的姓名和所选的课程名,或做相应的修改,并把增加或删除学生课操作成功或失败的信息反馈给“选课注册表单”接口对象,“选课注册表单”接口对象再反馈给“学生”。如果“学生”按下“确认”键,则选课操作得到确认,发出提交请求。“选课注册表单”接口对象响应该请求,并发出“存储”消息。“开设课程”对象响应“存储”消息,进行数据库存储操作,选课数据存入数据库。若“学生”结束选课,发出“退出”系统请求,“注册表单”接口对象响应请求,关闭系统。
图10-7为系统的顶层UML用例图。图10-8为选课注册顺序图。




[问题2]
图10-8为选课注册顺序图,请根据系统设计说明及图中信息,采用说明中的术语将选课注册顺序图补充完整。

【参考答案】

(1)登录(2)查询(3)验证(4)选课
热门 试题

问答题
[说明] 在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如: “3.45”转化为“叁元四角五分”; “3.4”转化为“叁元四角”; “3.40”转化为“叁元四角零分”; “3.456”转化为“叁元四角五分”; “345.00”转化为“叁百四十五元零角零分”; “345”转化为“叁百四十五元”; 以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明,仔细阅读下面代码,将 (n) 代码补充完整。 [代码7-1] Begin VB.FormForm1 Caption = 小写金额转换为大写金额 ...窗体描述(略) Begin VB.CommandButton Command1 Caption = 退出 ...窗体描述(略) End Begin VB.TextBox Text2 ...窗体描述(略) End Begin VB.TextBox Text1 Enabled = 0 ’False …窗体描述(略) End Begin VB.Labe1 Labe12 Caption = 转换为大写金额 ...窗体描述(略) End Begin VB.Labe1 Labe11 Caphon = 请输入数字 ...窗体描述(略) End End [代码7-2] Private Function setdata (num As Integer) As String ’数字转换 Select CaSe num Case 0 setdata= 零 Case 1 Setdata= 壹 Case 2 Setdata= 贰 Case 3 Setdata= 叁 Case4 Setdata= 肆 Case 5 Setdata= 伍 Case 6 Setdata= 陆 Case 7 Setdata= 柒 Case 8 Setdata= 捌 Case 9 Setdata= 玖 End Select End Function Private Function chang (aaa As Integer) As String ’位数转换 Select CaSe aaa Case 1 chang= Case 2 chang= 十 Case 3 chang= 百 Case 4 chang= 千 Case 5 chang= 万 Case 6 chang= 十 Case 7 chang= 百 Case 8 chang= 千 Case 9 chang= 亿 Case 10 chang= 十 End Select End Function [代码7-3] Private Sub Text2_Change ( ) ’小写转大写 Dim i As Integer Dim j As Integer Dim myint As Integer Dim myint1 As Integer Dim mydoub As Double Dim mystr As String Dim mystr1 As String Dim mystr2 As String Dim mystr3 As String Dim mystr4 As String Dim money As Long Dim money1 As Integer Dim money2 As Long mystr=Text2.Text myint=InStr (mystr, . ) If myint=0 Then mystr=Text2.Text Else mystr3=Right(Text2.Text, Len (Text2.Text ) - myint) If mystr3<> Then ’转换小数位 mystr4=Left(mystr3, 1) mystr3=Right(mystr3, Len(mystr3 ) - 1) If mystr4<> 0 Then (1) End If If mystr3<> Then mystr4=Left(mystr3, 1) (2) End If End If mystr=Left(Text2.Text,myint - 1) End If j=Len(mystr) For i=1 To Len(mystr,i) money2=Left(mystr,i) money1=Right(money2,1) If money1=0 Then Ifj=5 Then (3) Else (4) End If Else (5) End If j=j-1 Next i Text1.Text=mystr1& 元 &mystr2 ’显示大写 End sub