这道VB的题怎么做哇 恩谢大侠了呀 在线等~~急拉

1、若计算出2+4+6+8+…+100的总和（tatal），程序的代码如下：
Dim total,i as integer
Tatal=_________;i=_________
Do until i__________
Tatal__________
i__________
Loop
Label1.text=tatal
2、代码如下
Private Sub Button1_Click(ByVal…)
Dim I,A As Integer
I=4
A=5
DO
I=I+1
A=A+2
Loop Until I>=7
TextBox1.Text=”I=”+Str(I)+”,A=”+Str(A)
End sub
以上程序的执行后，TextBox1.Text结果为
3、（1） Sub add1(byval x as integer)
x=x+1
End sub
Private sub button1_click(…)
Dim i as integer
i=textbox1.text
Add1(i)
Textbox2.text=i
End sub
当textbox1的值输入为100的时候：
X的值为：__________
i的值为：__________

（2） Sub add2(byref y as integer)
Y=Y+1
End sub
Private sub button1_click(…)
Dim i as integer
i=textbox1.text
Add2(i)
Textbox2.text=i
End sub
当textbox1的值输入为100

急问啊!!!这道VB编程题怎么做啊??? 各位大侠下面的题怎么做，谢谢 [VB]怎么做RPG的地图？ VB做的DLL怎么引用!! vb连接SQl的控件怎么做？？？？ 这个VB的加法怎么做啊？ VB怎么做下载的程序？ VB 帮助文件怎么做 vb这道题怎么做 这题VB怎么做?