1樓：靜淨盡競
const radian = / 180 '定義了乙個常量，這個常量的值為 1度的弧度值。
private sub form_load()
true '窗體自動重繪。
3 '線條的寬度。
500 '計時皮神器間隔 秒空衡執行一次 timer 事件。
true '啟動計時器。
end sub
private sub timer1_timer() 計時器的timer事件過程。
dim currsecond&, currminute&, currhour& '定義了三個變數。
currsecond = second(time) *6 '獲取當前秒數，並轉換成相應的角度 每秒的間隔是6度。
currminute = minute(time) *6 + currsecond / 60 '獲取當前分數，並轉換成相應的角度 每分的間隔是6度，同時+上秒帶來的分針的間隔差。
currhour = hour(time) mod 12) *30 + currminute / 12 '同上，計算時針的角度 mod 12 是因為每12小時一圈，後面的是重複。
先清屏。drawfinger currsecond, 1000 '呼叫過程，畫秒針，長度為1000
drawfinger currminute, 800 '呼叫過程 畫分針，長度為800
drawfinger currhour, 500 '呼叫過程 畫時鬥握做針，長度為500
end sub
private sub drawfinger(value as long, radius as long) '畫指標的過程 value是角度，radius長度。
dim i%
circle (1000, 1000), 1000, vbblack '畫大圓。
for i = 0 to 360 step 30 '這個迴圈，在窗體上畫點(標12個刻度)
pset (1000 * sin(radian * i) +1000, 1000 - 1000 * cos(radian * i)),vbwhite
next i
畫指標。line (1000, 1000)-(radius * sin(radian * value) +1000, 1000 - radius * cos(radian * value))
end sub
關於vb時鐘的問題，關於vb時鐘的一個問題
建立一個窗體,把borderstyle屬性設為0 none，在窗體上面繪製一個timer 一個label就可以了，不用修改其他屬性。開啟 區，寫下以下 dim x1,y1 as single private sub form load me.caption me.borderstyle 0 with...
用VB編寫程式，用VB編寫一個程式
樓上的，不許要引用吧 option explicit private declare function getdrivetype lib kernel32 alias getdrivetypea byval ndrive as string as long private declare funct...
怎麼編寫VB投票統計程式，怎麼編寫一個VB投票統計程式？
private sub command1 click text1.text val text1.text 1end sub private sub command2 click text2.text val text2.text 1end sub private sub command3 click...