<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      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)
       
       
       
       
       
       
       
       
       
       
       
      相關教程
      江苏快3 遵义 | 潍坊 | 惠东 | 昌都 | 梅州 | 临猗 | 保定 | 陇南 | 赣州 | 醴陵 | 松原 | 莒县 | 厦门 | 泗洪 | 周口 | 怒江 | 博尔塔拉 | 惠州 | 改则 | 滁州 | 北海 | 单县 | 曲靖 | 深圳 | 毕节 | 陵水 | 益阳 | 中卫 | 文山 | 海南海口 | 攀枝花 | 吉林长春 | 简阳 | 牡丹江 | 温岭 | 邢台 | 文山 | 桂林 | 铜陵 | 锡林郭勒 | 招远 | 德州 | 吉林 | 无锡 | 庄河 | 邹平 | 黄山 | 威海 | 三河 | 克孜勒苏 | 攀枝花 | 溧阳 | 肥城 | 唐山 | 龙口 | 河池 | 万宁 | 图木舒克 | 邹平 | 安庆 | 贵州贵阳 | 吴忠 | 伊犁 | 阿拉善盟 | 海西 | 内蒙古呼和浩特 | 芜湖 | 陵水 | 临沧 | 娄底 | 天水 | 临沧 | 台中 | 朔州 | 伊犁 | 长兴 | 济南 | 阿拉善盟 | 抚州 | 昌都 | 惠州 | 义乌 | 凉山 | 中卫 | 兴安盟 | 酒泉 | 汕头 | 十堰 | 邳州 | 大连 | 海西 | 河南郑州 | 嘉峪关 | 吉林长春 | 阳泉 | 广元 | 嘉兴 | 新余 | 惠州 | 张掖 | 金昌 | 黔南 | 河南郑州 | 儋州 | 江苏苏州 | 林芝 | 辽宁沈阳 | 台南 | 连云港 | 邯郸 | 宜宾 | 三亚 | 聊城 |