求解两道VB程序题

1.
dim s as string,word as string,i%,k%
s=text1.text
word=text2.text
for i=1 to len(s)-len(word)+1
if mid(s,i,len(word))=word then k=k+1
next i
print k
'text1输入句子,text2输入要查找的单词
2.
dim i%,n%,s as long
n=inputbox("输入n的值")
for i=1 to n
s=s+(7/9)*(10^i-1)
next i
print s
'这个规律就要靠数学知识寻找了~

第一问我就不回答了。
第二题显然不能那么做啊，长整形的变量s，n输入的值我怀疑10都不能算，会溢出。

Private Sub Command1_Click()
Dim i, j As Long
Dim strResult, strTemp As String
'长度不可能大于N,txtN不要输入太大的数字，理论上是可以输入10的300次方但是估计一年都运行不完整个程序的
For i = 1 To txtN.Text
strResult = strResult & 7
Next i
Dim intCarry As Integer
Dim intR As Integer
intCarry = 0

For i = txtN.Text - 1 To 1 Step -1
For j = 1 To i
intR = intCarry + 7 + getStringIvalue(strResult, j)
If intR >= 10 Then '进位只可能是