解:算法: 第一步:输入x=1 第二步:计算1+2 第三步:计算1+2+3 .。。。。。。。。。 。。。。。。。 流程图: 开始 s=0,i=1 i<=100 输入一个N 累加s=s+n 计数一次:I= I+1 输出s 结束 注:图中有两条线没有画,你可以自己补上的 算法语句:VB Private Sub Form_Click() Dim s As Single, n As Integer, i As Integer s = 0 n = Val(InputBox("输入n:")) For i = 1 To n s = s + 1 Next i Print s End Sub