常用内部函数
数学函数：此类函数在命名空间：system.math中（如：math.sqrt(m)）
此命名空间是系统默认命名空间，即此空（相关vb.net教程)间中的函数可以直接使用。
字符串函数：此类函数在命名空间：microsoft.visualbasic中。
（如：microsoft.visualbasic.len(s)）
ucase =toupper lcase =tolower
Len(s)—求串长度；
串中取子串：left rithg  mid
转换函数：此类函数在命名空间：microsoft.visualbasic中。
Val—把字符串（数字字符串）转换成数字。
Str—把数字转换成字符串
Int—取整，即去掉小数部分。
日期函数：此类函数在命名空间：microsoft.visualbasic中。
Now—取系统的时间与日期
Year--取系统日期中的年，  month  day
Hour--取系统时间中的小时，  minute  second
说明：命名空间可以试先指明，形式是：imports 命名空间，它必须放在所有程序的最前面。
随机函数：
Randmize—随机数种子
Rnd—产生随机数（0—1）
实例：任意生产两个100以内的正整数，试编程求其和，
并对结果的对与错作出评定。即加法器软件。[实验报告4]
程序为：
Public Class Form1
    Dim a, b As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
        a = Int(Rnd() * 100)
        TextBox1.Text = a
        b = Int(Rnd() * 100)
        TextBox2.Text = b
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (Val(TextBox3.Text) = a + b) Then
            TextBox4.Text = "对了！"
        Else
            TextBox4.Text = "错了！"
        End If
    End Sub
End Class
试着做一个电子表，程序见，电子表。
实例：试制作一个定时时钟[实验报告5]
程序见，定时时钟，程序为：
Public Class Form1
    Dim h, m As Integer
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a As Date
        Dim b, c, d As Integer
        Dim x As String
        a = Microsoft.VisualBasic.Now
        b = Microsoft.VisualBasic.Hour(a)
        c = Microsoft.VisualBasic.Minute(a)
        d = Microsoft.VisualBasic.Second(a)
        Label1.Text = b & ":" & c & ":" & d
        If (h = b And m = c) Then
            Beep()
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        h = 8888
        m = 9999
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        h = Val(TextBox1.Text)
        m = Val(TextBox2.Text)
    End Sub
End Class
 
此程序中如果要运行某一软件，可以通过shell函数，来完成
作用：在vb.nte中调用其它软件。
使用形式：X=shell(软件名称及完整路径)，如：
 x = Shell("C:\Program Files\TTPlayer\TTPlayer.exe" +
 " " + "e:\天竺少女.mp3", 1)