b.net教程之常用内部函数

金沙澳门官网网址:www.js333com

VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > VBnet >
  • b.net教程之常用内部函数

  • 2015-01-24 15:43 来源:www.js333com
常用内部函数
数学函数:此类函数在命名空间: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)
 
 
 
 
 
 
 
 
 
 
 
相关教程
Baidu
sogou