如果只算到22222那么就这么简单Private Sub Command1_Click()Print 2+22+222+2222+2222End Sub 如果像自定义算到多少个2那么就用这个Private Sub Command1_Click()Dim s As Double, n As Integer, sum As Doublen = InputBox("你想算到多少位?")s = 2: sum = sFor n = 1 To ns = 2 * 10 ^ n + ssum = sum + sNextPrint “2+22+222+2222+....=" & sumEnd Sub...