vb问题3 急急急急

8.在考生文件夹中有工程文件Sjt5.vbp及其窗体文件Sjt5.frm，该程序是不完
整的。请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），
但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为C1，
标题为“计算”的命令按钮（如图所示）。要求程序运行后，在Text1和Text2
中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数
（含着两个整数）累加起来并在Text3中显示出来。
Private Sub C1_Click()
Dim a As Integer
Dim b As Integer
Dim t As Long
t = 0
' a = ？
' b = ？
If a > b Then
For i = b To a
' t = ？
Next i
Else
For i = a To b
' t = ？
Next i
End If
' Text3.Text = ？
End Sub

9.在窗体上建立一个名称为Text1的文本框,建立一个名称为Cmd1,标题为"计算"
的命令按钮（如图所示）。要求程序运行后，如果单击"计算"按钮，则求出
100-200之间所有可以被3整除的数的总和，在文本框中显示出来，并把结果存
入考生文件夹下的out.txt文件中。注意，在考生的文件夹下有一个mode.bas
标准模块，该模块中提供了保存文件的过程putdata，考生可以直接调用。
Private Sub C1_Click(Index As Integer)

8题：

Private Sub C1_Click()
Dim a As Integer
Dim b As Integer
Dim t As Long
t = 0
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
For i = b To a
t = t + i
Next i
Else
For i = a To b
t = t + i
Next i
End If
Text3.Text = t
End Sub

9题(你应该打错了题目，不过我将自己编的写下来，想来是差不多的):
Private Sub Cmd1_Click()
Dim S As Integer
S=0
For i = 100 To 200
If i Mod 3 = 0 Then S=S+i
Next i
Text1.Text=S

vb问题3 急急急急 vb问题?急急急急!!!!!!!!!!!! VB.NET问题，急急急急！！！！ 急急急急!!!!vb使用问题 vb问题2 急急急急 vb问题6 急急急急 vb问题1 急急急急 急急！！VB程序问题，，。。。 vb问题 急急急 VB问题急急急