vb测试题7

Private Sub Command1_Click()
Dim n, s, i As Double
For n = 1 To 20
c = 1
s=0
For i = 1 To n
c = c * i
Next i
s = s + c
n = n + 1
Next n
Print s
End Sub

这几个测试题貌似都是你出的！
编成VB？
text1.text = 1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20
这样OK？
不行说话

貌似楼下的有些……

如果用For命令就
Private Sub Command1_Click()
For 1 to 19
text1.text = 1 + a
a = a + 1
Next
End Sub

Private Sub Form_Load()
a = 1
End Sub