VB常用参数很全

目录
基本数据类型
算术运算符
常用数学函数
代码模块、变量的作用域
日期型数据
常用日期与时间函数
常用字符串函数
常用类型转换函数
Print函数
比较运算符及关系表达式示例
逻辑运算真值表
数组的声明
通用过程
数据文件
图形方法
Sin 函数是取一角度为参数值，返回角的对边长度除以斜边长度的比值。

Cos 函数的参数为一个角，返回直角三角形两边的比值。

该比值为角的邻边长度除以斜边长度之商。

将角度转换为弧度，请将角度乘以π/180。

将弧度转换为角度，将弧度乘以180/π。

π=3.14159127
xx1,yy1 是原点,如附图的圆中心点.(129,120)
rr=半径, an gle=角度
xx2 = xx1 + (rr * Sin(angle * (π/ 180)))
yy2 = yy1 + (rr * Cos(angle * (π/ 180)))
附图是0,45,90,135,180,225,270,315,360 各角度的xx2,yy2
看这图慢慢研究不难看出它的公式.
'计算小代码:
'xx1,yy1 是圆心, 如附图的圆中心点.(129,120)
'rr=半径=100, angle=角度(0--360度)
Option Explicit
Const π= 3.14159127
Dim xx1!, yy1!, xx2!, yy2!, angle%, rr%, i%
Private Sub Form_Load()
rr = 1500
Me.Width = rr * 2 + 1000: Me.Height = rr * 2 + 1000
xx1 = Me.ScaleWidth \ 2: yy1 = Me.ScaleHeight \ 2
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.BackColor = QBColor(0)
Me.AutoRedraw = True
Me.FillColor = QBColor(1)
Me.FillStyle = 0
Me.ForeColor = QBColor(15)
Me.Circle (xx1, yy1), rr
Me.CurrentX = xx1 - 300: Me.CurrentY = yy1 - 200
Print Trim(Str(Int(xx1 \ 15))) & "," & Trim(Str(Int(yy1 \ 15)))
For i = 0 To 360 Step 45
angle = i
xx2 = xx1 + (rr * Sin(angle * (π/ 180)))
yy2 = yy1 + (rr * Cos(angle * (π/ 180)))
Line (xx1, yy1)-(xx2, yy2), QBColor(10)
Me.CurrentX = xx2 - 300: Me.CurrentY = yy2 - 200
Print Trim(Str(Int(xx2 \ 15))) & "," & Trim(Str(Int(yy2 \ 15)))
Next i
End Sub
'***********************************************************************
'小时钟代码, 添加Timer1 Line1 Line2 Line3
Option Explicit
Dim XS, YS, rad
Dim ab%, CNT%, a!, b!, W!, X!, Y!, Z!, C!, D!, E!, F!, TX$
Const π= 3.14159127
Private Sub Form_Load()
XS = Width / 2
YS = (Height / 2) - 120
= "Courier New"
For ab = 0 To 359 Step 30
a = Sin(clock(ab))
b = -(Cos(clock(ab)))
If ab = 0 Then CNT = 360 Else CNT = ab
TX = Trim(Int((CNT) / 30))
Line ((a * 800) + XS, (b * 800) + YS)-((a * 1000) + XS, (b * 1000) + YS), RGB(0, 0, 0)
CurrentX = (a * 1200) + XS - (TextWidth(TX$) / 2)
CurrentY = (b * 1200) + YS - (TextHeight(TX$) / 2)
Print TX$
Next ab
Line1.X1 = XS
Line1.Y1 = YS
Line2.X1 = XS
Line2.Y1 = YS
Line3.X1 = XS
Line3.Y1 = YS
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
W = Timer
X = W / 120
Y = W * 6
Z = W / 10
a = Sin(clock(X))
b = -(Cos(clock(X)))
Line1.X2 = (a * 600) + XS
Line1.Y2 = (b * 600) + YS
C = Sin(clock(Y))
D = -(Cos(clock(Y)))
Line3.X2 = (C * 800) + XS
Line3.Y2 = (D * 800) + YS
E = Sin(clock(Z))
F = -(Cos(clock(Z)))
Line2.X2 = (E * 800) + XS
Line2.Y2 = (F * 800) + YS
End Sub
Private Function clock(X)
rad = π/ 180
clock = X * rad
End Function。