求助VB高手，答好另加分

来源：百度知道编辑：UC知道时间：2024/05/05 22:59:07

1.编程计算1+X+X2+…+Xn的子过程和函数过程，并分别调用。要求：其中x和n的值由用户给定.

Private Sub Form_Load()
Dim x As Integer, n As Integer
x = InputBox("请输入x的值：", "x值输入框")
n = InputBox("请输入n的值：", "n值输入框")

End Sub
2.编写函数s(m as integer,n as integer) as long,此函数返回m+mm+mmm+…+mm…m(n个m)的值。比如s(2,5)的返回值2+22+222+2222+22222的值
Function s(m As Integer, n As Integer) As Long
Dim i As Integer, a As Integer, sum As Single
sum = 0
a = 0
For i = 0 To n - 1

Next i
s = sum
End Function
Private Sub Form_Load()
Dim m As Integer, n As Integer
m = InputBox("请输入m的值")
n = InputBox("请输入n的值")

End Sub
3.编写递归函数求1+2+3+…+n的值，并显示结果

Private Sub Form_Load()
Dim n As Integer
n = InputBox("请输入n的值")
Form1.FontSize = 14
Form1.FontBold = True
Print "1+2+3+…+"; n; "=";

End Sub
以上是每题的部分代码.
后天就

第二题的
Sub s(m As Long, n As Long)
Dim i As Long, a As Long, sum As Long
sum = 0
a = 0
For i = 1 To n
a = a * 10 + m
sum = sum + a
If i <> n Then
Print a; "+";
Else
Print a; "="; sum;
End If
Next i
End Sub
Private Sub Form_click()
Dim x As Long, y As Long
x = InputBox("请输入x的值")
y = InputBox("请输入y的值")
s x, y
End Sub
第一题的
Private Sub Form_click()
Dim x As Integer, n As Integer
x = InputBox("请输入x的值：", "x值输入框")
n = InputBox("请输入n的值：", "n值输入框")
Call oo(x, n)
End Sub
Private Sub oo(y As Integer, m As Integer)
Dim i%, sum%
For i = 0 To m
sum = sum + y ^ i
If i = 0 Then
Label1.Caption = Label1.Caption & "1" & "+"
ElseIf i <> m Then
Label1.Caption = Label1.Caption & y & "^" & i & "+"
Els

求助VB高手，答好另加分求助翻译~~翻译好另加分,急数学高手进，答好的另加100分求VB高手解决程序问题，解决后再另加分中译英！！！！！！！！好的另加分............... 中译英！！！！！！！！好的另加分跪求几首歌,好的话另加分!!! 回答问题20分答得好另加高手急救!!(可以另加20分) c++高手进来，另加100分