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
vb求m+mm+mmm+...+mm...mmm(n個m)
vb求m+mm+mmm+...+mm...mmm(n個m)
要求 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
幫忙把這個改一改
要求 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
幫忙把這個改一改
其他人氣：297 ℃時間：2020-08-17 19:12:17
優(yōu)質(zhì)解答
我來回答
類似推薦
- 規(guī)定m*n=m+mm+mmm+...+mmm...m,那么6*6=?
- 若mm+m-1=0求mmm+2mm+2008的值
- 已知mm+m-1=0,那么代數(shù)式mmm+mm+mm+2003=-___________.
- 英語翻譯
- 將粉筆頭輕放在以2m/s運(yùn)動的傳送帶上,傳送帶留下一條長度為4米的劃線.請問,為什么劃線的長度等于傳送帶的位移減去物體的位移?請詳解,
- <<湯姆索亞歷險記>>以什么為線索,鞭撻了什么?
- 桂花雨主要內(nèi)容?30字以上
- 誰能幫我想個詞來形容這個人
- （找等量關(guān)系列方程）
- 等比數(shù)列{an}中，a1+a2=8，a3-a1=16，則a3等于（ ?。?A.20 B.18 C.10 D.8
- 根據(jù)句意及首字母提示完成字母
- on foot是什么詞(動詞還是.)
猜你喜歡
- 1自天然藥物提取液中識別生物堿是否存在的主要反應(yīng)及其試劑有哪些
- 2已知函數(shù)f ( x )等于(cos x)的四次方減去2sin xcos x減去(sin x)的四次方.1)求f ( x ) 的最小正周期;...
- 3在9 8 7 6 5 4 3 2 1=20添上加減乘除使等式成立
- 4用“攛掇”“絮叨”“怠慢”造句
- 5△ABC中,B>90° a=2x-5 b=x+1 c=4 求 x的取值范圍.
- 6Experience more than sufficiently teaches that men govern nothing with more difficult than their tongues.問govern sth wit
- 7氧化銅與稀硫酸反應(yīng)的化學(xué)方程式
- 8為什么高中化學(xué)先學(xué)的離子反應(yīng)再學(xué)氧化還原反應(yīng) 離子反應(yīng)里面有好多寫的時候要用到氧化還原的知識的啊
- 9已知：關(guān)于x的方程kx^2-（4k+1）x+3k+3=0
- 10語文作文：如何審題?如何理解話題?
- 11先生的讀音,生是讀一聲還是輕聲
- 12額定電壓220V、容量100L、電阻24.2Ω的電熱水器,它的電功率是多少?