VB 程序设计报告.doc

VB 程序设计报告 设计题目：科学型简单计算器 程序简介 窗体出现后为一个科学型简单计算器，可实现简单的加减乘除运算，具有清零及退出功能。 程序用到的主要控件 窗体（form），文本框（textbox）,命令按钮（command button） 程序用到的核心代码： 1.Select Case 语句 2.If… Then … ElseIf语句 程序的调试 在程序的调试过程中遇到的最大困难是： 1. 我所选择的程序是简单计算器到科学型计算器之间的转换中的简单计算器的程序设计，所以有些涉及到科学型计算器中的问题不是很了解，也时常会有一些提示框出现，但是能实现最基本的加减乘除计算。 2.由于自己知识水平有限，本程序中会有一些代码不甚了解。 附件 本程序所有的程序代码及注释如下： Dim i%, fh%, oput#（定义i ,fh为整形，定义oput为双精度浮点型） Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) (文本框的键盘事件过程，索引及键盘输入后的传输程序的ASCII码定义为整型) Select Case KeyAscii（分情况语句，执行时根据变量或表达式的不同值来决定执行不同的处理） Case 13: Command1_Click (16) Case 42: Command1_Click (13) Case 43: Command1_Click (11) Case 45: Command1_Click (12) Case 47: Command1_Click (14) Case 48: Command1_Click (0) Case 49: Command1_Click (1) Case 50: Command1_Click (2) Case 51: Command1_Click (3) Case 52: Command1_Click (4) Case 53: Command1_Click (5) Case 54: Command1_Click (6) Case 55: Command1_Click (7) Case 56: Command1_Click (8) Case 57: Command1_Click (9) End Select End Sub Private Sub Command1_Click(Index As Integer) Select Case Index 根据测试表达式的值，按顺序匹配各个Case 后面的表达式，成功则执行后面语句块，转到End Select 后语句继续执行；不匹配则继续执行后面语句块，再转到End Select 后语句继续执行。 Case 0 To 9 Text1.Text = Text1.Text Index Case 10 Text1.Text = Text1.Text . Case 11 To 14 oput = Text1.Text If Index = 11 Then fh = 1 Text2.Text = Text1.Text + ElseIf Index = 12 Then fh = 2 Text2.Text = Text1.Text - ElseIf Index = 13 Then fh = 3 Text2.Text = Text1.Text * ElseIf Index = 14 Then fh = 4 Text2.Text = Text1.Text / End If Text1.Text = Case 16 Text2.Text = Text2.Text Text1.Text = If fh = 1 Then Text1.Text = Text1.Text + oput ElseIf fh = 2 Then Text1.Text = oput - Te