...加号和减号键同时按下,计算器上显示自己的学号。
发布网友
发布时间：2024-10-24 06:54
共1个回答
热心网友
时间：2025-01-03 14:55
我给你代码，加号和减号同时点击下可以显示学号，示例学号为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
图片：
