【简答题】以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和,请补充完该程序。 Dim n As Integer Dim i As Integer Dim j As Long Dim s As Long n=100 j=0 s=0 For i=1 To【 】 J=【 】 s=【 】 Next i Print s
【单选题】在窗体上添加如下命令按纽,然后编写如下事件过程: Private Sub Command1_Click() Dim a(10)As Integer Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 ...