苹果IPOD VIDEO破解~！！！！！！

http://www.cngba.com/viewthread.php?tid=16851221


发表于 2007-6-28 18:08 只看该作者

苹果IPOD VIDEO破解~！！！！！！
MOC - 所有12款游戏破解，1、2代都适用

以下为详细步骤：

以下内容跟帖回复才能看到
==============================

一、在windows系统下

1、在windows系统下接入5Gen ipod，itunes会自动开启（确认ipod的Firmware为1.2 或更高），调成“手动管理我的ipod“，然后退出itunes。

2、打开ipod所显示的盘符（比如f:\\），在“文件夹选项“中，选中“显示隐藏文件和文件夹“，就会看到一个文件夹名为“ipod_Control“，双击打开。

3、建立一个文件夹“Games_RO“。

二、在winrar浏览窗口中

打开winrar软件（一般我们都是直接双击压缩文件弹出winrar浏览窗口，但是对于ipg文件，我们只能先打开软件，当然，改后缀名也是可以的），把4个ipg文件解压到前面提到的“Games_RO“目录里，解压后的文件名对应如下：（假设ipod所显示的盘符是f:\\）

1、Bejeweled 1.0.ipg解压至 f:\\ipod_Control\Games_RO\55555

2、Mahjong 1.0.ipg解压至 f:\\ipod_Control\Games_RO\77777
3、Pacman 1.0.ipg解压至 f:\\ipod_Control\Games_RO\AAAAA
4、Ms.Pacman.ipg解压至 f:\\ipod_Control\Games_RO\14004
5、Sudoku 1.0.ipg解压至 f:\\ipod_Control\Games_RO\50513

6、MiniGolf 1.0.ipg解压至 f:\\ipod_Control\Games_RO\88888
7、Cubis 2 1.0.ipg解压至 f:\\ipod_Control\Games_RO\99999
8、Royal Solitaire 1.0.ipg解压至 f:\\ipod_Control\Games_RO\50514
9、Vortex 1.0.ipg 解压到 f:\\ipod_Control\Games_RO\12345
10、Texas Hold 'Em 1.0.ipg 解压到 f:\\ipod_Control\Games_RO\33333

11、Zuma 1.0.ipg 解压到 f:\\ipod_Control\Games_RO\44444
12、Tetris 1.0.ipg 解压到 f:\\ipod_Control\Games_RO\66666
三、运用ipodwizard刷新接入的ipod的Firmware


其实熟悉ipodwizard的人对于这一步的操作应该是非常简单的，但大多数人都不会经常使用它的，所以我会尽可能详细地介绍每一步，以免大家还要到网上搜索。
1、本软件不需要安装，一代用户下载“ipodwizard－beta.zip“，二代用户下载“ipodwizard-v1.2d-beta.zip“，解压后，直接点击ipodwizard.exe即可打开软件。
2、在最上方的菜单项“Edit Mode“下选择“Firmware File“，点击“Open Firmware“，一代用户选择“Firmware5GPatched.bin“，二代用户选择“Firmware5.5GPatched.bin“，然后等待文件载入（大约10秒钟）。
3、载入后，点击下面的“Write to ipod“，等待刷新，成功后有提示。

四、大功告成，安全卸载ipod，享受免费的午餐吧。

我在ipod Game板块已经发表这个主题有一段时间了，看到这里人气比较旺就顺便贴到这里了，

以前的文章及回复大家可以参见

http://www.91apple.com/viewthrea ... &extra=page%3D1

http://www.91apple.com/viewthrea ... &extra=page%3D1

http://www.91apple.com/viewthrea ... &extra=page%3D1

==============================
已经有很多人下载并安装成功了

希望大家通过各种渠道把这些文件播撒到每一个身边的、网络的、认识的与不认识的ipoder手中，
我们应该玩免费的游戏，我们应该与世界上其他国家的人一样，充分享受我们手中的ipod!

PS3破解什么时候来到呢~！！！！！！！！！yxh100

我自己已经用IPOD 80G测试完所有游戏 十分的爽 休闲极品 单手操作 就是安逸

就不上我的WII XBOX360 PSP NDSL IPOD了 免得被大淫们说是晒命贴~！

低调 低调 我飘~！！！！！！！！！yxh100

ftp://ftp1.lao100.cn/第一代刷机文件和软件.zip

ftp://ftp1.lao100.cn/第二代刷机文件和软件.zip

下载张号 密码 qqaassw

复制后迅雷 测试可以下载

ipod游戏破解

ipod游戏破解
刚从国外网站看来的，不只能不能用。在隐藏文件夹iPod_Control中建三个文件夹：Games_RO GameStats_RO GameData_RW 在Games_RO中分别建立十一个游戏的文件夹： 12345 - Vortex 33333 - Texas Hold 'Em 44444 - Zuma 50513 - Sudoku 50514 - Royal Solitaire 55555 - Bejeweled 66666 - Tetris 77777 - Mahjong 88888 - Mini Golf 99999 - Cubis 2 AAAAA - Pac-Man 分别把下载的游戏放入文件夹中 把后缀改为.zip 在iPod_Control下的iTunes文件夹中更新IC-Info.sidb和iEKInfo 弹出ipod ok!!!!!!!!!!!!!!!! 注：不使用itunes

iPod Touch 2代 完整 JB 破解教學手冊 (redsn0w 101 & runrs to Un-Tethered)

http://blog.mowd.idv.tw/index.php?pl=744

1. 系統需求分析的內容主要有哪些？

功能 (Function)：功能就是使用者希望將來資訊系統能做的事情，比如在採購資訊系統裡，採購人員必須可以做供應商資料的新增、修改、刪除以及查詢等工作，或是做採購單的新增、修改、刪除以及查詢等工作。模組 (Module)：相似的功能可以整合成一個模組，比如說，採購系統中可以有供應商資料管理、採購單管理、請購單管理、供應商信用評等等功能，讓資訊系統的開發，更容易分組進行。資料 (Data)： 資料可由兩個角度來看，一個是需要被輸入資訊系統處理的資料，另一個是被資訊系統處理完的結果資料。 需求分析要整理出有哪些資料需要被輸入到資訊系統處理，比如在採購系統中的供應商資料，包括供應商編號、名稱、聯絡人、電話、地址、統一編號等等，通常這些資料會在既有的表單或是文件裡，因為手動的作業，就是透過表單或是文件，做資料的處理，舊有的表單即是設計來收集、處理這些資料的。 資訊系統應該要產生哪些資料，比如說是營業統計或是報表、表單之類的，由資訊系統到資料庫去存取資料，透過應用程式的過濾、計算、加總等作業，產生資料輸出。 作業流程 (Operation process)：研究既有的企業作業流程，分析作業瓶頸或是問題，必要時還需設計新的作業流程，期待以新的資訊系統來獲得改善。在需求分析裡，需要根據改善後的作業程序與使用人員的操作步驟，將未來資訊系統裡的作業流程步驟解析，了解誰在什麼條件下需要做怎樣的資料處理；作業流程通常使用流程圖來架構。 使用者 (User) 與權限 (Authority)：需求分析時，應該將使用者的種類、權限分析清楚，將來開發出來的資訊系統，才能滿足不同使用者的不同需求。 安全性 (Security)：不同資訊系統對於安全性的需求不同，有些資訊系統的安全性需求很高，比如說銀行的資訊系統，每一筆資料可能關係著上千萬的金額，無論是資料的新增、修改、交換或是查詢，都必須經過嚴格的驗證 效能 (Performance)：主要是關於系統的反應速度，系統的回應速度應該要配合該功能的需求， 比如說POS系統在現場結帳時，由系統中查詢產品價格的反應時間不能太長。 又比如說企業網站系統，當使用者點選某個超連結時，等待新網頁出現的時間不能太長，因此在需求分析階段使用者就可以提出需求，比如說不能超過7秒鐘等。 容量 (Capacity)：資訊系統處理的是資料，因此絕對要有足夠的資料儲存容量，在此階段需要估算系統可能產生的資料量，才能建置符合需求的儲存裝置；另外，也需要估算有多少使用者會同時上線，因為系統的建置規格會因此而有所不同。

1. 舉出系統開發的主要成本及主要效益有哪些？

主要成本：開發成本：開發系統或是購買系統時需要的成本 開發人員的薪水：開發團隊所投入的時間，換算成小時數和每位成員的時薪，可以估算出開發人員的成本。 顧問人員的成本：通常顧問人員的薪水是以小時計算。 教育及培訓的成本： 開發人員的專業培訓費用。 使用者的操作教育訓練費用。 軟體成本：開發資訊系統所需要的軟體 作業系統：應考慮使用者人數，決定購買版權的數量。 資料庫管理系統：購買伺服器版權以及足量的使用者帳戶授權。 應用軟體：已經開發好的元件或軟體。 程式語言：用來開發或修改應用軟體時，所需特定程式語言之開發工具或發展環境。 硬體成本：支援開發系統所需的硬體 主機：包含應用軟體主機、資料庫主機、備援主機等。 PC：包含開發人員和終端使用者的機器。 網路： 企業內部的網路，包含連結主機間、主機和PC、PC和PC間的企業基礎建置。 企業和外部的網路連結，包含連結費用和使用費用。 其他硬體設備：包括印表機、掃描器、硬碟機等。 運作成本：完成資訊系統的開發及導入之後，操作資訊系統的成本、以及維護系統所要花費的成本 教育訓練和培訓成本：在系統上線之後，教育訓練和培訓還是要持續進行，每年的教育訓練和培訓的成本必須要估算。 軟體使用的成本：資訊系統所使用的作業系統、資料庫、應用軟體等的執照和使用費用，必須要加以計算，一般來說會和軟體廠商談每年的使用費用，也包含維護費用。 資訊系統的維護成本：在新的資訊系統導入之後，要由企業內部的MIS/IT人員支援運作、修改不適合的部分、新增局部功能等工作，這些都是需要評估的維護成本。主要效益：資訊系統的效益可以分成兩個部分：有形效益 (Tangible benefits) 和無形效益 (Intangible benefits)。資訊系統的有形效益資訊系統能為企業帶來的有形效益包括： 生產力的增加資訊系統來協助生產的作業流程，比如說在生產機器的控制上，增加成品的良率或是協助倉儲的物料控管等作業，都可以由所增加的成品產量來估算：每台機器平均一天可以增加多少產量，乘以每個產品的價值，再乘上每年工作天數，便可估算出量化的年生產力增加效益。 作業成本的降低採用資訊系統而加速作業的流程，比如說倉儲資訊系統可以加速庫存管理人員做撿貨、出貨的作業，使得每項作業平均都能減少一些時間，而加速出貨的速度，如此同樣的作業人員可以做更多的工作。若以每個作業為單位來估算可以降低的成本，再算出平均每天的作業數目，就可以算出每年省下的作業成本有多少。 人力成本的節省人力成本的節省和作業成本的降低是一體的兩面，以人力為單位算出因為新的資訊系統而節省的時間，再估算出平均的單位人力成本，就可以得到節省下來的人力成本。比如訂單的處理，只要先估算出導入系統後每張訂單的平均處理時間，然後與原本處理每張訂單的人力時間相較，算出處理每張訂單平均可以節省多少時間，再乘以處理人員的平均時薪，就可以估算出節省的人力成本。另外要特別小心的是，在做效益分析敘述的時候，有關人力成本的節省，千萬不能讓使用者有被資訊系統取代的感覺！資訊系統所能做的是加速及協助企業員工的作業，提供有效即時的資訊，以供決策者參考，所節省下來的人力能做更有效的運用，比如增進員工的技能、組織學習和團隊合作等，員工的職能可更進一步提升，為企業做更有效的貢獻。 事務性費用的減少由於採用新的資訊系統，部門之間或是企業之間原本手動的事務性業務，如文件表單的製作和傳遞，所需的紙張、文具用品、表單的印刷、郵遞的費用… 等耗材成本都能大幅度的節省。這也是資訊系統所能帶給企業的效益之一，而且可以以平均的作業數量估算出每年可以節省的成本。資訊系統的無形效益資訊系統也能為企業帶來無形的效益，既然是無形的，自然就不容易量化，只能用文字的描述來形容，較常見的效益包括： 增進組織的資源運用 提高決策的品質 提供即時的決策資訊支援 增進組織的作業彈性 增加組織學習 增加工作的滿意度 增加顧客的滿意度 提高顧客的轉換成本 形成市場進入的障礙 提高企業形象 提高企業競爭力

972 0330

1. The children are at school.(at home)
 The children aren’t at home.
2. You must give this letter to Ann.(her mother)
 You mustn’t give this letter to her mother.
3. I could talk when I was two years old.(swim)
 I couldn’t swim when I was two years old.
英文 中文 英文 中文
circle 圓形 zoo 動物園
round 圓的 monkeys 猴子(複數)
square 正方形 cage 籠子
inside 裡面 bear 熊
triangle 右邊 tiger 老虎
below 三角形 lion 獅子
blackboard 黑板 elephant 大象
plate 盤子 insects 昆蟲(複數)
table 桌子 ant 螞蟻
foks 叉子 butterfly 蝴蝶
knife 刀子 fly 蒼蠅
spoon 湯匙 bee 蜜蜂
glass 杯子
4. We were in London yesterday.(Birmingham)
 We won’t in Birmingham yesterday.
5. Joe has been to Japan.(Egypt)
 Joe hasn’t been to Egypt.
6. Cats eat meat.(potatoes)
 Cats don’t eat potatoes.
7. Shakespeare lived in London.(New York)
 Shakespeare didn’t live in New York.
8. The earth goes round the sun.(round the moon)
 The earth doesn’t go round the moon.
9. The Second World War ended in 1945.(1955)
 The Second World War didn’t in 1955.
10. John knows my parents.(my sister)
 John doesn’t know my sister.
11. He has brothers.(sisters)
 He doesn’t have sisters.
12. They always told lies.(the truth)
 They didn’t always tell the truth.
13. These grapes taste sweet.(sour)
 These grapes doesn’t taste sour.
14. We have time.(money)
 We don’t have money.
15. He had a camera.(personal computer)
 He didn’t have a personal computer.
16. Milk is white.(red)
 Milk isn’t red.
17. I will be here tomorrow.(in the office)
 I won’t be in the office tomorrow.
18. Dictionaries tell you about words.(phone books)
 Dictionaries don’t tell you about phone books.

28

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Tot As Integer
Tot = Val(TextBox1.Text) + (TextBox2.Text)
TextBox3.Text = Tot

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Tot As Integer
Tot = Val(TextBox1.Text) - (TextBox2.Text)
TextBox3.Text = Tot
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Tot As Integer
Tot = Val(TextBox1.Text) * (TextBox2.Text)
TextBox3.Text = Tot
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Tot As String
Tot = Val(TextBox1.Text) / (TextBox2.Text)
TextBox3.Text = Tot
MsgBox(TextBox1.Text & "/" & TextBox2.Text & "=" & Tot)
End Sub

+2+4+6=12

Dim I As Integer
Dim S As Integer
Dim M As String

For I = Val(TextBox1.Text) To Val(TextBox2.Text) Step Val(TextBox3.Text)

S = I + S
M = M & "+" & I
Next

MsgBox(M & "+" & S)

0106

Dim a(10) As Integer
Dim i, j, k, b, c, tot, f, s As Integer
a(8) = Val(TextBox2.Text)
a(7) = Val(TextBox3.Text)
a(6) = Val(TextBox4.Text)
a(5) = Val(TextBox5.Text)
a(4) = Val(TextBox6.Text)
a(3) = Val(TextBox7.Text)
a(2) = Val(TextBox8.Text)
a(1) = Val(TextBox9.Text)
If TextBox1.Text = "A" Or TextBox1.Text = "a" Then
k = 0
b = 1
End If
If TextBox1.Text = "B" Or TextBox1.Text = "b" Then
k = 1
b = 1
End If
If TextBox1.Text = "C" Or TextBox1.Text = "c" Then
k = 2
b = 1
End If
If TextBox1.Text = "D" Or TextBox1.Text = "d" Then
k = 3
b = 1
End If
If TextBox1.Text = "E" Or TextBox1.Text = "e" Then
k = 4
b = 1
End If
If TextBox1.Text = "F" Or TextBox1.Text = "f" Then
k = 5
b = 1
End If
If TextBox1.Text = "S" Or TextBox1.Text = "s" Then
k = 6
b = 2
End If
c = b * 1 + k * 9
For i = 8 To 1 Step -1
j = j + a(i) * i
Next
tot = c + j
f = tot Mod 10
s = 10 - f
If TextBox10.Text = s Then
MsgBox("ID正確")
Else
MsgBox("ID錯誤,正確為" & TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & TextBox6.Text & TextBox7.Text & TextBox8.Text & TextBox9.Text & s)
End If

0105

Dim a(2) As Integer
Dim b(2) As Integer
Dim c, d, f, g As Integer

f = 0
g = 0
a(0) = TextBox1.Text
a(1) = TextBox2.Text
a(2) = TextBox3.Text
b(0) = TextBox4.Text
b(1) = TextBox5.Text
b(2) = TextBox6.Text
For c = 0 To 2
For d = 0 To 2

If a(c) = b(d) Then
If c = d Then


f = f + 1

Else
g = g + 1

End If
End If

Next


Next
Label1.Text = TextBox4.Text & TextBox5.Text & TextBox6.Text & "=" & f & "A" & g & "B"

1110-99乘法程式 lamg

Dim I As Integer
Dim Sum As Integer
Dim myshow As String

Sum = 0
myshow = ""

For I = Val(TextBox1.Text) To Val(TextBox2.Text) Step Val(TextBox3.Text)

Sum = Sum + I


myshow = myshow & I
If I + Val(TextBox3.Text) <= Val(TextBox2.Text) Then
myshow = myshow & "+"
End If


Next I
myshow = myshow & "=" & Sum
MsgBox(myshow)

建立SQL敘述新增一筆資料表記錄-2

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'ToyDataSet.toy' 資料表。您可以視需要進行移動或移除。
Me.ToyTableAdapter.Fill(Me.ToyDataSet.toy)
ShowRecord(0)
Button4.Enabled = False : Button5.Enabled = False
End Sub
Sub ShowRecord(ByVal pos As Integer)
Dim objRow As DataRow
If pos >= 0 Then
' 取得DataRow物件的記錄
objRow = Me.ToyDataSet.toy.Rows(pos)
' 顯示記錄資料
TextBox1.Text = objRow("Number")
TextBox2.Text = objRow("Name")
TextBox3.Text = objRow("quantity")
TextBox4.Text = objRow("Price")
TextBox5.Text = objRow("stockdate")

End If
End Sub


Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ShowRecord(ListBox1.SelectedIndex) ' 顯示記錄
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 設定狀態
TextBox1.ReadOnly = False : Button2.Enabled = False
Button3.Enabled = False : Button4.Enabled = True
Button5.Enabled = True
TextBox1.Text = "" : TextBox2.Text = ""
TextBox3.Text = "" : TextBox4.Text = ""
TextBox5.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strSQL As String
If MsgBox("確定刪除記錄:" & TextBox1.Text, _
MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
' 建立SQL刪除記錄資料
strSQL = "DELETE FROM toy WHERE Number ='"
strSQL &= TextBox1.Text & "'"
ExecuteSQL(strSQL) ' 執行SQL
Me.ToyTableAdapter.GetData()
Me.ToyTableAdapter.Fill(Me.ToyDataSet.toy)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strSQL As String
' 建立SQL敘述更新資料庫記錄

strSQL = "update toy set Name='" & TextBox2.Text & "',"
strSQL &= "quantity='" & TextBox3.Text & "',"
strSQL &= "Price=" & TextBox4.Text & ","
strSQL &= "stockdate=#" & TextBox5.Text & "#"
strSQL &= " where Number='" & TextBox1.Text & "'"


'strSQL = "UPDATE toy SET "
'strSQL &= "Name='" & TextBox2.Text & "',"
'strSQL &= "quantity='" & TextBox3.Text & "',"
'strSQL &= "Price=" & TextBox4.Text & ","
'strSQL &= "Stock date=#" & TextBox5.Text & "#"
'strSQL &= " WHERE Number='" & TextBox1.Text & "'"
ExecuteSQL(strSQL) ' 執行SQL
Me.ToyTableAdapter.GetData()
Me.ToyTableAdapter.Fill(Me.ToyDataSet.toy)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim strSQL As String
' 建立SQL敘述新增一筆資料表記錄
strSQL = "INSERT INTO toy (Number, Name" & _
",quantity, Price, stockdate) "

strSQL &= "VALUES ('" & TextBox1.Text & "','"
strSQL &= TextBox2.Text & "',"
strSQL &= TextBox3.Text & ","
strSQL &= TextBox4.Text & ","
'strSQL &= TextBox4.Text & ")"
strSQL &= "#" & TextBox5.Text & "#)"
ExecuteSQL(strSQL) ' 執行SQL
TextBox1.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
Me.ToyTableAdapter.GetData()
Me.ToyTableAdapter.Fill(Me.ToyDataSet.toy)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
ShowRecord(ListBox1.SelectedIndex)
End Sub
End Class

Windows Form 設計工具的必要項

_
Partial Class Form1
Inherits System.Windows.Forms.Form

'Form 覆寫 Dispose 以清除元件清單。
_
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub

'為 Windows Form 設計工具的必要項
Private components As System.ComponentModel.IContainer

'注意: 以下為 Windows Form 設計工具所需的程序
'可以使用 Windows Form 設計工具進行修改。
'請不要使用程式碼編輯器進行修改。
_
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.Label1 = New System.Windows.Forms.Label
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.ToyBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.ToysDataSet = New _954026105_20080524.toysDataSet
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.TextBox5 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.ToyTableAdapter = New _954026105_20080524.toysDataSetTableAdapters.toyTableAdapter
CType(Me.ToyBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToysDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(65, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "產品清單："
'
'ListBox1
'
Me.ListBox1.DataSource = Me.ToyBindingSource
Me.ListBox1.DisplayMember = "Name"
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.ItemHeight = 12
Me.ListBox1.Location = New System.Drawing.Point(15, 28)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(440, 196)
Me.ListBox1.TabIndex = 1
Me.ListBox1.ValueMember = "Number"
'
'ToyBindingSource
'
Me.ToyBindingSource.DataMember = "toy"
Me.ToyBindingSource.DataSource = Me.ToysDataSet
'
'ToysDataSet
'
Me.ToysDataSet.DataSetName = "toysDataSet"
Me.ToysDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(15, 247)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(41, 12)
Me.Label2.TabIndex = 2
Me.Label2.Text = "編號："
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(15, 280)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(41, 12)
Me.Label3.TabIndex = 3
Me.Label3.Text = "名稱："
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(17, 315)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(41, 12)
Me.Label4.TabIndex = 4
Me.Label4.Text = "數量："
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(15, 344)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(41, 12)
Me.Label5.TabIndex = 5
Me.Label5.Text = "價格："
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(15, 375)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 12)
Me.Label6.TabIndex = 6
Me.Label6.Text = "進貨日期："
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(100, 236)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(161, 22)
Me.TextBox1.TabIndex = 7
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(100, 269)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(355, 22)
Me.TextBox2.TabIndex = 8
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(100, 304)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(161, 22)
Me.TextBox3.TabIndex = 9
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(100, 341)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(161, 22)
Me.TextBox4.TabIndex = 10
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(100, 375)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(161, 22)
Me.TextBox5.TabIndex = 11
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(302, 303)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 12
Me.Button1.Text = "新增記錄"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(400, 302)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 13
Me.Button2.Text = "刪除記錄"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(500, 304)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 14
Me.Button3.Text = "更新記錄"
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(301, 363)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 15
Me.Button4.Text = "確定"
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(467, 363)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 23)
Me.Button5.TabIndex = 16
Me.Button5.Text = "取消"
Me.Button5.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(467, 28)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(121, 196)
Me.PictureBox1.TabIndex = 17
Me.PictureBox1.TabStop = False
'
'ToyTableAdapter
'
Me.ToyTableAdapter.ClearBeforeFill = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(600, 416)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.ToyBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToysDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents ToysDataSet As _954026105_20080524.toysDataSet
Friend WithEvents ToyBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents ToyTableAdapter As _954026105_20080524.toysDataSetTableAdapters.toyTableAdapter

End Class

建立SQL敘述新增一筆資料表記錄-1

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'ToysDataSet.toy' 資料表。您可以視需要進行移動或移除。
Me.ToyTableAdapter.Fill(Me.ToysDataSet.toy)
ShowRecord(0)
Button4.Enabled = False : Button5.Enabled = False
End Sub
Sub ShowRecord(ByVal pos As Integer)
Dim objRow As DataRow
If pos >= 0 Then
' 取得DataRow物件的記錄
objRow = Me.ToysDataSet.toy.Rows(pos)
' 顯示記錄資料
TextBox1.Text = objRow("Number")
TextBox2.Text = objRow("Name")
TextBox3.Text = objRow("Price")
TextBox4.Text = objRow("quantity")
TextBox5.Text = objRow("stockdate")

End If
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ShowRecord(ListBox1.SelectedIndex) ' 顯示記錄
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 設定狀態
TextBox1.ReadOnly = False : Button2.Enabled = False
Button3.Enabled = False : Button4.Enabled = True
Button5.Enabled = True
TextBox1.Text = "" : TextBox2.Text = ""
TextBox3.Text = "" : TextBox4.Text = ""
TextBox5.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strSQL As String
If MsgBox("確定刪除記錄:" & TextBox1.Text, _
MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
' 建立SQL刪除記錄資料
strSQL = "DELETE FROM toy WHERE Number ='"
strSQL &= TextBox1.Text & "'"
ExecuteSQL(strSQL) ' 執行SQL
Me.ToyTableAdapter.GetData()
Me.ToyTableAdapter.Fill(Me.ToysDataSet.toy)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strSQL As String
' 建立SQL敘述更新資料庫記錄

strSQL = "update toy set Name='" & TextBox2.Text & "',"
strSQL &= "Price='" & TextBox3.Text & "',"
strSQL &= "quantity=" & TextBox4.Text & ","
strSQL &= "stockdate=#" & TextBox5.Text & "#"
strSQL &= " where Number='" & TextBox1.Text & "'"


'strSQL = "UPDATE toy SET "
'strSQL &= "Name='" & TextBox2.Text & "',"
'strSQL &= "quantity='" & TextBox3.Text & "',"
'strSQL &= "Price=" & TextBox4.Text & ","
'strSQL &= "Stock date=#" & TextBox5.Text & "#"
'strSQL &= " WHERE Number='" & TextBox1.Text & "'"
ExecuteSQL(strSQL) ' 執行SQL
Me.ToyTableAdapter.GetData()
Me.ToyTableAdapter.Fill(Me.ToysDataSet.toy)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim strSQL As String
' 建立SQL敘述新增一筆資料表記錄
strSQL = "INSERT INTO toy (Number, Name" & _
",Price, quantity , stockdate) "

strSQL &= "VALUES ('" & TextBox1.Text & "','"
strSQL &= TextBox2.Text & "',"
strSQL &= TextBox3.Text & ","
strSQL &= TextBox4.Text & ","
'strSQL &= TextBox4.Text & ")"
strSQL &= "#" & TextBox5.Text & "#)"
ExecuteSQL(strSQL) ' 執行SQL
TextBox1.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
Me.ToyTableAdapter.GetData()
Me.ToyTableAdapter.Fill(Me.ToysDataSet.toy)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
ShowRecord(ListBox1.SelectedIndex)
End Sub
End Class

開啟資料庫連結*執行SQL指令

Imports System.Data.OleDb
Module Module1
Function ExecuteSQL(ByVal strSQL As String) As Integer
Dim objCon As OleDbConnection
Dim objCmd As OleDbCommand
Dim intRowsAffected As Integer
Dim strDbCon As String
strDbCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=toys.mdb"
Try
objCon = New OleDbConnection(strDbCon)
objCon.Open() ' 開啟資料庫連結
objCmd = New OleDbCommand(strSQL, objCon)
' 執行SQL指令
intRowsAffected = objCmd.ExecuteNonQuery()
objCon.Close()
Catch ex As Exception
MsgBox(strSQL)
End Try
Return intRowsAffected
End Function
End Module

建立SQL敘述新增一筆資料表記錄

Public Class Form1

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
'showrecord(0)
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
showrecord(ListBox1.SelectedIndex)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'FunDataSet1.fun' 資料表。您可以視需要進行移動或移除。
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
showrecord(0)
End Sub
Sub showrecord(ByVal pos As Integer)
Dim objrow As DataRow
If pos >= 0 Then
objrow = Me.FunDataSet1.fun.Rows(pos)
TextBox2.Text = objrow("modeino")
TextBox3.Text = objrow("name")
TextBox4.Text = objrow("storage")
TextBox5.Text = objrow("price")
TextBox6.Text = objrow("color")
TextBox1.Text = objrow("stockdate")
Button2.Enabled = True : Button3.Enabled = True
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strsql As String
strsql = "update fun set name='" & TextBox3.Text & "',"
strsql &= "storage='" & TextBox4.Text & "',"
strsql &= "price=" & TextBox5.Text & ","
strsql &= "color='" & TextBox6.Text & "',"
strsql &= "stockdate=#" & TextBox1.Text & "#"
strsql &= " where modeino='" & TextBox2.Text & "'"
aaa(strsql)
Me.FunTableAdapter.GetData()
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strsql As String
If MsgBox("確定刪除：" & TextBox2.Text, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
strsql = "delete from fun where modeino='"
strsql &= TextBox2.Text & "'"
aaa(strsql)
Me.FunTableAdapter.GetData()
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' 建立SQL敘述新增一筆資料表記錄
Dim strsql As String
strsql = "INSERT INTO fun (modeino, name" & _
",storage, price, color, stockdate) "
strsql &= "VALUES ('" & TextBox2.Text & "','"
strsql &= TextBox3.Text & "',"
strsql &= TextBox4.Text & ","
strsql &= TextBox5.Text & ",'"
strsql &= TextBox6.Text & "',"
strsql &= "#" & TextBox1.Text & "#)"
aaa(strsql) ' 執行SQL
TextBox2.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
Me.FunTableAdapter.GetData()
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox2.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
showrecord(ListBox1.SelectedIndex)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 設定狀態
TextBox2.ReadOnly = False : Button2.Enabled = False
Button3.Enabled = False : Button4.Enabled = True
Button5.Enabled = True
TextBox2.Text = "" : TextBox3.Text = ""
TextBox4.Text = "" : TextBox5.Text = ""
TextBox6.Text = "" : TextBox1.Text = ""
End Sub
End Class

資料庫連結 SQL+VB

Imports System.Data.OleDb

Module Module1

Function ExecuteSQL(ByVal strSQL As String) As Integer
Dim objCon As OleDbConnection
Dim objCmd As OleDbCommand
Dim intRowsAffected As Integer
Dim strDbCon As String
strDbCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=iPods.mdb"
Try
objCon = New OleDbConnection(strDbCon)
objCon.Open() ' 開啟資料庫連結
objCmd = New OleDbCommand(strSQL, objCon)
' 執行SQL指令
intRowsAffected = objCmd.ExecuteNonQuery()
objCon.Close()
Catch ex As Exception
MsgBox(strSQL)
End Try
Return intRowsAffected
End Function

End Module

資料庫 SQL+VB

Public Class Form190

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.IPodTableAdapter.Fill(Me.IPodsDataSet.iPod)
ShowRecord(0)
Button4.Enabled = False : Button5.Enabled = False
End Sub

Private Sub lstiPods_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstiPods.SelectedIndexChanged
ShowRecord(lstiPods.SelectedIndex)
End Sub

Sub ShowRecord(ByVal pos As Integer)
Dim objRow As DataRow
If pos >= 0 Then
' 取得DataRow物件的記錄
objRow = Me.IPodsDataSet.iPod.Rows(pos)
' 顯示記錄資料
txtModelNo.Text = objRow("ModelNo") : txtName.Text = objRow("Name")
txtPrice.Text = objRow("Price") : txtStorage.Text = objRow("Storage")
txtBatteryLife.Text = objRow("BatteryLife") : txtStockDate.Text = objRow("StockDate")

Dim path As String
path = "images\" & objRow("ModelNo") & ".jpg"
Dim bmp = New Bitmap(path)
ptbOutput.Image = bmp

Button2.Enabled = True : Button3.Enabled = True
End If
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txtModelNo.ReadOnly = False : Button2.Enabled = False
Button3.Enabled = False : Button4.Enabled = True
Button5.Enabled = True
txtModelNo.Text = "" : txtName.Text = ""
txtStorage.Text = "" : txtBatteryLife.Text = ""
txtPrice.Text = "" : txtStockDate.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strSQL As String
If MsgBox("確定刪除記錄:" & txtModelNo.Text,MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
strSQL = "DELETE FROM iPod WHERE ModelNo ='"
strSQL &= txtModelNo.Text & "'"
ExecuteSQL(strSQL) ' 執行SQL
Me.IPodTableAdapter.GetData()
Me.IPodTableAdapter.Fill(Me.IPodsDataSet.iPod)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strSQL As String
' 建立SQL敘述更新資料庫記錄
strSQL = "UPDATE iPod SET "
strSQL &= "Name='" & txtName.Text & "',"
strSQL &= "Storage='" & txtStorage.Text & "',"
strSQL &= "Price=" & txtPrice.Text & ","
strSQL &= "BatteryLife=" & txtBatteryLife.Text & ","
strSQL &= "StockDate=#" & txtStockDate.Text & "#"
strSQL &= " WHERE ModelNo='" & txtModelNo.Text & "'"
ExecuteSQL(strSQL) ' 執行SQL
Me.IPodTableAdapter.GetData()
Me.IPodTableAdapter.Fill(Me.IPodsDataSet.iPod)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim strSQL As String
' 建立SQL敘述新增一筆資料表記錄
strSQL = "INSERT INTO iPod (ModelNo, Name" & _
",Storage, BatteryLife, Price, StockDate) "
strSQL &= "VALUES ('" & txtModelNo.Text & "','"
strSQL &= txtName.Text & "','"
strSQL &= txtStorage.Text & "',"
strSQL &= txtBatteryLife.Text & ","
strSQL &= txtPrice.Text & ","
strSQL &= "#" & txtStockDate.Text & "#)"
ExecuteSQL(strSQL) ' 執行SQL
txtModelNo.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
Me.IPodTableAdapter.GetData()
Me.IPodTableAdapter.Fill(Me.IPodsDataSet.iPod)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
txtModelNo.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
ShowRecord(lstiPods.SelectedIndex)
End Sub
End Class
模組1
Imports System.Data.OleDb
Module Module1
Function ExecuteSQL(ByVal strSQL As String) As Integer
Dim objCon As OleDbConnection
Dim objCmd As OleDbCommand
Dim intRowsAffected As Integer
Dim strDbCon As String
strDbCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=iPods.mdb"
Try
objCon = New OleDbConnection(strDbCon)
objCon.Open() ' 開啟資料庫連結
objCmd = New OleDbCommand(strSQL, objCon)
' 執行SQL指令
intRowsAffected = objCmd.ExecuteNonQuery()
objCon.Close()
Catch ex As Exception
MsgBox(strSQL)
End Try
Return intRowsAffected
End Function
End Module

VB+ SQL

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer = Val(TextBox1.Text)
Dim b As Integer = Val(TextBox2.Text)
Dim i, j As Integer
Dim s As String
If a > b Or a = b Then
For j = 1 To 9
For i = a To b Step -1
s = s & i & "*" & j & "=" & i * j & " "
Next
ListBox1.Items.Add(s)
s = ""
Next
Else
For j = 1 To 9
For i = a To b
s = s & i & "*" & j & "=" & i * j & " "
Next
ListBox1.Items.Add(s)
s = ""
Next
End If
End Sub
End Class

請輸入五個數字中的第" & i & "個"))-Test-1

Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim max As Integer = 0
Dim min As Integer = 99
Dim A(5) As Integer
For i = 1 To 5
A(i) = Val(InputBox("請輸入五個數字中的第" & i & "個"))
ListBox1.Items.Add(A(i))
Next

For i = 1 To 5
If max < A(i) Then
max = A(i)
End If

If min > A(i) Then min = A(i)
Next

TextBox1.Text = max
TextBox2.Text = min

End Sub
End Class

972-0315- 猜數字

Public Class Form1
Dim x As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Q(4), i As Integer
Dim Ans(4), j As Integer
Dim a, b As Integer
Dim s As String = TextBox1.Text
For i = 0 To 3
Q(i) = Val(TextBox1.Text.Chars(i))
Next
For j = 0 To 3

Ans(j) = Val(TextBox2.Text.Chars(j))
Next
x = x + 1
For i = 0 To 3
For j = 0 To 3
If Q(i) = Ans(j) Then
If i = j Then
a = a + 1
Else
b = b + 1
End If
End If
Next
Next

ListBox1.Items.Add(TextBox2.Text & "-->" & a & "A" & b & "B")
If a = 4 Then ListBox1.Items.Add("共猜了　" & x & " 次")
TextBox2.Clear()
a = 0
b = 0


End Sub
End Class

99 乘法 HTML

PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">