【VB】簡易計算器

學校教了VB語言，作爲一個AFO的OIer，我隨便寫了一個計算器
附工程連接

Private Sub Command1_Click()
    Dim ans As Long
    Dim x As Long
    Dim d As Long
    x = Val(shouxiang.Text): d = Val(gongcha.Text)
    For i = 1 To Val(xiangshu.Text)
        ans = ans + x
        x = x + d
    Next i
    shuchu.Text = Str(ans)
End Sub


Private Sub Command2_Click()
    Dim ans, x, q As Long
    x = Val(shouxiang1.Text): q = Val(gongbi.Text)
    For i = 1 To Val(xiangshu1.Text)
        ans = ans + x
        x = x * q
    Next i
    shuchu1.Text = Str(ans)
End Sub


Private Sub Command3_Click()
    Dim b As Boolean
    Dim x As Long
    x = Val(shuru.Text): b = True
    If x <= 1 Then
        shuchu2.Text = Str(x) + "不是質數"
    Else
        For i = 2 To x - 1
            If x Mod i = 0 Then
                b = False
                Exit For
            End If
        Next i
        If b Then shuchu2.Text = Str(x) + "是質數" Else shuchu2.Text = Str(x) + "不是質數"
    End If
End Sub