计算器的VB程序设计
要求：
1）设计一个可以进行四则运算的简单计算器。该计算器可以进行加、减、乘、除、求模（取余）等简单的四则运算，并具有符合计算器日常使用习惯的容错纠错功能。具体步骤如下：
①在界面上建立按钮控件数组：首先在窗体中置入一个命令按钮控件后，将其激活并点击右键通过“复制”、“粘贴”的方法依次产生19个一样的命令按钮控件，其中在创建第一个“粘贴”控件时VB会询问“是否要创建控件数组？”回答“是”即可开始依次创建该控件数组。
②按钮属性的设置：将各按钮的caption属性分别设置为0，1，2……9，＋、－、×，/，Mod，＝，cls,Exit，注意在设置这些属性时其值与按钮控件的Index属性的对应性。
③其它控件的属性设置：文本框作为显示操作数和结果的控件，应遵循一般计算器的显示习惯，将其Alignment即对齐属性设置为“Right”，此外，将各控件相关的字体、字号等设置为统一风格。
④在程序的通用区定义四个窗体层变量：
num1、num2、sum、act、前三个为双精度、act为整型变量。
⑤编写进行四则运算所需的程序作为命令按钮的单击事件过程。
实验三参考代码一：
•Dim num1 As Double, num2 As Double
•Dim sum As Double
•Dim act As Integer
•Private Sub Form_Load()
•num1 = 0
•num2 = 0
•sum = 0
•End Sub
•Private Sub Command1_Click(Index As Integer)
•Select Case Index
•Case 0
•  If Text1.Text = "" Then
•    Text1.Text = "0"
•    Text1.Text = Text1.Text + "0"
•  End If
•Case 1
•  If Text1.Text = "" Then
•    Text1.Text = "1"
•  Else
•    Text1.Text = Text1.Text + "1"  End If
python和vb的代码可以通用吗
•Case 2
•  If Text1.Text = "" Then
•    Text1.Text = "2"
•  Else
•    Text1.Text = Text1.Text + "2"
•  End If
•Case 3
•  If Text1.Text = "" Then
•    Text1.Text = "3"
•  Else
•    Text1.Text = Text1.Text + "3"
•  End If
•  If Text1.Text = "" Then
•    Text1.Text = "4"
•  Else
•    Text1.Text = Text1.Text + "4"•  End If
•Case 5
•  If Text1.Text = "" Then
•    Text1.Text = "5"
•  Else
•    Text1.Text = Text1.Text + "5"•End If
•Case 6
•  If Text1.Text = "" Then
•    Text1.Text = "6"
•  Else
•    Text1.Text = Text1.Text + "6"•  End If
•Case 7
•  If Text1.Text = "" Then
•    Text1.Text = "7"
•  Else
•    Text1.Text = Text1.Text + "7"
•  End If
•Case 8
•  If Text1.Text = "" Then
•    Text1.Text = "8"
•  Else
•    Text1.Text = Text1.Text + "8"
•  End If
•Case 9
•  If Text1.Text = "" Then
•    Text1.Text = "9"
•  Else
•    Text1.Text = Text1.Text + "9"
•  End If
•Case 10
•  If Text1.Text = "" Then
•    Text1.Text = "."
•  Else
•    Text1.Text = Text1.Text + "."
•  End If
•Case 11
•  num1 = CDbl(Text1.Text)    ‘强制转换双精度型

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。