? b.net亚博优惠活动之常用内部函数 亚博优惠活动,亚博体育网页版,亚博app怎么下载「官网直营」
VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动
SQL Server 2008 视频亚博优惠活动 c#入门经典亚博优惠活动 Visual Basic从门到精通视频亚博优惠活动
当前位置:
首页 > 编程开发 > VBnet >
  • b.net亚博优惠活动之常用内部函数

  • 2015-01-24 15:43 来源:未知
常用内部函数
数学函数:此类函数在命名空间: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)
?
?
?
?
?
?
?
?
?
?
?
相关亚博优惠活动