Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n =

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/10/01 23:36:42

Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i > 10 Then Exit For Next Pri
Dim i As Integer,n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i > 10 Then Exit For
Next
Print n
怎么算

实现效果,输出结果3
原理：
For i = 0 To 50
定义i从0循环到50
i = i + 3
这时i=0,所以其语句将原来的i值加上3
得3
n = n + 1
累加n
If i > 10 Then Exit For
判断i是否大于10,若是则跳出循环
第一次：
i=0
i=3
n=1
第二次：
i=3
i=6
n=2
第三次
i=6
i=9
n=3
第四次
i=9
i=12
i已大于10,跳出循环
输出n=3

Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n = dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As VB dim x as integer dim i as integer x = 100 for i = 1 to 10 Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = Private Sub Command1_Click() Dim i,j As Integer For i = 3 To 评定等级() Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells( Private Sub Command1_Click() Dim i As Integer,s As Integer,n vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer 下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2 Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F