VB编程求1到100整数和

Private Sub Command1_Click()
Dim a
Dim sum
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub
最后在窗体上显示出来的就是你要求的和

楼上2位是写VB呢还是VC?
VB貌似不需要那么多{}的吧？
看我的！
Private Sub CommandButton1_Click()
Dim a
Dim sum
For a = 1 To 100
sum = sum + a
Next a
End Sub

Dim i As Integer, s As Integer
For i = 1 To 100
s = s + i
Next i
S就是要求的

我不太记的VB的语法了
i=1
wile(i>100)
{
i=i+1
}

static void Main(string[] args)
{
int sum = 0;
for(int i=1;i<=100;i++)
{
sum += i;
}
Console.WriteLine("sum={0}",sum);
Console.Read();
}