程式設計的三個基本結構

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

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

三迴圈
以加總為範例

樓主熱帖

天下為公

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

2^#

發表於 2013-10-23 21:49 | 只看該作者

回復 1# sjgau

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

ss

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

3^#

發表於 2013-10-27 04:30 | 只看該作者

' 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

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

4^#

發表於 2013-10-27 04:32 | 只看該作者

回復 3# sjgau

Randomize 陳述式
請參閱範例特性

初始化亂數產生器。

語法

Randomize [number]

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

請注意

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

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

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

天下為公

TOP

sjgau