《了解MIS的常用功能》实验报告.doc

《了解MIS的常用功 专业 工程管理 班级 工程管理1006 学号 P2203100302 姓名 成绩 实验名称 练习C1 利息计算 练习C2 最优加工顺序 练习C4 生成最小生成树； 练习C5 列车时刻表； 练习C7 鱼口模拟； 练习C6统计价格小于1000的产品数据。 练习1.1利润计划编制 实验项目 《了解MIS的常用功能MIS的常用功能；掌握各种MIS的操作方法。 C6统计价格小于1000的产品数据。 练习B1数据挖掘演示系统； 练习C1 利息计算； 练习C2 最优加工顺序； 练习C4 生成最小生成树； 练习C5 列车时刻表； 练习C7 鱼口模拟； 练习1.2 账务处理系统； 练习C3 最小费用路径； （10）练习1.1利润计划编制 三、实验结果 练习C1 利息计算 本实验的目的是已经本金和利率求利息，公式为利息=本金*（1+利率）^年数 需要确定的数是本金，利率和年份 打开VB软件，创建一个利息计算的窗口，在其中拉入7个Label标签框，1个Frame框架,3个TextBox文本框，2个CommandButton命令按钮，调节界面，如下图所示 据题目要求，输入代码，进行程序设计 运行程序，输入本金10000，利率3%，年数为3，检验是否正确，结果如图 练习C2 最优加工顺序 本实验的目的是某车间有n个待加工零件，只有一台车床和一台铣床可供使用。这些零件都需要先车后铣，为了以最短时间完成加工任务，根据它们在各机床上加工所需工时, 试利用计算机排出最优加工顺序表。 打开VB软件，创建2个最优加工顺序的窗口和一个模块，定义所需加工的数量，窗体1拉入5个Label标签框和2个TextBox文本框，窗体2中拉入1个Label标签框和2个CommandButton命令按钮，按如下格式摆放 根据题目要求输入代码进行程序设计，分别对模块和2个窗体进行设计 Option Explicit Dim NN As Integer Private Sub Command1_Click() Dim i As Integer For i = 1 To NN If Text1(i).Text = Or Text2(i) = Or IsZs1(Text1(i)) = False Or IsZs1(Text2(i)) = False Then MsgBox 信息不全或非正数 Exit Sub End If Next i Dim PX() As Integer ReDim PX(NN + 1) Dim KT As Integer Dim JW As Integer For i = 0 To NN PX(i) = 0 Next i KT = 1 JW = NN Dim MIN As Long Dim MIN_index As Integer gong jian hao MIN = 1000000 MIN_index = 1 Dim MIN_sx As Integer na yi hang MIN_sx = 1 While KT JW MIN = 1000000 For i = 1 To NN If isPaichu(i, PX) = False Then If CInt(Text1(i).Text) MIN Then MIN = CInt(Text1(i).Text) MIN_index = i MIN_sx = 1 End If If CInt(Text2(i).Text) MIN Then MIN = CInt(Text2(i).Text) MIN_index = i MIN_sx = 2 End If End If Next i If MIN_sx = 1 Then PX(KT) = MIN_index KT = KT + 1 End If If MIN_sx = 2 Then PX(JW) = MIN_index JW = JW - 1 End If Wend For i = 1 To NN If isPaichu(i, P