VB计算求解答，要详细过程，谢谢

1. VB计算求解答，要详细过程，谢谢

label1=11
label2=11

2. 用VB编写一个计算器程序的代码

1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：

设置效果如下图所示：


二、编写代码
Dim s1 As Single， s2 As Single， ysf As String
‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符
Private Sub Command1_Click（Index As Integer）
Text1.Text = Text1.Text & Command1（Index）.Caption ’将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click（）
Text1.Text = Text1.Text + “。”
If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能为小数
Text1.Text = “”
End If
If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出现两个小数点
Text1.Text = Left
（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub
Command3_Click（）
s2 = Val（Text1.Text） ‘开始加减乘除运算
Select Case ysf Case “+”
Text1.Text = s1 + s2
Case “-”
Text1.Text = s1 - s2
Case “*”
Text1.Text = s1 * s2
Case “/”
If s2 = 0 Then
MsgBox “分母不能为零！”
Text1.Text = “”
Else
Text1.Text = s1 / s2 End If End Select
Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘
这个很关键，如果没有这个的话，得出小于1的小数前面没有0
End Sub
Private Sub Command4_Click（）
If Text1.Text = “” Then ’文本为空就结束
Exit Sub
End If
Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text = “” ’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1 = Val（Text1.Text） ‘将s1隐藏起来 ysf = Command6（Index）.Caption
Text1.Text = “”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1） 《》 “-” Then ’判断作为负数
Text1.Text = “-” & Text1.Text
Else
Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text = Text1.Text * Text1.Text ‘平方
End Sub
拓展资料Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接

3. Vb6.0 刚开始学编程 这是一个计算器的代码 ，我点击计算时就出现这样的情况 谁知

错误百出。
1、首先出错提示是因为除数b为0。为什么b等于0呢，因为b并不是全局变量，只是局部变量（跟text2_change事件中定义的b没有任何关系，同理a,c等都是局部变量），并且你没有赋值，做算术运算时默认是0。
2、所有的a,b,c都是局部变量，你并没有定义成全局变量，所以在各sub中对a,b,c赋值毫无意义，出了sub后，变量已经被回收，并不能用于其他sub。
3、计算按钮的代码完全没有逻辑，你把加减乘除都计算一遍，最后不管怎么样，c的结果都是a/b。你应该根据运算符来分别计算结果。
4、完全没必要用text_change事件，在计算按钮中直接取文本的内容即可。
5、+、-、x、/按钮可以用控件数组来简化代码

4. 用VB编写一个计算器程序的代码

1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：

设置效果如下图所示：


二、编写代码
Dim s1 As Single， s2 As Single， ysf As String
‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符
Private Sub Command1_Click（Index As Integer）
Text1.Text = Text1.Text & Command1（Index）.Caption ’将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click（）
Text1.Text = Text1.Text + “。”
If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能为小数
Text1.Text = “”
End If
If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出现两个小数点
Text1.Text = Left
（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub
Command3_Click（）
s2 = Val（Text1.Text） ‘开始加减乘除运算
Select Case ysf Case “+”
Text1.Text = s1 + s2
Case “-”
Text1.Text = s1 - s2
Case “*”
Text1.Text = s1 * s2
Case “/”
If s2 = 0 Then
MsgBox “分母不能为零！”
Text1.Text = “”
Else
Text1.Text = s1 / s2 End If End Select
Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘
这个很关键，如果没有这个的话，得出小于1的小数前面没有0
End Sub
Private Sub Command4_Click（）
If Text1.Text = “” Then ’文本为空就结束
Exit Sub
End If
Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text = “” ’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1 = Val（Text1.Text） ‘将s1隐藏起来 ysf = Command6（Index）.Caption
Text1.Text = “”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1） 《》 “-” Then ’判断作为负数
Text1.Text = “-” & Text1.Text
Else
Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text = Text1.Text * Text1.Text ‘平方
End Sub
拓展资料Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接

5. 关于用vb做计算器的问题

最简单的计算器就是仅仅计算加减乘除，既然是计算就是二个操作数之间的运算，首先在文本框中输入第一个操作数，在点击运算符时，将它保存在一个变量中，并且文本框清零，在输入第二个操作数，点击 “=”号时，将第二个操作数保存在另外的一个变量中，然后根据点击的运算符进行计算，计算结果显示在文本框中就可以了。

非常简单
Dim CZS1 As Single, CZS2 As Single, Strr As StringPrivate Sub Command1_Click(Index As Integer)Dim InD As IntegerInD = IndexText1.Text = Text1.Text & InDEnd SubPrivate Sub Command2_Click(Index As Integer)Dim XXA As IntegerXXA = IndexStrr = Command2(XXA).CaptionCZS1 = Val(Text1.Text)Text1.Text = ""End SubPrivate Sub Command3_Click()CZS2 = Val(Text1.Text)Text1.Text = ""Select Case Strr Case "+"    Text1.Text = CZS1 + CZS2 Case "-"    Text1.Text = CZS1 - CZS2 Case "*"    Text1.Text = CZS1 * CZS2 Case "/"    If CZS2 = 0 Then    MsgBox "除数不能为0，请重新输入除数！"    Text1.Text = ""    Else    Text1.Text = CZS1 / CZS2    End IfEnd SelectEnd SubPrivate Sub Command4_Click()Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End SubPrivate Sub Command5_Click()Text1.Text = ""End SubPrivate Sub CommandXSD_Click()Text1.Text = Text1.Text & "."End SubPrivate Sub Form_Load()Text1.Text = ""End Sub

6. VB程序计算

Int函数：
Int(x)得到不大于x的最大整数
如果x＞＝0，则直接把x的小数去掉即可，如果x<0，则把x的小数部分去掉去还得减1
本题Int(-7.6)因-7.6＜0，则把0.6去掉变成－7后，还得减1，变成－8
－8/2的结果为－4
结果为：－4

7. 用VB2010编写一个简单计算器

方法/步骤


打开VB新建一个EXE。

如图画上4个按钮控件表示加减乘除，再画上3个文本控件表示两个数与和数，再画一个标签控件加入“=”号。当然，界面可以自己发挥。

画好之后，就可以把控件进行命名，注意是属性栏的Caption项命名，以便运行的时候方便识别。

好的，现在可以进行最重要的代码编写啦。双击对应的按钮控件，进入代码编写界面。Text3.Text = Val(Text1.Text) + Val(Text2.Text)，其实代码很简单，就这一句只要更换把‘+’分别换成‘-’‘*’‘/’即可。

好了，现在可以点击运行或者F5键运行，即可得到第一个简单的计算器程序。

8. VB程序计算器设计

1、数组可以先定义一个较大维数，之后有redim改维数即可
也可每次添加维数时使用
ReDim
Preserve
也可根据lable1的字符长度定义维数
2、lable1的数据按字符读入，在将每个字符逐一存入数组s
例lable1显示
3*(2+1+(5*3))/4
3、判断()的优先运算，并寻找括号之间的对应关系
4、先判断(5*3)这对括号，计算5*3=15
5*3放在数组a【3】中
，判断a【2】符号，进行相应计算
5、数组存放改为
3*(2+1+15)/4
6、判断出(2+1+15)这对括号，计算2+1+15=18
7、数组存放改为3*18/4
，计算
8、计算结果显示
计算完成