這是一個可以讓大家了解自動修改畫布的範例。
原始檔：http://down.gogobox.com.tw/t2329175/b0dq2
Public Class Form1
Dim a, b, c As Double
Dim f As Brush
Dim g As Graphics
公告版位
星落的瞬間！放棄的後悔是永遠！
目前分類：VB2005 (6)
- Aug 01 Fri 2008 21:30
畫布Graphics(VB2005)
- Jul 26 Sat 2008 12:29
小算盤簡易版(十分簡易XDVB2005)
原始碼：down.gogobox.com.tw/t2329175/ocuo2
Public Class Form1
Public Class Form1
Dim Flag, MathFlag As Integer
Dim DotNum, Num, SDotNum, SNum, Ans, MR As Double
Dim Dot As Boolean = False
Dim Newx As Boolean = True
Dim tmp1, tmp2, tmp
- Jun 28 Sat 2008 23:13
環佇列(Circular Queue)運行系統(VB2005)
原始碼：http://down.gogobox.com.tw/t2329175/9r2m2
VB2005的物件陣列真是麻煩！
不過連我的書都沒寫！
不過好險這是常見的問題，
網路是有解答的。
原始碼如下：
'另外VB6的原始碼有做更正
Public Class Form1
- Jun 27 Fri 2008 21:01
RGB <> HSI (VB2005)
原始碼：http://down.gogobox.com.tw/t2329175/6r2m2
之前比賽時因為VB6沒有反Cos函數而飲恨，
現在有了2005不一樣了！
但我發現題目上的公式根本寫錯了！
就因為這個小錯，算出來的答案就差了255倍！
真是嚇死人了！
程式碼如下：
Public Class Form1
Dim pi As Double = 4 * Math.Atan(1)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
之前比賽時因為VB6沒有反Cos函數而飲恨，
現在有了2005不一樣了！
但我發現題目上的公式根本寫錯了！
就因為這個小錯，算出來的答案就差了255倍！
真是嚇死人了！
程式碼如下：
Public Class Form1
Dim pi As Double = 4 * Math.Atan(1)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Jun 21 Sat 2008 10:29
質因數分解(VB2005)
原始碼：http://down.gogobox.com.tw/t2329175/7r2m2
程式碼：
Public Class Form1
Dim key, Target As Long
Private Sub Bu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu1.Click
La2.Visible = True '提示計算中
La1.Text = "" '清空結果
System.Windows.Forms.Application.DoEvents() '釋放控制權
Target = Val(TB1.Text)
程式碼：
Public Class Form1
Dim key, Target As Long
Private Sub Bu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu1.Click
La2.Visible = True '提示計算中
La1.Text = "" '清空結果
System.Windows.Forms.Application.DoEvents() '釋放控制權
Target = Val(TB1.Text)
- Jun 19 Thu 2008 19:52
判斷質數(VB2005)
原始碼：http://down.gogobox.com.tw/t2329175/8r2m2
程式碼：
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Num As Long, f As Boolean, x As Long, i As Long
Do
Num = Val(InputBox("請輸入一個要判斷的正整數", ""))
f = True
x = Num \ 2
For i = 2 To x
程式碼：
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Num As Long, f As Boolean, x As Long, i As Long
Do
Num = Val(InputBox("請輸入一個要判斷的正整數", ""))
f = True
x = Num \ 2
For i = 2 To x
