UC知道vb大虾是谁？
来源：百度知道 编辑：UC知道 时间：2024/09/24 05:21:02
大虾你好，暂且这样称呼你吧，我遇到一个棘手的问题，从网上下了一个电子时钟的问题，看了几遍还是看不太懂，我的老师上课时说，多读一些这样的程序特别练大脑，所以我很想把它攻下了，你能帮帮我吗？真的很感激你们这些人！
源代码：
Option Explicit
DefDbl A-Z ‘这一句不太懂！
Private Sub Form_Load()
Timer1.Interval = 1000
Width = 4000
Height = 4000
Left = Screen.Width \ 2 - 2000
Top = (Screen.Height - Height) \ 2
End Sub ’上边明白
Private Sub Form_Resize() ’这以下不太懂了
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 14
'画出表盘12个点和时、分、秒共15个LINE
If i > 0 Then Load Line1(i)
Line1(i).Visible = True
Line1(i).BorderWidth = 5
Line1(i).BorderColor = RGB(0, 128, 0) '设置LINE的粗细和颜色
Next i
End If
For i = 0 To 14
Scale (-1, 1)-(1, -1)
Angle = i * 2 * Atn(1) / 3
Line1(i).X1 = 0.9 * Cos(Angle)
Line1(i).Y1
源代码：
Option Explicit
DefDbl A-Z ‘这一句不太懂！
Private Sub Form_Load()
Timer1.Interval = 1000
Width = 4000
Height = 4000
Left = Screen.Width \ 2 - 2000
Top = (Screen.Height - Height) \ 2
End Sub ’上边明白
Private Sub Form_Resize() ’这以下不太懂了
Dim i, Angle
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 14
'画出表盘12个点和时、分、秒共15个LINE
If i > 0 Then Load Line1(i)
Line1(i).Visible = True
Line1(i).BorderWidth = 5
Line1(i).BorderColor = RGB(0, 128, 0) '设置LINE的粗细和颜色
Next i
End If
For i = 0 To 14
Scale (-1, 1)-(1, -1)
Angle = i * 2 * Atn(1) / 3
Line1(i).X1 = 0.9 * Cos(Angle)
Line1(i).Y1
Option Explicit
DefDbl A-Z '定义双精度型字母范围,没啥用
Private Sub Form_Load()'窗口加载时
Timer1.Interval = 1000'计时器间隔1s
Width = 4000'窗口宽4000
Height = 4000'高4000
Left = Screen.Width \ 2 - 2000'左边距屏幕宽度一半向左2000
Top = (Screen.Height - Height) \ 2'上边距,放在屏幕中间
End Sub ’上边明白
Private Sub Form_Resize() '窗口调整大小时
Dim i, Angle'定义2个变量
Static flag As Boolean'静态变量
If flag = False Then'如果标志为false
flag = True'改变标志
For i = 0 To 14'循环
'画出表盘12个点和时、分、秒共15个LINE
If i > 0 Then Load Line1(i)'加载1-14line
Line1(i).Visible = True'显示当前
Line1(i).BorderWidth = 5'线宽5
Line1(i).BorderColor = RGB(0, 128, 0) '设置LINE的粗细和颜色
Next i'i加1,下次循环
End If'判断flag结束
For i = 0 To 14'循环
Scale (-1, 1)-(1, -1)'自定义坐标系
Angle = i * 2 * Atn(1) / 3'计算角度
Line1(i).X1 = 0.9 * Cos(Angle)'计算端点1x值
Line1(i).Y1 = 0.9 * Sin(Ang