Fork me on GitHub

Visual Basic是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
这是一种可用于微软自家产品开发的语言。它源自于BASIC编程语言。
VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active X控件。

Public Class Form1

#Region "【基本数据类型】"
    '整型(Integer,类型符%)
    '长整型(Long,类型符&) 
    '单精度浮点数( Single )
    '双精度浮点数( Double )
    '货币型(Currency,类型符@)    小数点后的位数是固定的,4位 
    ' 字节型(Byte,无类型符)
    '日期型(Date) 
    ' 逻辑型(Boolean)  非0的数据转换为true,0为fasle。 
    '字符串( String ,类型符$) 
    '对象数据类型(Object )  
    '变体数据类型(Variant ) 
    '用户自定义类型 
#End Region
    '【数据类型的定义】
    'Dim 【变量名】 As 【数据类型】
    Dim Index As Integer

    '【数组的定义】
    Dim IndexArray(99) As Integer '这个数组包含100个元素,脚标从0到99
    Dim IndexArray1(0 To 99) As Integer '这个数组包含100个元素,脚标从0到99
    Dim IndexArray2(99, 88) As Integer '多维数组,下标都是从0开始

#Region "【自定义类型】"
    ' Type 自定义类型名  
    '元素名1 As 类型名  
    '元素名2 As 类型名  
    '……  
    '元素名n As 类型名  
    'End Type
#End Region
    Structure Student
        Dim Num As Long '学号  
        Dim Name As String  '姓名
        Dim Score As Single  '得分,用单精度数来存储  
    End Structure

#Region " 关系运算符"
    '运算符        测试关系    表达式例子
    '=            相等        X=Y
    '<> 或 ><    不相等        X<>Y或X〉〈Y
    '<            小于        X<Y
    '>            大于        X〉Y
    '<=            小于或等于    X<=Y
    '>=            大于或等于    X>=Y
    'Like        比较样式      
    'Is            比较对象变量    
#End Region


#Region "【方法的定义】"
    '[【访问级别】] Sub 【方法名】 ([【参数】])
    '运算处理
    'End Sub

    '[【访问级别】] Function 【方法名】 ([【参数】]) AS 【类型】
    '运算处理
    '【方法名】=【返回值】
    'End Function

    'ByVal传递的参数值,传送参数内存的一个拷贝给被调用者 ;而ByRef传递的参数的地址,传送参数内存的实际地址给被调用者。
#End Region
    '【方法的定义】 function是有返回值 sub 是没有返回值 
    Public Sub AddStudent()
        Dim studentDemo As Student
        With studentDemo
            .Num = 11111111
            .Name = "Jason"
            .Score = 99.99
        End With
    End Sub

    Public Function AddStudent1() As Student
        Dim studentDemo As Student
        With studentDemo
            .Num = 11111111
            .Name = "Jason"
            .Score = 99.99
        End With
        AddStudent1 = studentDemo
    End Function

    Sub TestLoop(ByVal number As Integer)
        '【条件】
        If 1 = 1 Then
            MsgBox("Yes")
        Else
            MsgBox("No")
        End If

        If 1 = 1 Then
            MsgBox("Yes 1=1")
        ElseIf 1 = 2 Then
            MsgBox("Yes 1=2")
        Else
            MsgBox("No")
        End If

        Select Case number
            Case 1
                MsgBox("Yes 1=1")
            Case 2
                MsgBox("Yes 1=2")
            Case Else
                MsgBox("No")
        End Select

        Dim i As Integer = 0
        'For<循环变量>=<初值>To<终值>[Step步长] 
        '<循环体> 
        '[Exit For] 
        'Next<循环变量> 
        For i = 0 To 1
            MsgBox(i)
        Next

        'Do While
        '<循环体> 
        'Loop
        Do While 1 = 1 '条件为true执行
            MsgBox("1 = 1")
            Exit Do
        Loop
        Do Until 1 <> 1 '条件为true终止执行
            MsgBox("1 <> 1")
            Exit Do
        Loop
        Do
            MsgBox("先执行")
        Loop While 1 > 1 '先执行后判断;While为true继续执行,Until为false执行


        '        On Error GoTo ErrHandle '遇到错误转移
        '        Exit Sub
        'ErrHandle:
        '        '错误处理语句.
    End Sub
#Region "【访问级别】"
    'Public :同一项目中任意位置的代码,引用该项目的其他项目,以及由该项目生成的任何程序集;
    '可以在源文件级别或命名空间级别,或者在接口、模块、类或结构内部声明 public 元素,但不能在过程内声明它。

    'Protected :从同一个类内部或从该类派生的类中访问元素;
    '仅可以在声明类的成员时和仅在类级别使用;不能在源文件级或命名空间级,或者在接口、模块、结构或过程内部声明它。

    'Friend :同一程序集内部访问元素,而不能从程序集外部访问
    '可以在源文件级别或命名空间级别,或者在接口、模块、类或结构内部声明 friend 元素,但不能在过程内声明它。

    'Protected Friend :派生类或同一程序集内,或两者皆可,仅可以在声明类的成员时且仅在类级别使用

    'Private :以从同一模块、类或结构内访问元素
    '可以在模块、类或结构内部声明 private 元素,但不能在源文件级别或命名空间级别、接口内部或者过程内声明它。
#End Region

    '【属性的定义】
    '【访问级别】 【变量名】 As 【数据类型】
    Private _UserName As String    '用户姓名属性
    Public Property UserName As String
        Get
            UserName = _UserName
        End Get
        Set(value As String)
            _UserName = value
        End Set
    End Property

    '音量属性,音量在0-100之间
    Private myVolumn As Integer
    Public Property Volumn
        Get
            Volumn = myVolumn
        End Get
        Set(value)
            If (value < 0) Then
                myVolumn = 0
            ElseIf (value > 100) Then
                myVolumn = 100
            Else
                myVolumn = value
            End If
        End Set
    End Property

    '【事件的定义】
    Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
        MsgBox("Hello World!")
        Call TestLoop(1)
    End Sub
End Class
posted on 2015-08-19 00:12  lingfeng95  阅读(2770)  评论(1编辑  收藏  举报