① 用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