重生之占有欲微盘:帮忙解决一下一个VB程序题呀~~急用

来源:百度文库 编辑:高考问答 时间:2024/04/29 14:16:42
Option Explicit

Public Sub total()
'该过程是计算s=7+77+777+……+(n个7组成的数),并输出。
Const n = 20
Dim s As Single
Dim i As Integer
For i = 1 To n
s = s + ------1-------
Next i
Form1.Print "s="; s
End Sub

Public Function number( -----2------ ) As Single
'该函数是求出n个7所组成的数。
Dim k As Integer
number = 0
For k = 1 To n
--------3---------
Next k
End Function
该怎么填呀,有急用

------1------- 10^(i-1)*7*(n-i+1)
------2------- n As Integer
------3------- number=number+10^(k-1)*7