QQ等级计算,好像是一个等差数列

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 很多年很多年前写的，纪念,哈哈