[VB] 初試VB 2010 express

微軟家的下載點

說到VB大概是十年前吧，某熊當時要交個作業，跟著玩玩軟體，發現程式一點都不難，於是乎就一頭栽進寫程式的世界中，跟以前學的完全不同，整個大轉行，後來念得很辛苦；而之後就從來沒正式碰過VB了，當年還是VB6（吧？），現在的微軟為了搶攻市佔率，推出了VB2010 express推廣版，免費下載，看似很優、很有競爭力，但是整個配套的做法也是為了他們自家的市場普及率吧！

學程式，我發現最重要的是決心，就是那種沒有退路的決心，至少當年轉行念資訊的時候我是這樣，不能搞不懂，我就是要會寫。然後為了搭配學校的課程跑去巨匠上C，也好險當時有去上到材哥的C，好老師領進門真的差很多，也許當時宇宙就已經回應了我的願望，決心愈堅定，禮物就愈快！

有學過的同學說第一天上課就實作IF...then....elseif....then....endif 和 for....next 好狠，可我覺得總比寫 hello world！有意義吧？不過還是有跟導師反應一下，看大家都跟得好辛苦。導師是說有請莊老師盡量教，莊老師資歷頗豐，我相信能學到很多東西，尤其我薄弱的邏輯一定可以鍛鍊出來！不過沒有基礎的同學似乎就很困惑了，翻了翻課表VB的時數不算多，如果要練功不知道夠不夠？在長達幾乎五小時的基礎理論跟老師極富磁性的聲音當中，將數值的資料型態好好複習了一次，然而再堅持還是快昏昏睡去，只能邊睡邊聽。

上程式課請準備筆記本和相機（這個今天居然忘記帶），筆記不做沒關係，但要知道功能類別的關鍵字和項目怎麼找，相機就是要拍老師key的程式碼了。

Module Module1

Sub Main()

Dim X As Integer
Dim Y As Integer

Console.Write("Input X: ")
X = Val(Console.ReadLine)
Console.Write("Input Y: ")
Y = Val(Console.ReadLine)
Console.WriteLine("X={0} , Y={1} , X+Y= {2}", X, Y, X + Y)

For i As Integer = 1 To 10
Console.WriteLine("[{0}] X={0} , Y={1} , X+Y= {2}", i, X, Y, X + Y)
Next

If X = Y Then
Console.WriteLine("X equals Y")
ElseIf X > Y Then
Console.WriteLine("X greater than Y")
ElseIf X < Y Then
Console.WriteLine("Y greater than X")
End If

Console.Read()

End Sub
End Module

執行結果。

稍微說明一下，一般寫程式都是在處理輸出和輸入，利用程式做運算或功能需求，依照各種語言的語法來定義會使用到的變數，所謂變數是一個程式內呼叫這個東西的名稱，此範例中用了兩個變數：X Ｙ，而其他的語法就是需要記的東西了，這支程式要做的是讓user輸入兩個數字，取字轉成數值，印出兩者和加總；利用for迴圈輸出出十次；比較兩者大小，學習if用法。

VB 2010中，所有變數使用前都需要宣告，這不就跟C一樣了，資料型態愈來愈複雜，還是說清楚比較好。請注意以下表格中程式拆解出來的語法，語法是要有印象會找出來的。今天學習到的方式是利用終端機直接 try 程式，所以都不支援中文。

語法	程式	說明
Dim 變數名稱 As 資料型態	Dim X As Integer	宣告X變數為int數值
Console.Write("要顯示的字串")	Console.Write("Input X: ")	利用console終端機畫面寫出"當中的字串"，請user輸入X
變數 = Val(Console.ReadLine)	X = Val(Console.ReadLine)	readline:讀入列中的資料，進來的都是字串 Val:將字串轉換成數字 X=將前面得出來的數字丟到X變數
Console.WriteLine("輸出文字", 代變數)	Console.WriteLine("X={0} , Y={1} , X+Y= {2}", X, Y, X + Y)	"字串"中要帶的變數利用{大括號}包起來給index,後面就依照要顯示的順序下變數,也可以包含運算在裡頭,write和writeline的差別在於line完會換行
For 計數變數 As Integer = 開始 To 結束 ........ Next	For i As Integer = 1 To 10 Console.WriteLine("[{0}] X={0} , Y={1} , X+Y= {2}", i, X, Y, X + Y) Next	for迴圈的counter大多用i j k 來命名，能分辨都OK，先宣告i為int，要從1開始累加一到10，總共十次，每次都輸出下面的字串，寫完要做的事後必須告訴電腦可以做下面的了，ＶＢ的for最後要加Next
If 條件一 Then 符合條件一的敘述 ElseIf 條件二 Then 符合條件二的敘述 ElseIf 條件三 Then 符合條件三的敘述 End If	If X = Y Then Console.WriteLine("X equals Y") ElseIf X > Y Then Console.WriteLine("X greater than Y") ElseIf X < Y Then Console.WriteLine("Y greater than X") End If	判別X與Y是否相等，當符合X=Y時，輸出X equals Y，接著往下走當符合X > Y時，輸出X greater than Y，再判斷當符合X < Y時，輸出Y greater than X

仔細看完說明應該看得懂這支程式了，我就收工了。

.vb檔下載
.txt檔下載