公告版位
星落的瞬間!放棄的後悔是永遠!

目前分類:VB2005 (6)

瀏覽方式: 標題列表 簡短摘要



這是一個可以讓大家了解自動修改畫布的範例。
原始檔:http://down.gogobox.com.tw/t2329175/b0dq2 

原始碼如下:
Public Class Form1
    Dim a, b, c As Double
    Dim f As Brush
    Dim g As Graphics

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:down.gogobox.com.tw/t2329175/ocuo2

 
 
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
 

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()



原始碼:http://down.gogobox.com.tw/t2329175/9r2m2
VB2005的物件陣列真是麻煩!
不過連我的書都沒寫!
不過好險這是常見的問題,
網路是有解答的。
原始碼如下:
'另外VB6的原始碼有做更正
Public Class Form1

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼: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

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼: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)

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼: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

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()