VB课程设计于心得.docx

VB课程设计于心得

第一篇：VB课程设计于心得VisualBasic---课程设计与心得班级：计科107姓名：张麟树学号：1004681324一、实验课题：设计一个能计算2阶、3阶、4阶行列式的小软件，运行时先由用户输入行列式的阶数，然后软件自动生成行列式的输入模板，如用户输入的阶数是3，则产生9个输入框并排成3行3列且用两条竖线界定。这里需用控件的动太加载技术。二、实验代码：DimNAsIntegerPublicFunctionchoose(ByValXAsInteger)DoIfX=2ThenWithForm1.Line1.Visible=True.Line2.Visible=True.Line3.Visible=False.Line4.Visible=False.Line5.Visible=False.Line6.Visible=FalseEndWithForI=0To3Form1.Text1(I).Visible=TrueNextIExitDoElseIfX=3ThenWithForm1.Line1.Visible=False.Line2.Visible=False.Line5.Visible=False.Line6.Visible=False.Line3.Visible=True.Line4.Visible=TrueEndWithForI=0To8Form1.Text1(I).Visible=TrueNextIExitDoElseIfX=4ThenWithForm1.Line3.Visible=False.Line4.Visible=False.Line1.Visible=False.Line2.Visible=False.Line5.Visible=True.Line6.Visible=TrueEndWithForI=0To15Form1.Text1(I).Visible=TrueNextIExitDoElseCallCommand1_ClickEndIfLoopEndFunctionPublicFunctionHuanyuan()DimIAsIntegerForI=0To15Form1.Text1(I).Visible=FalseNextIWithForm1.Line1.Visible=False.Line2.Visible=False.Line3.Visible=False.Line4.Visible=False.Line5.Visible=False.Line6.Visible=FalseEndWithEndFunctionPrivateSubCommand1_Click()DimIAsIntegerCallHuanyuanN=InputBox(“请输入阶数（2、3或4）：”)ForI=0To15Form1.Text1(I).Text=“"NextICallchoose(N)EndSubPrivateSubCommand2_Click()DimvalAsIntegerIfN=2Thenval=Form1.Text1(0)*Form1.Text1(3)Form1.Text1(0)*Form1.Text1(5)*Form1.Text1(7)Form1.Text1(3)*Form1.Text1(4)*Form1.Text1(6)Elseval=Form1.Text1(0)*Form1.Text1(3)*Form1.Text1(8)*Form1.Text1(15)+Form1.Text1(2)*Form1.Text1(7)*Form1.Text1(14)*Form1.Text1(9)+Form1.Text1(1)*Form1.Text1(5)*Form1.Text1(11)*Form1.Text1(12)+Form1.Text1(4)*Form1.Text1(10)*Form1.Text1(6)*Form1.Text1(13)-Form1.Text1(0)*Form1.Text1(10)*Form1.Text1(8)*Form1.Text1(13)+Form1.Text1(1)*Form1.Text1(2)*Form1.Text1(11)*Form1.Text1(14)+Form1.Text1(3)*Form1.Text1(4)*Form1.Text1(6)*Form1.Text1(15)+Form1.Text1(5)*Form1.Text1(7)*Form1.Text1(9)*Form1.Text1(12)EndIfMsgBox(”结果为："&val)EndSubPrivateSubCommand3_Click()EndEndSub三、实验结果:选择菜单：二阶行列式：三阶行列式：四阶行列式：四、心得与体会：作为一