VB代码片段总结

VB代码片段总结

一、三大结构：顺序结构、选择结构、循环结构

顺序结构：语句执行顺序与书写顺序一致

Private Sub Command1_Click()
Dim x as string
Dim y as integer
x=20.58
y=x+10
Text1.text=x
Text2.text=y
End Sub

选择结构：能够根据不同情况作出不同选择，执行不同操作

Private Sub Form_Load
  Dim h as Integer
  Show
  h=Hour(time)
  Fontsize=20
  If h<=12 then
    Print"早上好！"
  Else
    If h<=18 then
      Print "下午好！"
  Else
     Print "晚上好！"
    End if 
  End if 
 End sub

循环结构：在执行程序语句时，要对其中的某些语句重复执行多次。可以简化程序，提高效率。

1)以Do While...Loop为例

Private Sub Form_Click()
Dim a AS Integer,b AS Integer
Show
a=0
b=1
Do While b<=100
a=a+b
b=b+1
Loop
print"1+2+3+4+...+100=":a
End Sub

2)以Do Until ...Loop为例

Dim a AS Integer,b AS Integer
Show
a=0:b=1
Do Until b>100
a=a+b
b=b+1
Loop
Print "1+2+3+4+...+100=":a
End Sub

二、Option Explicit

只能在模块级使用
必须要写在该模块的所有过程之前
使用该语句，必须使用Dim、Private、Public、Redim或Static语句来显示声明所有变量。

Dim CloudVar
Cloudint="无" '为声明变量将产生错误
CloudVar="无" '已声明变量不会产生错误

三、End、Unload、Exit Sub、End Sub区别

End 是结束整个程序，强制关闭
Unload Me 卸载当前窗体
End Sub 过程代码结束，必须有且只能有一个
Exit Sub 退出过程，可有可无，个数不限

四、Private、Public区别

Private sub 是一个模块级的函数或过程，只能在本模块中调用
Public sub 是一个全局函数或过程，可以在任何模块中调用

窗体From1的文件中有：
Private Sub F1_Load
Dim a AS Integer
a=a+1
End Sub
Public Sub F2_Load
Dim a AS Integer
a=a+2
End Sub
模块module1中
Private Sub f3 _Load
Dim a AS Integer
a=a+3
End Sub
Public Sub f4_Load
Dim a AS Integer
a=a+4
End Sub

在窗体form1中可以调用F1、F2、F4而不能调用F3 在模块module1中可以调用F2、F3、F4而不能调用F1

原文地址：https://www.jb51.cc/vb/256133.html