sjgau

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

程式設計的三個基本結構

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

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

三迴圈
以加總為範例

樓主熱帖

天下為公

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

8^#

發表於 2013-10-28 11:22 | 只看該作者

Sub test1016()
Dim no As Integer, sum As Integer, i As Integer
Dim chk As Double
no = 100
sum = 0
For i = 1 To no
sum = sum + i
Next i
' 驗算
chk = (1# + no) * (no - 1# + 1#) / 2#
MsgBox ("no= " & no & ", sum= " & sum & ", check= " & chk)
End Sub

複製代碼

回復 8# sjgau

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2013-10-28 10:53 | 只看該作者

Sub test1016()
Randomize
Dim a As Single, b As Single, c As Single
a = Rnd * 90 + 10
b = Rnd * 90 + 10
' show a, b
MsgBox (" a= " & a & ", b= " & b)
' 我們希望 a <= b
If (a > b) Then
' 如何把 a, b 的值交換
c = a
a = b
b = c
MsgBox ("*** 交換以後 a= " & a & ", b= " & b)
End If
End Sub

複製代碼

回復 7# sjgau

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2013-10-28 06:28 | 只看該作者

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

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

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

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

Rnd 函數
請參閱範例特性

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

語法

Rnd[(number)]

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

傳回值

天下為公

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

版主 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

sunnyso