谁能帮我做套题
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 Command1_Click()
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 Command1_Click()
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项之和。
[解决办法]
这么简单的自己都不做？
[解决办法]
自己在看看书吧，估计看十分钟你就可以解决这些问题了
