VB条件语句

VB条件语句


判断语句、判断语句 加 循环、循环语句、goto语句
=====================================================
【...表示另起一行】【所有条件可套用】
====
If 条件 Then...过程...End If 【判断语句】【可加else’否则】   【可加And'而且】
=====
1:过程...If 条件 Then goto 1【满足条件就回到1】
======
For 3...过程...next【过程循环3次】
=======
Do While True...不满足条件必经过程...If 条件 Then...过程...End If...Loop【判断与循环】【可加else’否则】
==========================================
以下为详细内容
=========================================
'goto语句
dim a
a=1
1: b = Int(Rnd * 3)  '1:赋值b为：0到2的随机数
If a = b Then GoTo 1 '如果a=b 则 回到  1:  
texe1=b              '1:赋值控件texe1内容为：b的内容
=========================================================
=================================================
★判断语句
If 条件 Then   '如果  条件  则
过程
Else           '否则【也可以不要】
过程
End If         '条件结束
=========================================================
=================================================
判断语句 加 循环【可制作：密码、等...】
Do While True
过程           ’以下条件不符 则不断出现此  过程
If 条件 Then   ’如果 条件 则   
过程
End If         ’条件结束
If 条件 Then   ’如果 条件 则   
过程
End If         ’条件结束
...可多次
End If         ’不符合条件就必经此路
过程
Loop
====================================
=========================================
计数循环控制:
For i=1 to 3            ’循环次数
MsgBox "弹出框"  ’过程
next             ’循环结束
===============================================
==============================================
可套用，如：
If 条件 Then   '如果  条件  则
过程
Else           '否则【也可以不要】


If 条件 Then   '如果  条件  则
过程                                 
Else           '否则【也可以不要】
过程                                 
End If         '条件结束


End If         '条件结束


==============================================

多种情况 条件语句


VB里的Select语句的格式是这样的：

Select Case <变量名>

Case <情况1>
  ……
Case <情况2>
  ……
Case <情况3>
  ……
  ……
  ……
Case Else
  ……

End Select

例如：

Select Case a%

Case 1
  Print “a=1”
Case 2
  Print “a=2”
Case Else
  Print “a does not equal to 1 or 2.”

End Select


★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
和按键精灵一样






_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/