123456789啊

45

先在窗体上添加一个Command1按纽,
Private Sub Command1_Click()
Dim i, j
For i = 1 To 9
j = j + i
Next
Print j
End Sub

Dim i%, j%
For i = 1 To 9
j = j + i
Next
Print j

print (1+9)*9/2
=45

在窗体上添加一个Command1按纽,就是cmd~
Private Sub Command1_Click()
Dim i as doubel;j as doubel
For i = 1 To 9
j = j + i
Next
Print j
End Sub

1+2+3+4+5+6+7+8+9=45