之前的v1.0版本功能还不够完善,这个版本一并做了修改. 代码,每个sub表示哪个按钮做了注释. Dim a, temp, ans As Integer Dim op As String Sub showans() Text1.Text = a End Sub Sub clearans() Text1.Text = " " End Sub Private Sub Command1_Click() '按钮1 If a >= 0 Then a = a * 10 + 1 Else a…
使用visual basic编写. 绘制如下的按钮界面: 然后代码如下: Dim a, temp, ans As Integer Dim op As String Sub showans() Text1.Text = a End Sub Sub clearans() Text1.Text = " " End Sub Private Sub Command1_Click() '按钮1 a = a * 10 + 1 Call showans End Sub Private Sub Comm…