谁能帮我做套题
5、下面程序段中，第2条语句执行 次，第3条语句执行 次。
  1：for i=1 to 12 step 3
  2： for j=6 to 2 step -1
  3： print i,j
  4： next j
  5： next i
6、分析下面函数实现什么功能？
Function F1(b As Integer)
  If b Mod 2 = 0 Then
  F1 = 0
  Else
  F1 = 1 
  End If
End Function  
7、分析下面程序完成什么功能？
Private Sub Command1Click()
  Dim i As Integer, sum As Integer
i = 1  
sum = 0  
Do While i <= 100 
sum = sum + i
i = i + 1  
Loop
Label2.Caption = Str(sum)
End Sub
8、分析下面程序实现什么功能？
Private Sub Command1Click()
  s = 0
For a = 1 To 5
For b = 1 To a 
For c = 1 To b
If b + c > a Then s = s + 1: Print a, b, c
  Next c, b, a
  Print s
End Sub
9、下面程序的功能是：用函数InputBoX显示一输入对话框，由用户输入要查询的编号，该对话框的标题为“数据查询窗口”。用户输入完成后，用MsgBox语句将输入的值显示出来。请完善程序。
Private Sub Command1_Click()
Dim userno As String, msg （1）  
userno = （2） ("请输入要查询的编号", "数据查询")
msg = "你要查询的编号是：" & userno
  （3） msg, 4 + 64, "编号"
  （4）  
二、编程题

1、编写程序：计算分数序列：2/1，3/2，5/3，8/5，13/8，21/13…的第20项，输出地20项以及该数列的前20项之和。