说明: VB计算器程序源码 Dim a(100) As Double Dim n& Dim Plus As Boolean Dim yunsuan(100) As Integer Dim a100 As Double Dim num As Single Private Sub Command1_Click() If Plus = True Then Plus = False Text1.Text = "1" Else Text1.Text = Text1.Text & "1" End If End S
<saishing> 上传 | 大小:6kb