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

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