Visual Basic 6 (VB 6) 例題:遊戲 超級猜猜看

超級猜猜看是一個遊戲

規則如下:

兩個人玩，一方出題一方猜。 出題的人要想好一個沒有重複數字的4位數，

不能讓猜得人知道。 猜的人就可以開始猜。

每猜一次，出數者就要根據這個猜測給出幾A幾B，(XAXB)

其中A前面的數字表示位置正確的數的個數，

而B前的數字表示數字正確而位置不對的數的個數。

如正確答案為5234，而猜的人猜5346，則是1A2B，

其中有一個5的位置對了，記為1A，

而3和4這兩個數字對了，而位置沒對，因此記為2B ，

合起來就是1A2B。

接著猜的人再根據出題者的幾A幾B繼續猜，直到猜中為止

它運用到我們前幾個禮拜所學

大家快試著寫看看吧

運用概念: 陣列、條件判斷、迴圈

--

很高興為各位上課

我的mail destiny0920@gmail.com

各位未來有電腦方面或課業方面的問題歡迎跟我討論

Visual Basic 6 (VB 6) 例題:算字元的分數

今天我們如果將a=1,b=2,c=3....以此類推下去，
將單字裏的每個文字依照上面規則轉換成數字再相加起來的話。
知識(knowledge)只有96分，
努力(hardwork)只有98分，
但態度(attitude)卻是100分。

請問東京電力tyo可以得到幾分?

運用函數

Len( ) : 計算字串的長度

Mid( ) : 切字串的位置

Asc( ) : 字元轉為數值

Visual Basic 6 (VB 6) 例題:九九乘法表

九九乘法表

應該是大多數的人都不陌生的一個表

它在我們小學求學生涯中佔了很重要的地位

現在

就讓我們試看看以VB寫一個九九乘法表吧

運用概念：迴圈

寫程式很辛苦嗎?

下課時間玩個小遊戲輕鬆一下

狼羊與捲心菜遊戲

Visual Basic 6 (VB 6) 運用程式:無往不利的抽籤

從小考試考到大

總是會遇到很多回答不出來的題目

這時候的你會怎麼做呢?

老是上課想要點人出來發問，卻不知道要點誰

總是需要做個籤筒，抽出替死羔羊

沒錯 抽籤的運用在生活中就是這麼的廣泛

靠籤筒抽籤?

落伍啦~~~!

在資訊化的E時代中，要用電子骰子抽籤才夠IN !

快做出專屬你自己的抽籤器吧!

運用概念: 亂數

此外 這次的題目著重於函數的使用

必須要用到以下的函數

Randomize

Rnd( )

Int( )

提示: 大家可以先試看看使用Rnd()以及Int()會產生什麼數值

很高興為各位上課

我的mail destiny0920@gmail.com

各位未來有電腦方面或課業方面的問題歡迎跟我討論

Visual Basic 6 (VB 6) 代數互換

在程式設計中

我們常常遇到的一個情況是需要將兩個代數的值交換

假設我們有一個代數為a,另一個代數為b

要怎麼將他們交換呢

試著寫一隻程式將其交換吧

樣板:

Private Sub Command1_Click()

a = Text1.Text

b = Text2.Text

Print a

Print b

End Sub

問題解完之後， 輕鬆一下

玩玩這題中提到的倒水杯遊戲吧

solution:

Private Sub Command1_Click()

a = Text1.Text

b = Text2.Text

Print a

Print b

c = a

a = b

b = c

Print a

Print b

End Sub

Visual Basic 6 (VB 6) 例題:求因數

1.因數的定義？

2.電腦如何找因數

3.找出某數的所有因數

4.程式偵錯

樣板:

Private Sub Form_Activate()

Caption = "求因數與所有因數之和"

N = Val(InputBox("請輸入一個正整數："))

End sub

問題一:

判斷某數是不是五的倍數？

概念: 運用if條件判斷

solution:

Private Sub Form_Activate()

Caption = "求某數是否為5的因數"

N = Val(InputBox("請輸入一個正整數："))

If N Mod 5 = 0 Then

Print "Yes"

Else

Print "NO"

End If

End Sub

問題二:

列出任意數所有的因數

概念: 加入For 迴圈

簡單的For迴圈例子如下:

Private Sub Form_Activate()

Caption = "以for迴圈印出1~n"

n = Val(InputBox("請輸入一個正整數："))

For i = 1 To n

Print i

Next

End Sub

問題三:

列出任意輸入數的所有因數 並顯示因數總合(加上除錯機制)

Private Sub Form_Activate()

Caption = "求因數與所有因數之和"

Do

N = Val(InputBox("請輸入一個正整數："))

If N <= 0 Or N <> Int(N) Then MsgBox "你輸入的不是正整數，請重新輸入！"

Loop Until N > 0 And N = Int(N)

Print "正整數 "; N; " 的因數有："

For i = 1 To N

If N Mod i = 0 Then

Print i; '顯示因數

S = S + i '加總因數

End If

Next

Print '換行用

Print "所有因數之和為 "; S

End Sub

運用概念: 迴圈，條件判斷

Visual Basic 6 (VB 6) 運算符號

VB的運算符號

整理如下

運算符	數學函数	例子
^	指數	2^4=16
*	乘法	4*3=12
/	除法	12/4=3
Mod	整數除除的餘数	15 Mod 4=3
\	整數除法(小數點被去掉）	19\4=4
+ or &	字串串連	"Visual"&"Basic"="Visual Basic"

Visual Basic 6 (VB 6) 條件式與邏輯表示

在程式語言中，邏輯以及條件的表示方式是非常重要的

其中條件式有：

條件式運算子	功能
=	等於
>	大於
<	小於
>=	大於或等於
<=	小於或等於
<>	不等於

可以看出來，除了不等於(<>)之外，其餘的條件式表示法皆與C語言相同

而VB的邏輯運算則有

邏輯運算符	說明
And	兩邊都对
or	只有一邊对
Xor	一邊必須對，但不能兩邊都對
Not	兩邊都不對

Visual Basic 6 (VB 6) For 迴圈

在程式語言中

最常使用的迴圈控制方式非for 迴圈莫屬了

那for迴圈的語法為何呢?

For迴圈的結構如下

For counter=起始值 to 终止值(Step 間隔值)
一或多行的指令行
Next
　

範例

(a) For counter=1 to 10

display.Text=counter

Next

(b) For counter=1 to 1000 step 10

counter=counter+1

Next

(c) For counter=1000 to 5 step -5

counter=counter-10

Next

Visual Basic 6 (VB 6) 例題:放射元素剩餘量

1.    銫-137（英語：Caesium-137，簡稱Cs-137；日語：セシウム137）是元素銫的放射性同位素。主要是經由核分裂生成的核裂產物。銫-137的半衰期約30.17年，就長遠來看，它對人體健康威脅最大。約翰·埃姆斯利（John Emsley）曾在個人著作《大自然的積木（Nature's Building Blocks）》（2001年牛津版）中指出，以銫-137的分解速度，必須100年才能降低至過去1%的水平。

請問若有G公克之同位素銫-137（Cs137）（假設半衰期為30年），

　　(1) 請列印出經過N年後，剩餘的重量為何？（剩餘量＝初始重量G * C^(N/H)

　　　 ，H表放射性同位素之半衰期。C為e^-0.693，e=2.71828）

　　(2) 輸入剩餘重量與初始重量G，求出所要經過的時間？

Visual Basic 6 (VB 6) 第一課

建立一個VB應用程序有三個基本步驟，如下：
第一步：設計界面
第二步：設定物件的屬性
第三步：編寫程式

開啟VB 6之後

第一步必須要開啟一個新的專案

此時就會有一個基本的程式介面 Form1

點擊進去 就會出現編寫程式的介面，顯示如：

Private Sub Form_Load()

End Sub

此時 就可以在上面做設計以及操作

在學習程式語言的時候 通常第一隻程式就是hello world

這樣一支向世界發聲的程式

現在我們就來試試

Private Sub Form_Load()

Form1.Show

Print "Hello world!"

End Sub

執行後的結果