说明: Dim n As Integer: Dim b As Integer: Dim c As Integer Private Sub cmdCal_Click() n = txtA.Text b = n * 5 + (n * (n - 1)) / 2 * 2 c = b * 2 Text2.Text = b Text3.Text = c Text1.Text = b / 365 End Sub Private Sub Command1_Click() End End Sub 很多年很多年前写的,纪 <cmpfish> 在 上传 | 大小:20480