四则运算VB.doc

目 录 1、设计目的 2 2、设计的基本要求 2 3、界面设计 5 4、功能设计 9 5、心得体会 10 6、附录（程序代码） 14 一、设计目的 1.通过本次课程设计，提高实践动手能力； 2.通过本次课程设计，进一步理解计算机程序设计的思路与方法； 3.通过本次课程设计，进一步熟练运用VB.NET的语言元素和流程控制语句； 4.通过本次课程设计，达到能熟练使用各种常见的VB.NET控件，理解面向对象的思想； 5.通过本次课程设计，熟悉用户界面的设计； 6.通过本次课程设计，培养运用VB解决实际问题的工作能力。 小型测试系统的设计与实现要求能够随机生成道数学计算题有加，减，乘，除运算对用户结果进行判断，并能最终计算总成绩要求用户在规定的时间内做完试题，超时自动终止并给出成绩。 四、功能设计 1、打开Microsoft Visual Studio2010，由于Microsoft Visual Studio2010支持四种语言（VB、C++、C#、J#），也就是说，这四种语言使用相同的集成开发环境，故首先要进入VB.NET集成开发环境。并在编程时，对程序定义声明如下： Option Explicit 通用声明 Dim num1%, num2% 两个操作数 Dim result! 计算机计算结果 Dim nok%, nerror% 统计计算正确与错误的题数 Dim t As Integer 2、进行时间计时编程；时间计时开始编程如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click t = 60 * Val(TextBox1.Text) 将 Timer1.Enabled = True 时 TextBox1.Focus() 文本框1获得输入焦点 End Sub 3、随机数学计算题（加减乘除）以及在标签2中显示完整的计算等式的编程如下： Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim op$ Dim nop% nop操作符代码，操作符 Randomize() 初始化随机数生成器 num1 = Int(10 * Rnd() + 1) 产生1到10之间的操作数 num2 = Int(10 * Rnd() + 1) 产生1到10之间的操作数 nop = Int(4 * Rnd() + 1) 产生1到4之间的操作代码 Select Case nop 随机生成1到4里面的数 Case 1 op = + : result = num1 + num2 随机生成加法算式 Case 2 op = - : result = num1 - num2 随机生成减法算式 Case 3 op = × : result = num1 * num2 随机生成乘法算式 Case 4 op = ÷ : result = num1 / num2 随机生成除法算式 End Select strExp = num1 op num2 ＝ Label2.Text = strExp 在标签2中显示完整的计算等式 End Sub 4、对等式正确与否进行判断编程如下： Private Sub TextBoxt2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If Asc(e.KeyChar) = 13 Then 当输入计算结果并按回车键时，进行判断 If Val(TextBox2.Text) = result Then TextBox3.Text = strExp TextBox2.Text Space(5) √ vbCrLf 计算正确