 |
電腦遊戲製作開發設計論壇
任何可以在PC上跑的遊戲都可以討論，主要以遊戲之製作開發為主軸，希望讓台灣的遊戲人有個討論、交流、教學、經驗傳承的園地
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
snowmhiau
常駐此論壇的衛士
註冊時間: 2007-06-09
文章: 116
來自: KEELONG
692.99 果凍幣
|
 發表於: 2008-7-25, AM 12:24 星期五 文章主題: [VB]今天上課老師打的 VB語法看不懂幫忙解釋一下ＯＲＺ。。 |
 |
|
這段是老師示範ＦＯＲ ＮＥＸＴ
| 代碼: | Module Module1
Sub Main()
Dim i, j, k As Byte
Console.Write("九九乘法表")
For i = 1 To 9 Step 1
Console.WriteLine()
For j = 1 To 6 Step 1
k = i * j
Console.Write(Str(i) & " *" & Str(j) & " =" & Str(k) & Space(2))
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module |
這是老師示範 ＤＯ
Loop Until
| 代碼: | Module Module1
Sub Main()
Dim inputPW As String
Dim pw As String = "2A1B"
Dim count As Byte = 1, flag As Byte = 0
Do
Console.Write("請輸入您的通關密碼(不分大小寫)：")
inputPW = Console.ReadLine
If UCase(inputPW) = pw Then
flag = 1
Exit Do
Else
Console.WriteLine("密碼輸入錯誤,請重新輸入,謝謝.......")
Console.WriteLine()
Console.WriteLine()
End If
count += 1
Loop Until count > 3
Console.WriteLine()
If flag = 1 Then
Console.Write("密碼正確,正在登入中...............請稍候")
Else
Console.Write("密碼已輸入 3 次錯誤,請確認您的密碼後,再重新登入,謝謝!!")
End If
Console.ReadLine()
End Sub
End Module |
snowmhiau 在 2008-7-30, PM 4:43 星期三 作了第 2 次修改 |
|
| 回頂端 |
|
 |
babu61509
散播福音的祭司
註冊時間: 2007-08-26
文章: 142
681.01 果凍幣
|
| 發表於: 2008-7-25, AM 9:58 星期五 文章主題: |
|
|
vb好久沒碰了... (6.0以後就沒在動了XD)
看了一下...就大概寫個註解，我忘了vb的註解是瞎咪符號 就將就用C的吧= ="
樓主可以先去看一下這一篇
http://www.gamelife.idv.tw/viewtopic.php?t=659
讓你先學會看指令行 (打
基本上程式都是一行一行跑的= w=
| 引言回覆: |
這段是老師示範ＦＯＲ ＮＥＸＴ
Module Module1
Sub Main() // Main 副程式
Dim i, j, k As Byte // 宣告Byte變數 i,j,k (用Byte 0 .0耶)
Console.Write("九九乘法表") // 輸出
For i = 1 To 9 Step 1 // for迴圈 i 設為 1，每次遞增 1，直到超過 9
Console.WriteLine() // 換行
For j = 1 To 6 Step 1 // for迴圈 j 設為 1，每次遞增 1，直到超過 6 (不是99乘法表嗎= =怎麼只到6 ?)
k = i * j
Console.Write(Str(i) & " *" & Str(j) & " =" & Str(k) & Space(2)) // 輸出 i * j = k 再空2格
Next // 對應 j 的那個for 回到那行執行
Console.WriteLine() // 換行
Next // 對應 i 的那個for 回到那行執行
Console.ReadLine() // 等待使用者輸入(為了看結果用的吧)
End Sub // 副程式 結尾
End Module
這是老師示範 ＤＯ
Loop Until
Module Module1
Sub Main() // Main 副程式
Dim inputPW As String // 宣告 inputPW 為 字串
Dim pw As String = "2A1B" // 宣告 pw 為 字串 並給予初始值
Dim count As Byte = 1, flag As Byte = 0 // 宣告 count,flag 為 Byte 並給予初始值
Do
Console.Write("請輸入您的通關密碼(不分大小寫)：") // 輸出
inputPW = Console.ReadLine // 讀入
If UCase(inputPW) = pw Then // 判斷輸入和pw是否一樣 [UCase() 強制轉成大寫]
flag = 1
Exit Do // 離開 Do loop until 迴圈
Else // 不一樣的話
Console.WriteLine("密碼輸入錯誤,請重新輸入,謝謝.......") // 輸出行
Console.WriteLine() // 換行
Console.WriteLine()
End If // 結束if
count += 1 // count+1 (原來現在vb也能這樣寫阿...)
Loop Until count > 3 // 回到do那邊 直到count > 3 才不回去do
Console.WriteLine() // 換行
If flag = 1 Then
Console.Write("密碼正確,正在登入中...............請稍候")
Else
Console.Write("密碼已輸入 3 次錯誤,請確認您的密碼後,再重新登入,謝謝!!")
End If
Console.ReadLine()
End Sub
End Module
|
_________________
已經畢業了!! |
|
| 回頂端 |
|
|
snowmhiau
常駐此論壇的衛士
註冊時間: 2007-06-09
文章: 116
來自: KEELONG
692.99 果凍幣
|
| 發表於: 2008-7-26, PM 10:07 星期六 文章主題: |
|
|
| 註解的話是 ' |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 可以 在這個版面附加檔案
您 可以 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
