VB题目做一个计算器。做简单的加减乘除操作。加号和减号键同时按下，计算器上显示自己的学号。

Question

使用模拟软件做一个计算器,要求能做简单的加减乘除操作. 加号和减号键同时按下,要在计算器上显示自己的学号。

Answer 1

我给你代码，加号和减号同时点击下可以显示学号，示例学号为6710

  求邮箱，我发给你

这是我以前做的计算器改了一下的（先要输入数字，后才点击+-，且不可恢复，须关闭程序才可恢复）

Dim xsd, FLAG As Boolean

Dim sf As Integer

Dim ds1, ds2, jg1 As Single

Private Sub Command1_Click(Index As Integer)

Me.Text1.Text = Me.Text1.Text & CStr(Index)

End Sub

Private Sub Command2_Click()

ds2 = CSng(Me.Text1.Text)

Me.Text1.Text = ""

Select Case sf

Case 1

jg1 = ds1 + ds2

Me.Text1.Text = CStr(jg1)

ds1 = jg1

ds2 = 0

Case 2

jg1 = ds1 - ds2

Me.Text1.Text = CStr(jg1)

ds1 = jg1

ds2 = 0

Case 3

jg1 = ds1 * ds2

Me.Text1.Text = CStr(jg1)

ds1 = jg1

ds2 = 0

Case 4

If ds2 = 0 Then Exit Sub

jg1 = ds1 / ds2

Me.Text1.Text = CStr(jg1)

ds1 = jg1

ds2 = 0

End Select

End Sub

Private Sub Command3_Click()

FLAG = True

Me.Command3.Enabled = False

ds1 = CSng(Me.Text1.Text)

Me.Text1.Text = ""

sf = 1

End Sub

Private Sub Command4_Click()

If FLAG = False Then

ds1 = CSng(Me.Text1.Text)

Me.Text1.Text = ""

sf = 2

Else

Me.Text1.Text = "6710"

Me.Command3.Enabled = False

End If

End Sub

Private Sub Command5_Click()

ds1 = CSng(Me.Text1.Text)

Me.Text1.Text = ""

sf = 3

End Sub

Private Sub Command6_Click()

ds1 = CSng(Me.Text1.Text)

Me.Text1.Text = ""

sf = 4

End Sub

Private Sub Command7_Click()

If xsd = False Then

Me.Text1.Text = Me.Text1.Text & "."

xsd = True

Else

Exit Sub

End If

End Sub

Private Sub Command8_Click()

ds1 = 0

ds2 = 0

jg1 = 0

xsd = False

sf = 0

Me.Text1.Text = ""

End Sub

Private Sub Form_Load()

For i = 0 To 9

Me.Command1(i).Caption = CStr(i)

Next i

End Sub

 图片：