最简单的计算器就是仅仅计算加减乘除，既然是计算就是二个操作数之间的运算，首先在文本框中输入第一个操作数，在点击运算符时，将它保存在一个变量中，并且文本框清零，在输入第二个操作数，点击 “=”号时，将第二个操。

Dim focus%， op%， bfin Private Sub Command1_ClickIndex As IntegerIf bfin Then Call Form_Load If focus = 1 Then Text1 = Text1 Index Else Text2 = Text2 Index End If End Sub Private Sub。

定义collection，把要存储的数值add进去就行，如下 Dim col As New Collection Dim i as Integer Dim temp as Integer for i=1 to 10 colAdd i next 取得时候 For i = 1 To colCount temp=coliNext。

就是电脑上的那计算器谁能给写写代码用VB的我给400分！ 就是电脑上的那计算器 谁能给写写代码 用VB的 我给 400分！ 展开 #xE768 我来答 3个回答 #热议# 帮帮团大学生专场，可获百度实习机会。

我给你做个简单的 吧 只做 + * \ 创建工程后 2个textbox 文本框控件 4个command 按纽控件 1个lalbel 标签控件 代码实现如下dim a as integer ， b as integer， sum as integer a=text1text b=text2。

#39清除显示内容，保存运算符 Private Sub cmdClear_ClickcmdClearEntry_Click StoredValue = 0 Operator = opNone End Sub #39清除显示内容 Private Sub cmdClearEntry_ClicktxtDisplayText = quotquotEnd Sub #39 显示小数点。

shu2 As Single， suanfu As String\x0d\x0a#39定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符\x0d\x0a\x0d\x0aPrivate Sub Command1_ClickIndex As Integer\x0d\x0aText1Text = Text1。