求几个vb编程，高手请进

VB编程高手请进。。。。~~

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
j = 0
For i = 2001 To 1 Step -1
j = j + 1
If j = 10 Then
Print Chr(10) + Chr(13); i,
j = 0
Else
Print i,
End If
Next
End Sub

Private Sub Form_Load()
Form1.WindowState = 2
End Sub

函数
由基本函数导出之公式


Secant（正割）
Sec(X) = 1 / Cos(X)


Cosecant（余割）
Cosec(X) = 1 / Sin(X)


Cotangent（余切）
Cotan(X) = 1 / Tan(X)


Inverse Sine


（反正弦）
Arcsin(X) = Atn(X / Sqr(-X * X + 1))


Inverse Cosine


（反余弦）
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)


Inverse Secant


（反正割）
Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))


Inverse Cosecant


（反余割）
Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))


Inverse Cotangent


（反余切）
Arccotan(X) = Atn(X) + 2 * Atn(1)


Hyperbolic Sine


（双曲正弦）
HSin(X) = (Exp(X) - Exp(-X)) / 2


Hyperbolic Cosine


（双曲余弦）
HCos(X) = (Exp(X) + Exp(-X)) / 2


Hyperbolic Tangent


（双曲正切）
HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))


Hyperbolic Secant


（双曲正割）
HSec(X) = 2 / (Exp(X) + Exp(-X))


Hyperbolic Cosecant（双曲余割）
HCosec(X) = 2 / (Exp(X) - Exp(-X))


Hyperbolic Cotangent（双曲余切）
HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))


Inverse Hyperbolic Sine（反双曲正弦）
HArcsin(X) = Log(X + Sqr(X * X + 1))


Inverse Hyperbolic Cosine（反双曲余弦）
HArccos(X) = Log(X + Sqr(X * X - 1))


Inverse Hyperbolic Tangent（反双曲正切）
HArctan(X) = Log((1 + X) / (1 - X)) / 2


Inverse Hyperbolic Secant（反双曲正割）
HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)


Inverse Hyperbolic Cosecant
HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)


Inverse Hyperbolic Cotangent


（反双曲余切）
HArccotan(X) = Log((X + 1) / (X - 1)) / 2


以 N 为底的对数
LogN(X) = Log(X) / Log(N)

Private Sub Command1_Click()
Me.AutoRedraw = True
Cls
For a = 0 To 3
For b = 1 To 5
For c = 0 To 6
If a + b + c = 8 Then
Print "红"; a; "白"; b; "黑"; c
End If
Next c
Next b
Next a
End Sub

Private Sub Command2_Click()
x = Val(InputBox("输入整数"))
y = Val(InputBox("输入次方"))
s = 1
For i = 0 To y - 1
s = (s * x) Mod 1000
Next i
Print s
End Sub

Private Sub Command3_Click()
Me.AutoRedraw = True
Cls
For i = 10 To 99
a = i \ 10
b = i Mod 10
If a + b < a * b Then Print i
Next i
End Sub

---

黄州区15967026559： 给我几个简单的VB程序 高手进？
龙亲泰方： 题目1:打开程序后显示窗体,窗体上有2个单选按钮,标题分别为关机、重启;另有一个按钮,单击后执行单选按钮的命令. 步骤:在窗体上画两个单选按钮(名称分别为opt1、opt2)和一个按钮(名称为cmd) 代码: Private Sub Form_Load...

黄州区15967026559： 求一个VB编程高手群来帮我!有的回答,谢谢``？
龙亲泰方： 群名:【编程】活跃一群 群号:50167302 创建人:30321106 (编程区正式管理员:睡仙和尚) 此群为问问区活跃人员由正式管理员睡仙和尚邀请加入 所以你应该要在这个区很活跃,这样管理员会主动添加你到这个群里面 我就是这么进去的,所以加油吧!

黄州区15967026559： 急求VB的代码高手进来？
龙亲泰方： 简直简单的和1一样,看代码: Option ExplicitPrivate Sub Command1_Click() On Error GoTo Err Shell App.Path & ＂\xx.exe＂, vbNormalFocus Exit Sub Err: MsgBox Err.Description, vbOKOnly, ＂错误!＂ End Sub 祝你好运!

黄州区15967026559： 求几个VB编程解答 - ？
龙亲泰方： 第二题:思路:1.输入一个正整数n2.如果n为奇数,I = n+1,否则I = n+2 用i为初值开始循环,每次循环i递增2,这样保证I就是大于n的偶数. 设置变量c = 0,作为计数器,每找到一个满足要求(I...

黄州区15967026559： vb程序,高手请进 急？
龙亲泰方： Private Const fTitle As String = ＂我向右移动＂ Private Const MaxSpace As Long = 20 '控制最大位移 Private Sub Form_Click() Beep '单击窗体发声 End Sub Private Sub Form_Load()Timer1.Interval = 100 Timer2.Interval = 150 End Sub Private ...

黄州区15967026559： VB编程共12题,高手请进,做完后有赏分 - ？
龙亲泰方： 唉,帮帮你吧,控件自己画.1) private sub form_load() list1.additem ＂Item1＂ list1.additem ＂Item2＂ list1.additem ＂Item3＂ list1.additem ＂Item4＂ end sub private C1_click() text1.text1=text1.text+list1.text+chr(13)+chr(10) end sub2) private Cmd...

黄州区15967026559： VB高手进,跪求？
龙亲泰方： 代码如下: Private Sub Command1_Click() Dim i As Integer For i = 0 To 3 ''循环 Me.Print Space(i) & String(10, ＂*＂) & vbCrLf ''''产生i个空格 & 生成10个星号 & 换行 Next i End Sub OVER

黄州区15967026559： 求几个VB程序的代码,谢谢了!？
龙亲泰方： 我的解答在这里 http://wenwen.soso.com/z/q173439010.htm label2 显示成绩 check1(0) check1(1) check1(2) check1(3) 成绩评定,为控件数组 代码: Dim cj As SinglePrivate Sub Command1_Click()Dim s As Strings = InputBox(＂请输入成绩＂...

黄州区15967026559： 求一些VB常用的编程代码~~~ - ？
龙亲泰方： VB实用函数Time 返回系统时钟的当前时间. Date 返回系统时钟的当前日期. Now 返回代表当前日期和时间的编码值.该函数经常用作其它系统时钟函数的参数. Hour(Time) 返回指定时间的小时部分(0到23). Minute(Time) 返回指定时...

黄州区15967026559： vb高手请进!帮编写个程序!急求!？
龙亲泰方： Private Sub Command1_Click() Cls Dim s(1 To 20) As Integer, sum As Long Print ＂随机20个整数:＂ For i = 1 To 20 s(i) = Int(Rnd * 100 + 100) n = n & s(i) & ＂,＂ Next Print n Print ＂能被7整除的数:＂ For j = 1 To 20 If s(j) Mod 7 = 0 Then sum = sum + s(j): n1 = n1 & s(j) & ＂,＂ Next Print n1 Print ＂能被7整除的数的和为:＂ & sum End Sub