VB程序 打印1~100所有数的平方,平方根,自然对数,e指数的数学用表在文本框中

2025-04-24 04:55:48
推荐回答(1个)
回答1:

Private Sub Command3_Click()
    Dim s As String
    s = ""
    For i = 1 To 100
        s = s & i & "^2=" & i ^ 2 & "     sqrt(" & i & ")=" & Sqr(i) & "    e^" & i & "=" & Exp(i) & vbCrLf
    Next i
    Text1.Text = s
End Sub