Visual Basic
---课程设计与心得
班级：计科107
姓名：张麟树
学号：1004681324
一、实验课题：设计一个能计算2阶、3阶、4阶行列式的小软件，运行时先由用户输入行列式的阶数，然后软件自动生成行列式的输入模板，如用户输入的阶数是3，则产生9个输入框并排成3行3列且用两条竖线界定。
这里需用控件的动太加载技术。
二、实验代码：
Dim N As Integer
Public Function choose(ByV al X As Integer)
Do
If X = 2 Then
With Form1
.Line1.Visible = True
.Line2.Visible = True
.Line3.Visible = False
.Line4.Visible = False
.Line5.Visible = False
.Line6.Visible = False
End With
For I = 0 To 3
Form1.Text1(I).Visible = True
Next I
Exit Do
ElseIf X = 3 Then
With Form1
.Line1.Visible = False
.Line2.Visible = False
.Line5.Visible = False
.Line6.Visible = False
.Line3.Visible = True
.Line4.Visible = True
End With
For I = 0 To 8
Form1.Text1(I).Visible = True Next I
Exit Do
ElseIf X = 4 Then
With Form1
.Line3.Visible = False
.Line4.Visible = False
.Line1.Visible = False
.Line2.Visible = False
.Line5.Visible = True
.Line6.Visible = True
End With
For I = 0 To 15
Form1.Text1(I).Visible = True Next I
Exit Do
Else
Call Command1_Click
End If
Loop
End Function
Public Function Huanyuan() Dim I As Integer
For I = 0 To 15
Form1.Text1(I).Visible = False Next I
With Form1
.Line1.Visible = False
.Line2.Visible = False
.Line3.Visible = False
.Line4.Visible = False
.Line5.Visible = False
.Line6.Visible = False
End With
End Function
Private Sub Command1_Click()
Dim I As Integer
Call Huanyuan
N = InputBox("请输入阶数（2、3或4）：")
For I = 0 To 15
Form1.Text1(I).Text = ""
Next I
Call choose(N)
End Sub
Private Sub Command2_Click()
Dim val As Integer
If N = 2 Then
val = Form1.Text1(0) * Form1.Text1(3) - Form1.Text1(2) * Form1.Text1(1)
ElseIf N = 3 Then
val = Form1.Text1(0) * Form1.Text1(3) * Form1.Text1(8) + Form1.Text1(1) * Form1.Text1(5) * Form1.Text1(6) + Form1.Text1(4) * Form1.Text1(2) * Form1.Text1(7) - Form1.Text1(0) * Form1.Text1(5) * Form1.Text1(7) - Form1.Text1(1) * Form1.Text1(2) * Form1.Text1(8) -
Form1.Text1(3) * Form1.Text1(4) * Form1.Text1(6)
Else
val = 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)
End If
MsgBox ("结果为：" & val)
End Sub
Private Sub Command3_Click()
End
End Sub
三、实验结果:
选择菜单：
二阶行列式：
三阶行列式：
四阶行列式：
四、心得与体会：
作为一名计算机专业的学生，在接触了C语言、数据结构与C++课程后，对计算机语言有了一定的兴趣，于是在这个学期我毫不犹豫的选择了VB课程（算法与程序设计）。
VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想的形成,以及之前学习积累的经验，很快就对VB有了一定的了解。
下面就是我这段时间学习的新的与体会。
我认为作为学习程序设计最重要的一点是要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在程序入门阶段还是应该重视概念的学习.我们学习VB并没有从正常的途径，而是通过老师的演示与讲解，了解并学习了这门课程，可以说VB语言相对来说比其他语言简单，从他的语法就可以看出其次，自己动手编写程序。
程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.只有不断的从自己的程序中积累经验，从中进步，才能写出好的程序。
程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.动手能力的培养是这门课和以往课
程最大的不同之处.重点放在思路,算法,编程构思和程序实现上.语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用. 编程序不像做其它的事情，写程序之前一定要计划周详，把所有的可能性都想到，并想好相应的解决方法，不然思想会很混乱，很容易出现错误。
还有就是编程序最重要的其实是思想，思想确定之后用什么语言或什么方法就简单了，接下来就是设计并写成代码的事情了
好的程序员就是这样一步一步炼成的。
在者，阅读,借签别人设计的好程序。
多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能则可以学到别人优秀的东西,帮助自己提高自身水平.
通过这次学习，我越来越喜欢上计算机语言，感谢方老师，我相信在计算机语言上回走的更远。