求助几道vb循环语句习题1、\x05输入任意的10个整数,求它们之间的最大数2、\x05统计1到100之间能被7整除的数的个数3、\x05求数列1、1、2、3、5、8、13…前20项的和最好在明天中午之前能给出答

求助几道vb循环语句习题1、\x05输入任意的10个整数,求它们之间的最大数2、\x05统计1到100之间能被7整除的数的个数3、\x05求数列1、1、2、3、5、8、13…前20项的和最好在明天中午之前能给出答
求助几道vb循环语句习题
1、\x05输入任意的10个整数,求它们之间的最大数
2、\x05统计1到100之间能被7整除的数的个数
3、\x05求数列1、1、2、3、5、8、13…前20项的和
最好在明天中午之前能给出答案啊!

求助几道vb循环语句习题1、\x05输入任意的10个整数,求它们之间的最大数2、\x05统计1到100之间能被7整除的数的个数3、\x05求数列1、1、2、3、5、8、13…前20项的和最好在明天中午之前能给出答
'第1题：
Dim x As Integer
Dim MaxI As Integer
Dim i As Integer
x = InputBox("请输入第1个整数")
MaxI = x
For i = 2 To 10
x = InputBox("请输入第" & i & "个整数")
If x > MaxI Then
MaxI = x
End If
Next i
Print MaxI
'第2题：
Dim i As Integer
Dim C As Integer
C = 0
For i = 1 To 100
If i Mod 7 = 0 Then
C = C + 1
End If
Next i
Print C
'第3题：
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
Dim S As Integer
a = 1
b = 1
S = a + b
For i = 3 To 20
c = a + b
S = S + c
a = b
b = c
Next i
Print S