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

九九乘法表

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

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

現在

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

運用概念：迴圈

寫程式很辛苦嗎?

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

狼羊與捲心菜遊戲

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

從小考試考到大

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

這時候的你會怎麼做呢?

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

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

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

靠籤筒抽籤?

落伍啦~~~!

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

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

運用概念: 亂數

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

必須要用到以下的函數

Randomize

Rnd( )

Int( )

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

很高興為各位上課

我的mail destiny0920@gmail.com

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

MSWlogo 程式設計

今天要跟各位介紹的是一套常見於程式設計初學的軟體MSWlogo

不要小看它簡單的介面，它可以畫出來的圖形可是一點都不簡單

以下是軟體載點 MSWlogo

英文版

MSWlogo基本指令

FD 步數

BK 步數

RT 角度

LT 角度

PU

PD

HOME

CLEAN

活動一: 用小海龜畫出一個邊長1oo的正三角形

活動二: 用小海龜畫出一個邊長1oo的正方形

活動三: 畫出一個佛教符號吧

重複結構

重複x次

REPEAT x[ ]

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

PhotoCap 第二講

學會了PhotoCap的基礎運用後

我們可以試著往更多的功能前進

1. 照片濾鏡

使用照片濾淨的功能

我們可以很輕易的做出照片色調的改變(例如黑白照片)

以及一些預設的風格變化

2.修片工具

2-1銳化照片

2-2去除黑班疤痕

3. 大頭照功能

4. 合成

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"