vb求m+mm+mmm+...+mm...mmm(n个m)
来源:百度知道 编辑:UC知道 时间:2024/06/15 01:01:10
要求 n ,m值 用 inputbox输入
Dim m%, n%, i%, j%, a(0 To 9999999) As Integer
Private Sub Form_Click()
m = InputBox("请输入m值 ")
n = InputBox("请输入n值 ")
For i = n To 0 Step -1
a(n) = a(n) + 10 ^ (i - 1)
Next i
Print SUM(m, n)
End Sub
Private Function SUM(m As Integer, n As Integer) As Long
If n = 1 Then
SUM = m
Else
SUM = m * a(n) + SUM(m, (n - 1))
End If
End Function
帮忙把这个改一改
Dim m%, n%, i%, j%, a(0 To 9999999) As Integer
Private Sub Form_Click()
m = InputBox("请输入m值 ")
n = InputBox("请输入n值 ")
For i = n To 0 Step -1
a(n) = a(n) + 10 ^ (i - 1)
Next i
Print SUM(m, n)
End Sub
Private Function SUM(m As Integer, n As Integer) As Long
If n = 1 Then
SUM = m
Else
SUM = m * a(n) + SUM(m, (n - 1))
End If
End Function
帮忙把这个改一改
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer, Str As String, S As Double
Str = ""
n = Val(InputBox("N"))
m = Val(InputBox("M"))
For i = 0 To n
S = S + Val(Str)
Str = Str & m
Next i
Print S
End Sub
sub main()
dim m as inteager = val(inputbox(""))
dim n as inteager = val(inputbox(""))
msgbox sum(m,n)
end sub
public founction SUM ( m as inteager ,n as inteager ) as inteager
dim sum as integer =0
for i as inteager =1 to n
sum =sum + mi(m,i)
next
return sum
end founction
private founction mi (m as inteage ,i as inteager) as inteager
dim mi as integer=1
for j as inteager =1 to i
mi=mi*m
next
return mi
end founction