以下Visual Basic程序的功能是：計算表達式1×3+2×3+3×3+…100×3的值，并在文本框Text1中輸出計算結果．
Private Sub Command1_Click （　　）
Dim i As Integer,s As Integer
s=0
i=1
Do While i＜=100

s=s+i*3

s=s+i*3

i=i+1
Loop
Text1．Text=Str（s）
End Sub
（1）剛退出循環時，變量i的值是

101

101

．
（2）為了實現上述表達式的計算，程序中橫線處的表達式應為

s=s+i*3

s=s+i*3

．