s =0
i =0
Do While i<=11
i=i+3
s=s+i
Loop
程序执行结束时,变量s的值为( )
Private Sub Command1_Click( )
Dim x As String, k As String, j As Integer
x = "XiaoWei" ①
k = "语文" ②
j = 90 ③
Text1.Text = x + k +j ④
End Sub
图1
Private Sub Command1_Click()
Dim N As Integer
Dim S As Integer
N = val(Text1.Text)
S = 0
For i = 1 To N
S = S + i * (i + 1)
Next i
Text2.Text = str(S)