VB程序 懂的进

块if语句和行if语句怎么做
for循环和do循环怎么做
都给例题好了
像 for循环:
for i=1 to 10 step 1
s=s+1
next i
i怎么算的

---

DIM I AS INTEGE
DIM S AS INTEGE

S = 0

FOR I = 1 TO 10 STEP 1 '第一次为 I = 0 第2次 I=1
S = S +1
NEXT I ,NEXT 为下个相当于I=I+1 '第一次为 I = 1 第2次 I=2

IF 是如果的意思 用来判断
IF I = 3 THEN '好型李 就是 当I 等于3时 S 是10 要不S就等于五
S = "10"
ELSE
S = 5
END IF

I = 2
DO WHILE I < 5
I = I +2 '就是当友迟I 大于5时 就会跳出循环 跳出租梁去时 I=6

LOOP

---

块尺兆腔if:
if x=5 then
y=0
els
y=1
end if
行if:
if x=5 then y=0

for循陵衫猜稿环:
for i=1 to 10 step 1
s=s+1
next i

do循环:
do while(x>5)
y=y+1
loop

---

行if语句示例函数:两缓宽个数中返回最小的一个配笑.
Function minx(a As Double, b As Double)
Dim minx As Double
minx = a
If minx > b Then minx = b
End Function

'=======================

Dim x(10),i As Integer
For i = 1 To 10 'for语句例子
x(i) = Int(Rnd * 90 + 9)
Next i
'培哪含以上用for循环把随机数赋值给数组x(1)-x(10)
i=1
dim sum as integer
do while i<11
sum=sum+x(i)
loop
'以上用do循环计算数组的总值
dim min,j as integer
For i = 1 To 10
For j = 1 To 10
If x(i) < x(j) Then '此处是if块例子
Min = x(j)
x(j) = x(i)
x(i) = Min
End If
Next j
Next i
'以上是用冒泡排序法排序

---

1、行IF语句
在一行中写完的IF语句，称为行IF语句。
语句格式：IF <条件> THEN <语句1> [ELSE <语句2>]
命令功能：当条件满足时，执行语句1，条件不满足时，则执行语句2。
例子：族扰御输入x，判断x的正负。
程序编制如下：
Dim X As Integer
a: X = InputBox("X=：")
If X = 0 Then
Print "输入错误，重新输入!"
GoTo a:
End If
If X > 0 Then Print "x为正数"
If X < 0 Then Print "x为负数"
2、块IF语句
语句格式：IF <条件> THEN
<语句组1>
[ELSE
<语句组2>]
END IF
语句功能：当条件满足时，执行语句组1；条件不满足时，则执行语句组2。执行完相应语句组后，退出IF语句执行END IF语句以下语句序列。
例子：输入年份，判断此年份是否为润年。
程序编李衡制如下：
a: year = InputBox("输入年份：")
If year <= 0 Then
Print "输入错误，重新输入!"
GoTo a:
End If
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then
Print year;
Print "年是润年"
Else
Print year;
Print "年不是润年"
End If
3、FOR循环，语句格式：
FOR <循环变量>=<初值>TO<终值>[STEP<步长>]
[<循环体>]
[EXIT FOR]
NEXT[<循环变量>]
语句功能：从循环的初值到终值按步长增值控制计数重复执行循环体。
例子： 用FOR语句编写计算S=1+2+3+…+100的程序。
FOR I=1 TO 100 STEP 1
S=S+I
NEXT I
4、DO循环，语句格式：
DO
<循环体兆岩>
[EXIT DO]
LOOP
语句功能：无休止的执行循环体。如果有条件语句配合可控制退出循环。
例子： 用EXIT DO语句编写计算S=1+2+3+…+100的程序。
X=0:S=0
DO
X=X+1
S=S+X
IF X>=100 THEN EXIT DO
LOOP

i默认是增加1

---

Private Sub Command1_Click()
dim i as integer =1
if(I<=3)
print I;
end if
End sub

Private Sub Command1_Click()
dim i as integer =3
Do While I >= 0
print I;
I--
Loop
End sub

Private Sub Command1_Click()
dim i as integer
For I=1 to 3
print I;
Next I
End sub

---