帮我看一下

Question

Dim s&, an&, ah&, i&
an = strname              问题出在这里，an居然是个字符串，不是整型。
s = 0
ah = 0
For i = 1 To an           ’an这里作为循环次数
an = 10 * ah + 2          ‘但是an在这里又被重新赋值，   
s = s + ah                 ‘ah一直就是个0
Next i                      
Print s因此结果就是0＋0＝0

Answer 1

Private Sub Form_Load()
Dim strname As String * 30, strs1 As String * 30
strs1 = "请输入一个整数" + Chr(13) + Chr(10) + "然后单击确定"
strname = InputBox(strs1, "整数输入框")
Dim s&, an&, ah&, i&
an = Int(strname)
s = 0
ah = 0
For i = 1 To an
ah = 10 * ah + 2
s = s + ah
Next i
MsgBox s
End Sub应该是这样