2009年9月15日
Calc_VB
摘要： Option ExplicitDim a, b, c As Single, j As Integer, k As BooleanPrivate Sub cls_Click() xs.Text = "" dot.Enabled = True a = 0End SubPrivate Sub dot_Click() If k Then k = False: xs.Text = "0" xs.Text =... 阅读全文
posted @ 2009-09-15 10:01 soderman 阅读(230) 评论(0) 推荐(0)