两天打鱼三天晒网

摘要： Option ExplicitDim s1$, s2$Private Sub Command1_Click() Dim i As Double, j As Double Dim dblCurrentMoney As Double Dim dblTotalMoney As Double Dim dblGetMoney As Double Dim intCount As Integer Do dblCurrentMoney = dblCurrentMoney + 0.2 dblTotalMoney = dblTotalMoney + dblCurrentMoney If dblCurrentMon 阅读全文