新手学习，希望高手多来指点指点

怎么没人进；来帮帮忙 改进改进啊。
自己先顶一下

....有问题么

呵呵，光这样还不够呢，VB还可以开发出很多使用的软件呢！继续努力囖！

我想问问怎么把小数点加进去啊？
没弄成功...

我是个新手，刚开始学习VB 你有什么好的建议吗。教教我吧，少走点弯路.
呵呵。。

很不错，值得鼓励，建议把界面再紧揍一些，美化一下。

Private Sub Command1_Click()
Label1.Caption = "+"
Label2.Caption = "="
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = Str(a + b)
Text2.Visible = True

End Sub

Private Sub Command2_Click()
Label1.Caption = "-"
Label2.Caption = "="
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = Str(a - b)
Text2.Visible = True

End Sub

Private Sub Command3_Click()
Label1.Caption = "x"
Label2.Caption = "="
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = Str(a * b)
Text2.Visible = True

End Sub

Private Sub Command4_Click()
Label1.Caption = "÷"
Label2.Caption = "="
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = Str(a / b)
Text2.Visible = True
If b = 0 Then
x = MsgBox("除数不能为零", 64, "错误")
Else
Text3.Text = Str(a / b)

End If


End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text2.Visible = True
Label1.Caption = ""
Label2.Caption = ""
End Sub

Private Sub Command6_Click()
Label1.Caption = "的"
Label2.Caption = "次方是"
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = Str(a ^ b)
Text2.Visible = True

End Sub

Private Sub Command7_Click()
Text4.Text = Text3.Text
End Sub

Private Sub Command8_Click()
Label1.Caption = ""
Label2.Caption = "开方后是"
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = Str(Sqr(a))
Text2.Visible = False

End Sub
直接输入数字，可以带上小数点了，还请大家指点