① 用VB模擬時鍾轉動源代碼，謝謝啊！急需~~
呵呵,本轉一個VB吧主CBM666寫的時鍾代碼.. '添加 Line1 Line2 Line3 Timer1 Dim xx1%, yy1% '宣告變數xx1,yy1為整型(給圓心用的) Private Sub Form_Load() Me.AutoRedraw = True '重畫為真 '窗體置中 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - meiheight) \ 2 '計算圓心的x軸 xx1 xx1 = Me.Width \ 2 '計算圓心的y軸 yy1 yy1 = (Me.Height - 405) \ 2 '將下面3根針的起點x1,y1全定位在圓心上 Line1.X1 = xx1: Line1.Y1 = yy1 Line2.X1 = xx1: Line2.Y1 = yy1 Line3.X1 = xx1: Line3.Y1 = yy1 '畫鍾的外匡讓線條粗一點 Me.DrawWidth = 5 '畫一個圓 Me.Circle (xx1, yy1), 950 Line2.BorderWidth = 1 '秒針的粗度 Line2.BorderColor = QBColor(12) '秒針的顏色 Line1.BorderWidth = 2 '分針的粗度 Line1.BorderColor = QBColor(14) '分針的顏色 Line3.BorderWidth = 3 '時針的粗度 Line3.BorderColor = QBColor(10) '時針的顏色 Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() Me.Caption = Time '標題欄顯示現在時間 ' Second Hand '畫秒針 '計算秒針的角度,每一秒是 360度除以60秒=6度, 所以要乘上6 sdeg = Second(Time) * 6 'vb是以弧度為單位來計算,所以角度換算弧度是 3.14/180, 秒針跑了N度就乘上N srad = (3.14 / 180) * sdeg '900是秒針的長度,以圓心(line2的x1,y1)為准,計算出在這個弧度時line2.x2在什麼位置 Line2.X2 = Line2.X1 + (900 * Sin(srad)) '900是秒針的長度,以圓心(line2的x1,y1)為准,計算出在這個弧度時line2.y2在什麼位置 Line2.Y2 = Line2.Y1 - (900 * Cos(srad)) ' Minute Hand '畫分針 '計算分針的角度,每一分是360度除以60分=6度, 所以要乘上6,秒針動分針也會動,所以還要加上秒針移動所產生的分針移動. '秒針轉了1圈360度,分針才會前進1分鍾=6度,所以比例是 6/360等於 1/60 Mdeg = Minute(Time) * 6 + (sdeg * 1 / 60) 'vb是以弧度為單位來計算,所以角度換算弧度是 3.14/180, 分針跑了N度就乘上N mrad = (3.14 / 180) * Mdeg 'vb是以弧度為單位來計算,所以角度換算弧度是 3.14/180, 分針跑了N度就乘上N '750是分針的長度,以圓心(line1的x1,y1)為准,計算出在這個弧度時line1.x2在什麼位置 Line1.X2 = (750 * Sin(mrad)) + Line1.X1 '750是分針的長度,以圓心(line1的x1,y1)為准,計算出在這個弧度時line1.y2在什麼位置 Line1.Y2 = Line1.Y1 - (750 * Cos(mrad)) ' Hour Hand '畫時針 '計算時針的角度,每一小時時針跑30度,分針動時針也會動,所以還要加上分針移動所產生的時針移動. '分針轉了1圈360度,時針才會前進1刻劃=30度,所以比例是 30/360等於 1/12 hdeg = Hour(Time) * 30 + (Mdeg / 12) 'vb是以弧度為單位來計算,所以角度換算弧度是 3.14/180, 時針跑了N度就乘上N hrad = (3.14 / 180) * hdeg '500是時針的長度,以圓心(line3的x1,y1)為准,計算出在這個弧度時line3.x2在什麼位置 Line3.X2 = (500 * Sin(hrad)) + Line3.X1 '500是時針的長度,以圓心(line3的x1,y1)為准,計算出在這個弧度時line3.y2在什麼位置 Line3.Y2 = Line3.Y1 - (500 * Cos(hrad)) End Sub參考資料： http://hi..com/cbm666/blog/item/5729f736f7d902300a55a991.html
② 誰知道，用VB 編寫的最小二乘法的源代碼嗎。
Dim j As Integer, t As Integer, m As Integer, n As Integer
Dim s As Integer, i As Integer, k As Integer
s = 1
m = InputBox("請輸入m：")
n = InputBox("請輸入n：")
Print "m="; m; "n="; n
If m > n Then
i = m: m = n: n = i
End If
If n Mod m = 0 Then
Print "最大公約數是"; m
Exit Sub
End If
k = m
t = n
Do While k <> 0
t = t Mod k
j = t: t = k: k = j
Loop
Print "最大公約數是"; t;
回答者： lxz1969 - 首席運營官 十三級 3-5 11:05
不懂 最小二乘法 不好意思
回答者： chenxfsoft - 同進士出身 六級 3-5 11:05
下面是用最小二乘法計算相關系數的。如果你要算系數的話，可以稍加修改。
Const 標題 = "相關系數的計算"
Private Function 計算相關系數(自變數數組() As Variant, 因變數數組() As Variant, 相關系數 As Variant) As Long
Dim 數組維數 As Integer, 數據數 As Long, 自變數下標下限 As Long, 自變數下標上限 As Long, 因變數下標下限 As Long
Dim i As Long, 變數類型 As Integer
計算相關系數 = 0
數組維數 = 數組維數(自變數數組)
If 數組維數 <> 1 Then
MsgBox "自變數數組不是一維的，不能求相關系數！", vbOKOnly + vbExclamation, 標題
計算相關系數 = 1
Exit Function
End If
數組維數 = 數組維數(因變數數組)
If 數組維數 <> 1 Then
MsgBox "因變數數組不是一維的，不能求相關系數！", vbOKOnly + vbExclamation, 標題
計算相關系數 = 2
Exit Function
End If
自變數下標下限 = LBound(自變數數組)
自變數下標上限 = UBound(自變數數組)
因變數下標下限 = LBound(因變數數組)
On Error GoTo 因變數用完
For i = 自變數下標下限 To 自變數下標上限
If Not IsNumeric(自變數數組(i)) Then
MsgBox "自變數數組下標為" & i & "的元素（即第" & i + 1 - 自變數下標下限 & "個）不是數值型，不能求相關系數！", vbOKOnly + vbExclamation, 標題
計算相關系數 = 3
Exit Function
End If
If Not IsNumeric(因變數數組(i - 自變數下標下限 + 因變數下標下限)) Then
MsgBox "因變數數組下標為" & i - 自變數下標下限 + 因變數下標下限 & "的元素（即第" & i + 1 - 自變數下標下限 & "個）不是數值型，不能求相關系數！", vbOKOnly + vbExclamation, 標題
計算相關系數 = 4
Exit Function
End If
Next i
If i - 1 <> UBound(因變數數組) Then
MsgBox "因變數數組元素個數多於自變數元素個數，不能求相關系數！", vbOKOnly + vbExclamation, 標題
計算相關系數 = 6
Exit Function
End If
On Error GoTo 溢出
Dim 積的和 As Double, 自變數的和 As Double, 因變數的和 As Double, 自變數平方和 As Double, 因變數平方和 As Double
Dim x As Double, y As Double
數據數 = 自變數下標上限 - 自變數下標下限
For i = 自變數下標下限 To 自變數下標上限
x = 自變數數組(i)
y = 因變數數組(i - 自變數下標下限 + 因變數下標下限)
積的和 = 積的和 + x * y
自變數的和 = 自變數和 + x
因變數的和 = 因變數和 + y
自變數平方和 = 自變數平方和 + x * x
因變數平方和 = 因變數平方和 + y * y
Next i
相關系數 = (數據數 * 積的和 - 自變數和 * 因變數和) / Sqr((數據數 * 自變數平方和 - 自變數的和 * 自變數的和) * (數據數 * 因變數平方和 - 因變數的和 * 因變數的和))
Exit Function
因變數用完:
MsgBox "因變數數組元素個數少於自變數元素個數，不能求相關系數！", vbOKOnly + vbExclamation, 標題
計算相關系數 = 5
End Function
Private Function 數組維數(數組() As Double) As Integer
Dim i As Integer
On Error GoTo 結束
For i = 1 To 30000
下標上限 = UBound(數組, i)
Next i
MsgBox "數組維數也太大了！！！！", okonly + vbExclamation, 標題
數組維數 = i
Exit Function
結束:
數組維數 = i
End Function
回答者： vlaoda - 總監 九級 3-5 11:29 分類上升達人排行榜
用戶名 動態 上周上升
ljl88900 875
lxz1969 805
fengerezu 800
softbeam 755
AlphaBlend 745
更多>>
訂閱該問題
msds首選阿克蘇諾貝爾,工業油漆的..
阿克蘇諾貝爾(AKZO NOBEL)武漢防護塗料有限公司,是工業防護油漆部門中國區專業的銷售..
www.paint-earth.com
優聯檢測專業從事MSDS編寫 特惠中
我們編寫的MSDS可以符合下列國家的規范:ISO,中國,美國,歐洲等主要地區的要求,提供中..
www.uts.com.cn
水蒸氣性質計算軟體源代碼下載
優易水和水蒸氣性質計算程序WaterPro7.0採用國際公認的《工業用1967年IFC公式》和《..
www.uesoft.com
您想在自己的網站上展示網路「知道」上的問答嗎？來獲取免費代碼吧！
--------------------------------------------------------------------------------
如要投訴或提出意見建議，請到
網路知道投訴吧反饋。
&;2009 Bai
③ vb一小時倒計時源代碼，格式00：00：00
給一個自己寫的，篇幅更短，代碼更簡潔易懂的，允許自行指定24小時之內的倒計時。指定時，hh是小時數，賦值0-23，mm是分鍾數，賦值0-59，ss是秒數，賦值0-59，但mm和ss通常為0。點擊倒計時的按鈕即可開始。
'窗體內需要建立Command1控制項和Timer1控制項
Dim timeall As Long '計算倒計時的總秒數
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Sub Timer1_Timer()
If timeall = 0 Then
Command1.Caption = "00:00:00"
MsgBox "倒計時結束！"
Timer1.Enabled = False
Else
Command1.Caption = Format(timeall \ 3600, "00") & ":" & Format((timeall \ 60) Mod 60, "00") & ":" & Format(timeall Mod 60, "00")
timeall = timeall - 1
End If
End Sub
Private Sub Form_Activate()
Dim hh%, mm%, ss%
hh = 1: mm = 0: ss = 0 '指定倒計時的時間長度
Command1.Caption = Format(hh, "00") & ":" & Format(mm, "00") & ":" & Format(ss, "00")
timeall = hh * 3600& + mm * 60& + ss - 1
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub