Question

使用VB编写一个简单的计算器

界面如下
第一步：输入89
第二步：输入-
第三步：输入43
第四步：输入=，显示结果
希望可以详细说一下那个界面按钮的设计

Answer 1

直接去找源码

追问

源码 看了有不懂的

追答

找人帮你注释啦、

追问

找得到就不用来问啦

Answer 2

var
i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
write(' ');
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
for i:=n-1 downto 1 do
begin
for j:=1 to n-i do
write(' ');
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
readln;
end.

Answer 3

从图看，是简单的四则运算。所以，点击按钮相当于按顺序输入数字和运算符号，也接受键盘输入。
文本框中的字符，要通过解析，调用函数进行计算。
vb2012版本的可以吗？
张志晨

追问

可以

追答

Public Class Form1
'只支持一步运算
Dim op As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click, Button11.Click, Button12.Click, Button13.Click
TextBox1.Text += sender.text '构造算式并显示
If sender.text = "+" Then '记录是什么运算
op = "+"
ElseIf sender.text = "-" Then
op = "-"
ElseIf sender.text = "×" Then
op = "×"
End If
End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Dim a As Array
a = Split(TextBox1.Text, op)
If op = "+" Then '什么运算
TextBox1.Text = Val(a(0)) + Val(a(1))
ElseIf op = "-" Then
TextBox1.Text = Val(a(0)) - Val(a(1))
ElseIf op = "×" Then
TextBox1.Text = Val(a(0)) * Val(a(1))
End If

End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
TextBox1.Text = ""
End Sub
End Class