计算器项目实训报告书.docVIP

项目实训报告书 课程名称　VB程序设计 　　　　 姓　　名　高海涛 　 班　　级　10（1）班 　　　　 学　　号 　　　　 指导教师　陈劲新 盐城师范学院信息科学与技术学院 2011.12 题目：复杂科学性数学计算器。 （【基本要求】 本计算器可实现普通的计算功能，如加、减、乘、除，还可以进行倒数、开方、乘方、三角函数计算、阶乘、对数、计算，还可以进行十进制和八进制、十进制和十六进制之间的换算，以及数字的保存和读取。 实训的目的和要求： 通过本项技术实训活动，了解完整的VB程序设计与工程实现的一般方法，整体掌握模块级的基本编程技术，综合实践课堂与实验课中所学到的单元技术方法。培养VB编程技术的工程应用能力。题目后面是每个题目的每限值人数。也可自己提出设计题目，要预先取得老师的同意。设计后期，应写出设计报告，包括：题目内容、算法说明、程序变量使用说明、解决方法、创新点及对设计所包含的知识点的认识等Private Sub Command1_Click() If txtlabel.Text = Then txtfirst.Text = txtfirst.Text + 7 Else txtsecond.Text = txtsecond.Text + 7 End If End Sub Private Sub Command10_Click() 每点击一下该按钮，就在文本框的尾部加字符“0”。 如果txtLabel为空，则说明现在正在输入的是第1个数字； 否则表示输入的是第2个数字； If txtlabel.Text = Then txtfirst.Text = txtfirst.Text + 0 Else txtsecond.Text = txtsecond.Text + 0 End If End Sub Private Sub Command11_Click() 如果txtLabel为空，则说明现在正在输入的是第1个数字； 否则表示当前正在输入的是第2个数字。 首先用Val函数将txtFirst.Text转换为数字，然后再乘以-1； If txtlabel.Text = Then txtfirst.Text = -1 * Val(txtfirst.Text) Else txtsecond.Text = -1 * Val(txtsecond.Text) End If End Sub Private Sub Command12_Click() txtlabel.Text = 加 End Sub Private Sub Command13_Click() txtlabel.Text = 减 End Sub Private Sub Command14_Click() txtlabel.Text = 乘 End Sub Private Sub Command15_Click() txtlabel.Text = 除 End Sub Private Sub Command16_Click() txtfirst.Text = txtsecond.Text = txtlabel.Text = txtOct.Text = txtHex.Text = End Sub Private Sub Command17_Click() txtlabel.Text = 倒数 End Sub Private Sub Command18_Click() txtlabel.Text = 乘方 End Sub Private Sub Command19_Click() txtlabel.Text = 开方 End Sub Private Sub Command2_Click() If txtlabel.Text = Then txtfirst.Text = txtfirst.Text + 8 Else txtsecond.Text = txtsecond.Text + 8 End If End Sub Private Sub Command20_Click() txtlabel.Text = 阶乘 End Sub Private Sub Command21_Click() txtlabel.Text = 对数 End Sub Private Sub Command22_Click() txtlabel.Text = Sin End Sub Private Sub Command23_Click() txtlabel.Text = Cos End Sub Private Sub Command24_Click() txtlabel.Text = tan End Sub Pri