05 CHAPTER Information.IsNumeric ( ) Information.IsDate ( ) True False Date Date True False Y Y Information.IsArray ( ) True False Y Information.IsErr

Size: px

Start display at page:

Download "05 CHAPTER Information.IsNumeric ( ) Information.IsDate ( ) True False Date Date True False Y Y Information.IsArray ( ) True False Y Information.IsErr"

鞍友李
4 years ago
Views:

1 05 CHAPTER Information.IsNumeric () Information.IsDate () True False Date DateTrue False Y Y Information.IsArray () True False Y Information.IsError () Information.IsNothing () True False True False Y Y Information.IsReference () ( ) String True False Y 5-6 Microsoft.VisualBasic.Information 5-6 ObjectStringObject 5.4 System Microsoft.VisualBasic Microsoft.CSharp VB C#.NET Framework System Microsoft. VisualBasic C# 5-5

2 VB.NET VB VBScript VB.NET Microsoft.VisualBasic C# C#.NET Framework System System Microsoft.VisualBasic System.Object System.Object.NET Framework Object Object Object Object ToString() Object.Equals(o1,o2) Object.ReferenceEquals(o1,o2) o1.equals(o2) o.gettype() o.tostring() o1 o2 o1 o2 o1 o2 o1 Type Type ToString String Type 5-7 System.Object 5-6

3 05 CHAPTER System.String VB String.NET Framework System.String.NET Framework System.String VB System.String s.length s String.Concat(s1,s2) String.Copy(s) String.Compare(s1,s2) String.Join(s,sArr) s.remove(n) s.remove(n1,n2) s1.indexof (s2,n1) s.substring(n) s.substring(n1,n2) s1.replace(s2,s3) s1s2 sstring StrComp(s1,s2) sarr ss Nothing 5-2 Join(sArr,s) s n s n1 n2 s2 s1n1 n1 5-2 InStr(n1,s1,s2) s n+1 ~ s n1+1 n2 5-2 Left(s,n) Right(s,n) Mid(s,n1,n2) s1s3s2 5-2 Replace(s1,s2,s3) 5-7

4 s.tochararray() s.tochararray(n1,n2) s.tolower() s.toupper() s.trim() s.trimstart() s.trimend() s sn1 n2 5-2 GetChar(s,n) s 5-2 LCase(s) s 5-2 UCase(s) s 5-2 Trim(s) s 5-2 LTrim(s) s 5-2 RTrim(s) Trim() TrimStart() TrimEnd() 5-8 System.String s,s1 String 5-2 System.String 5-2 ASPNET\ch05\ch05_02\ ch05_02.aspx Step 1 Button Button1 Label Label1~Label3 Step 2 Button1_Click() 5-8

05 CHAPTER 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Protected Sub Button1_Click(sender As Object, e As System.

5 05 CHAPTER Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Dim str As New String("1001 ") Dim strlead As New String("") Dim str1, str2, str3 As String Dim spacestr As New String(" ") str1 = str.substring(0, 3) 'str1= str2 = str.substring(3) 'str2= 1001 str3 = str.substring(3, 3) 'str3= str1 = strlead & spacestr & str1 Label1.Text = str1.replace(" ", " ") ' str2 = strlead & spacestr & str2 Label2.Text = str2.replace(" ", " ") str3 = strlead & spacestr & str3 Label3.Text = str3.replace(" ", " ") End Sub (1) 13~15strSubString() (2) Replace Step 3 1 按下 2 顯示結果 5-9

6 5.4.3 System.Math System.Math.Net Framework VB System.Math E PI System.Math Math.Exp(n) Math.Pow(n1,n2) Math.Log(n) Math.Log10(n) Math.Sqrt(n) Math.Round(n) Math.Floor(n) Math.Ceiling(n) Math.Sin(n) Math.Cos(n) Math.Tan(n) Math.Asin(n) Math.Acos(n) Math.Atan(n) Math.Abs(n) Math.Sign(n) Math.Max(n1,n2) Math.Min(n1,n2) e n (e ) n1 n2 ln(n) e log(n) 10 n ncint(n) n 5-3 Int(n) n n n n n 180 n n n 0,1,-1n n1, n2 n1, n2 5-9 System.Math 5-10

7 05 CHAPTER System.DateTime System.DateTime VB Microsoft.VisualBasic.DateAndTime System. DateTime DateTime.Now DateTime.Today d.year d.month d.day d.dayofweek d.hour d.minute d.second d.tolongtimestring() d.adddays(n) 5-4 Now 5-4 Today () DateTime.Now.Year5-4 Year(Now) (1~12) DateTime.Now.Month5-4 Month(Now) DateTime.Now.Day5-4 Day (Now) 0~6 011 DateTime.Now.DayOfWeek5-4 WeekDay(Now) 0 (0~23) DateTime.Now.Hour5-4 Hour(Now) (0~59) DateTime.Now.Minute5-4 Minute(Now) (0~59) DateTime.Now.Second5-4 Second(Now) DateTime.Now.ToLongTimeString()5-4 TimeOfDay (d)+n 5-4 DateAdd(, n, d) 5-10 System.DateTime 5-3 System.Math 5-11

$5-3 ASPNET\ch05\ch05_03\ ch05_03.$

8 5-3 ASPNET\ch05\ch05_03\ ch05_03.aspx Step 1 Button Button1 Label Step 2 Button1_Click() Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Dim N1() As Double = {3.4, 3.5, 3.6, 8.4, 8.5, 8.6} Dim N1A(5), N1B(5), N1C(5) As Integer Dim N2() As Double = {-3.4, -3.5, -3.6, -8.4, -8.5, -8.6} Dim N2A(5), N2B(5), N2C(5) As Integer For i As Integer = 0 To N1.Length - 1 N1A(i) = Math.Round(N1(i)) N1B(i) = Math.Floor(N1(i)) N1C(i) = Math.Ceiling(N1(i)) Next For i As Integer = 0 To N2.Length - 1 N2A(i) = Math.Round(N2(i)) N2B(i) = Math.Floor(N2(i)) N2C(i) = Math.Ceiling(N2(i)) Next For i As Integer = 0 To N1.Length - 1 ' ' ' 5-12

05 CHAPTER 26 27 28 29 30 31 32 33 34 35 36 37 Label1.Text = Label1.Text & " " & N1A(i) & " " Label2.Text = Label2.Text & " " & N1B(i) & " " Label3.Text = Label3.

9 05 CHAPTER Label1.Text = Label1.Text & " " & N1A(i) & " " Label2.Text = Label2.Text & " " & N1B(i) & " " Label3.Text = Label3.Text & " " & N1C(i) & " " Next For i As Integer = 0 To N2.Length - 1 ' Label4.Text = Label4.Text & " " & N2A(i) & " " Label5.Text = Label5.Text & " " & N2B(i) & " " Label6.Text = Label6.Text & " " & N2C(i) & " " Next timelbl.text = "" & DateTime.Now.ToString() End Sub (1) 14~16. ()Math.Round(N1(i))N1(i) 5-9 (2) 36DateTime NowDateTime ToString() Step 3 1 按下 2 顯示結果 5-13

$nextbytes(barr) r.nextdouble() nn Random n n n1 i n2 barr 255 0~255 i0.0 i 1.0 5-11 System.Random 5-47 1~49 5-4 ASPNET\ch05\ch05_04\ ch05_04.$

10 5.4.5 System.Random VB Rnd Randomize Microsoft. VisualBasic.VBMath.NET Framework System.Random New Random() New Random(n) r.next() r.next(n) r.next(n1,n2) r.nextbytes(barr) r.nextdouble() nn Random n n n1 i n2 barr 255 0~255 i0.0 i System.Random ~ ASPNET\ch05\ch05_04\ ch05_04.aspx Step 1 Button Button1 2 Label 5-14

05 CHAPTER Step 2 Button1_Click() 7 8 9 10 11 12 13 14 15 16 17 18 Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Dim arr(5) As Integer Dim r As New Random() 'r Label1.

11 05 CHAPTER Step 2 Button1_Click() Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Dim arr(5) As Integer Dim r As New Random() 'r Label1.Text = " " For i As Integer = 0 To arr.length - 1 arr(i) = r.next(1, 50) '1~49 Label1.Text &= " " & CStr(arr(i)) & " " Next Label2.Text = " " Label2.Text &= " " & CStr(r.Next(1, 50)) & " " End Sub (1) 13r.Next(1,50)1~49r Random (2) 37 Step 3 1 按下 System.Array 2 顯示結果 ( 有重複的球號 ).NET Framework System.Array 5-15

12 System.Array CLR System.Array New Array Array Array Array arr.length arr Length Array Array 撷 arr.length arr arr.rank Array.Clear(arr) Array.Clear(arr,n1,n2) Array.Copy(arr1, arr2,n) Array.Sort(arr) Array.IndexOf (arr,o) Array.IndexOf (arr,o,n1,n2) Array. BinarySearch (arr,o) Array. BinarySearch(arr,n1,n2,o) arr.reverse() Array.Reverse(arr) arr arr 0 False Nothing n1n2 arr1arr2 n arr o n1 n2 o n1,n2 arr 5-12 System.Array

13 05 CHAPTER 5-5 ASPNET\ch05\ch05_05\ ch05_05.aspx Step 1 Button Button1 3 Label Step 2 Button1_Click() Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Const balls As Integer = 6 ' Dim arr(balls - 1) As Integer Dim arr2(balls - 1) As Integer ' Dim regentimes, num As Integer Dim r As New Random() 'r Label1.Text = "" & CStr(balls) & " " For i As Integer = 0 To arr.length - 1 num = r.next(1, 50) While (Array.IndexOf(arr, num, 0, i) >= 0) ', num = r.next(1, 50) ' regentimes = regentimes + 1 End While arr(i) = num Label1.Text &= " " & CStr(arr(i)) & " " Next Label2.Text = " " num = r.next(1, 50) While (Array.IndexOf(arr, num, 0, balls) >= 0) num = r.next(1, 50) regentimes = regentimes + 1 End While 5-17

14 'num Label2.Text &= " " & CStr(num) & " " Label2.Text &= " " & regentimes & "" ' Array.Copy(arr, arr2, arr.length) ' Array.Sort(arr2) ' arr2 sortlbl.text = " " For i As Integer = 0 To arr2.length - 1 sortlbl.text &= " " & CStr(arr2(i)) & " " Next End Sub (1) 16~20 Array.IndexOf(arr, num, 0, i) (2) 26~30 0 ballsarray. IndexOf(arr, num, 0, balls) (3) 36~4236 arr2 37arr2 (4) balls 48 8balls 48 balls49 Step

05 CHAPTER 1 按下 2 顯示結果 ( 沒有重複的球號 ) 5.4.7 http://msdn.

15 05 CHAPTER 1 按下 2 顯示結果 ( 沒有重複的球號 ) (Development Tools and Languages).NET (.NET Development).NET Framework

16 VB.NET ASP.NET System Microsoft.VisualBasic Microsoft.VisualBasic.Interaction MsgBox() VB ASP.NET VWD MsgBox() JavaScript alert() alert JavaScript 5-20

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1