Question

一个VB改错题，请高手来帮忙解决

程序改错题（要求，改错题，改正的部分以红色显示） 程序功能：sum=d+dd+ddd+……+ddd..d(d为1-9的数字)。例如：3+33+333+3333（此时d=3,n=4）。从键盘上输入d 的值为8，n的值为9，求sum的值。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Form_Click() Dim d As Integer, n As Integer, i As Integer Dim sum As Long sum = 0 d = Val(InputBox("请输入数值d:")) n = Val(InputBox("请输入数值n:")) For i = 1 To n tn = tn + d ：sum = sun + tn Next i Print sum End Sub

Answer 1

Private Sub Form_Click()
Dim d As Integer, n As Integer, i As Integer
Dim sum As Long, tn As Long
sum = 0
d = Val(InputBox("请输入数值d:"))
n = Val(InputBox("请输入数值n:"))
For i = 1 To n
tn = tn * 10 + d: sum = sum + Val(tn)
Next i
Print sum
End Sub

Answer 2

Private Sub Form_Click() Dim d As long, n As Integer, i As Integer Dim sum As Long sum = 0 d = Val(InputBox("请输入数值d:")) n = Val(InputBox("请输入数值n:")) For i = 1 To n tn = tn*10+ d ：sum = sum + tn Next i Print sum End Sub'错误1 dim d as long' tn = tn *10+d ：sum = sum + tn '忘了后面这行了

Answer 3

Private Sub Form_Click() Dim d As Integer, n As Integer, i As Integer Dim sum As Long ,tn as long//加出来tnsum = 0 tn=0 //加出来d = Val(InputBox("请输入数值d:")) n = Val(InputBox("请输入数值n:")) For i = 1 To n tn = tn*10 + d ：sum = sum + tn //修改Next i Print sum End Sub

Answer 4

tn = tn + d ：sum = sun + tn tn和sun都没有定义吧？？你确定你写的是原题吗？

Answer 5

tn = tn + d 改为 tn = tn * 10 + dsum = sun + tn 改为 sum = sum + tn