(一)内建函数.docVIP

ASP 講義 Chapter 5 函數 (一)內建函數 一. 亂數函數 VBScript提供有關內建的亂數副程式有Rnd函數與Randomize敘述兩種： 亂數值函數：Rnd 語法：Rnd 功能：產生介於0到1之間的隨機亂數。 如果不用Randomize敘述來播放亂數的種子，則每次使用Rnd函數時將會得到相同順序的亂數。 上機：使用Rnd函數連續產生五個亂數，連續執行重新整理兩次，觀察所得結果是否一樣。 【程式】 1. % 2. ***********c5_1.asp*********** 3. For i = 1 To 5 4. Response.Write Rnd br 5. Next 6. % 【說明】 第4行：將Rnd亂數函數產生的結果傳回到瀏覽端的網頁上。 產生亂數種子敘述：Randomize 語法：Randomize 功能：在Rnd函數之前使用，以當作亂數產生器的種子。 上機：使用Rnd函數並配合Randomize敘述產生五個亂數，觀察經過兩次執行所得結果是否不同。 【程式】 1. % 2. ***********c5_2.asp*********** 3. Randomize 4. For i = 1 To 5 5. Response.Write Rnd br 6. Next 7. % 二. 整數數值函數 Fix函數 語法：Fix(num1) 功能：取數值變數num1的整數部份，小數部份無條件捨去。 Int函數 語法：Int(num1) 功能：取小於或等於num1的最大整數。 CInt函數 語法：CInt(num1) 功能：取num1的整數部份，而小數第一位四捨六入。 若小數第一位剛好是0.5時，則當num1的個位數是奇數時，則進位；當num1的個位數是偶數時，不用進位。 上機：比較Fix,Int與CInt三種函數，對同一數值的不同表示方式 【程式】 1. % 2. ***********c5_3.asp*********** 3. x = Array(10.49, 10.51, 11.5, 12.5) 4. % 5. table border 6. tr 7. tdx 8. tdFix(x) 9. tdInt(x) 10 tdCInt(x) 11 %For i = 0 To 3% 12 tr 13 td%=x(i)% 14 td%=Fix(x(i))% 15 td%=Int(x(i))% 16 td%=CInt(x(i))% 17 tr 18 td%=-x(i)% 19 td%=Fix(-x(i))% 20 td%=Int(-x(i))% 21 td%=CInt(-x(i))% 22 %Next% 23 /table 上機：使用亂數產生介於11～20之間的五個整數。 【程式】 1. % 2. ***********c5_4.asp*********** 3. Dim x(4) 4. Randomize 5. For i = 0 To 4 6. x(i) = Fix((20 - 11 + 1) * Rnd) + 11 7. Response.Write x(i) br 8. Next 9. % 【說明】 產生介於兩個整數之間的整數亂數，其公式如下： x = Fix((high - low + 1) * Rnd) + low 其中： x ：所產生的整數亂數 high：整數上界 low ：整數下界 產生11～20間的整數之寫法: Fix((20 - 11 + 1) * Rnd) + 11 三. 算術函數 絕對值函數 語法：Abs(num1) 功能：傳回num1的絕對值。 符號函數 語法：Sgn(num1) 功能：判斷num1的正負號，傳回1,等於0,-1 若num1＞0，則Sgn(num1) 傳回值為1。 若num1＝0，則Sgn(num1) 傳回值為0。 若num1＜0，則Sgn(num1) 傳回值為-1。 開平方函數 語法：Sqr(num1) 功能：傳回一個正數num1的平方根值 上機：給予一數值 -0.09，求得Abs，Sgn，Sqr三個函數傳回值 【程式】 1. % 2. ***********c5_5.asp*********** 3. x = -0.09 4. Response.Write Abs( x )= Abs(x) br 5. Response.Write Sgn( x )= sgn(x) br 6. Response.Write