VB题目啊

k373.frm的功能是：对于数列1,1,2,3,5, 8,……(从第3项开始，每一数列项的值为前2项之和)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。
在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行

Private Sub Form_Click()
a1 = 1
a2 = 1
nsum = a1 + a2 '第1、2项之和
ncount = 2 '项数，初值为2
Do While nsum < 1000
x = (1) '此处有一空(1)
a1 = a2
a2 = x + a1
nsum = nsum + a2
ncount = ncount + 1
Loop
ncount = (2)
'此处有一空(2)
Print "前" + Str(ncount) + "项的和刚好不大于1000"
End Sub
gc372.frm的功能是：交换两个数（例10，20），要求Swap1用值传递，Swap2用地址传递，使第一个PRINT语句输出：A＝10，B＝20；第二个PRINT语句输出：A＝20，B＝10。
请修改程序中2处错误，并调试该程序，使之正确运行，不得增加或删除程序行。

Private Sub Form_click()
Dim a As Integer, b As Integer
a = 10: b = 20
swap1 a, b
Print "A1="; a, "B1="; b
a = 10: b = 20
swap2 a, b
Print "A1="

帮忙啊VB题目 紧急啊!VB题目 这个VB题目怎样写啊? VB题目求组 多谢啊 求高手做 VB 题目 急啊 VB 题目啊..求 高手 解答一下 谁会做VB的题目啊??比如: VB题目，大家看看怎么做啊？ vb题目啊```有点难噢`` VB编程题目