程式設計的 三個基本結構

sjgau

一 順序
以 兩個變數的值交換作為 範例


二 判斷
以 y= a*(x^2) + b*x + c = 0 求根為例子

三 迴圈
以 加總為 範例

sunnyso

回復 1# sjgau


    有例子嗎? 附件參考? 謝謝

sjgau

' SEQUENTIAL 程式設計結構的 範例

Sub test()
   Dim a As Integer, b As Integer, c As Integer
   Randomize
   ' 設定亂數的 種子數
   
   a = Int(Rnd * 6 + 1)
   b = Int(Rnd * 6 + 1)
   
   ' show a, b
   MsgBox ("a= " & a & ", b= " & b)
   
   ' swap a, b
   c = a
   a = b
   b = c
   
   MsgBox ("a= " & a & ", b= " & b)
End Sub

sjgau

回復 3# sjgau


    Randomize 陳述式
請參閱     範例     特性

初始化亂數產生器。

語法

Randomize [number]

選擇性引數 number 可以是一型態為 Variant 的值或任何數值運算式。

請注意

Randomize 使用 number 的值當成新的亂數種子來起始亂數產生器，若要得到一亂數值，則可呼叫 Rnd 函數。如果省略 number，則會以作業系統現在時間來當做新的亂數種子。

如果沒有呼叫 Randomize 來起始亂數產生器，Rnd 函數(沒有引數)則使用上次呼叫 Rnd 函數所得的亂數值當做新的亂數種子。

附註 若想得到重覆的亂數序列，可以在呼叫 Randomize 之前先呼叫 Rnd 並且傳入一小於 0 的引數值。光是用同樣的亂數種子呼叫 Randomize 兩次的話，並不會得到兩次相同的亂數序列。

sjgau

Rnd 函數
請參閱     範例     特性

傳回一型態為 Single 的值，其內容為一亂數值。

語法

Rnd[(number)]

選擇性引數 number 可以是一型態為 Single 的值，或任何數值運算式。

傳回值

sjgau

看到 RND 傳回 SINGLE, 就很洩氣。
因為 SINGLE的變化，只有 2^24
大約是 10^7, 實在是 不夠用

所以，如果自己寫 RND, 可以有 2^31 的變化，
才比較像是 亂數

sjgau

1. Sub test1016()
   
2.    Randomize
   
3.    Dim a As Single, b As Single, c As Single
   
4.    
   
5.    a = Rnd * 90 + 10
   
6.    b = Rnd * 90 + 10
   
7.    
   
8.    ' show a, b
   
9.    MsgBox (" a= " & a & ", b= " & b)
   
10.    
    
11.    ' 我們 希望 a <= b
    
12.    If (a > b) Then
    
13.       ' 如何把 a, b 的值交換
    
14.       c = a
    
15.       a = b
    
16.       b = c
    
17.       MsgBox ("*** 交換以後 a= " & a & ", b= " & b)
    
18.    End If
    
19. End Sub

複製代碼

回復 7# sjgau

sjgau

1. Sub test1016()
   
2.    Dim no As Integer, sum As Integer, i As Integer
   
3.    Dim chk As Double
   
4.    no = 100
   
5.    
   
6.    sum = 0
   
7.    For i = 1 To no
   
8.       sum = sum + i
   
9.    Next i
   
10.    
    
11.    ' 驗算
    
12.    chk = (1# + no) * (no - 1# + 1#) / 2#
    
13.    MsgBox ("no= " & no & ", sum= " & sum & ", check= " & chk)
    
14. End Sub

複製代碼

回復 8# sjgau