VB编程求s=1+2+4+7+11+16+22+29+37+
VB编程求s=1+2+4+7+11+16+22+29+37+4VB编程求s=1+2+4+7+11+16+22+29+37+46各位高手,请教VB编程求s=1+2+4+7+11+16+22+37+46,怎么编,代码怎么写,谢谢了!
Private Sub Command1_Click() Dim a As Integer, sum As Integer a = 1 For i = 0 To 9 a = a + i sum = sum + a Next i Print sum End Sub
Dim x(10) As Integer x(0) = 1 sum = 0 For i = 1 To 9 x(i) = x(i - 1) + i Next i For m = 0 To 9 sum = sum + x(m) Next m Print sum
答:这样改下看行吗!~ n = Val(Text1.Text) s = 1 p = 1 If n < 3 Then '输入3以内的拒绝运算 Text2.Text =...详情>>