VB代码，高手进，急啊！知道的快，赶时间

VB程序实例设计!!!!非常赶时间!!!!!~

杨辉三角：画出一个命令按钮，一个图片框和一个文本框。输入以下代码：

Private Sub Command1_Click()
Dim rstr() As String
Dim a() As Double
Dim newstrr As String
Dim strr As String
Dim z%

z = Int(Val(Text1.Text))
'防错处理
If z = 0 Then MsgBox "请在输入框内输入大于0小于55的行数！": Exit Sub
If z > 54 Then MsgBox "请在输入框内输入大于0小于55的行数！": Exit Sub
Picture1.Cls
Picture1.AutoRedraw = True
ReDim rstr(z) As String '最好用redim
ReDim a(z, z) As Double
Randomize

For i = 0 To z
a(i, 0) = 1
Next i

For i = 1 To z
For j = 1 To i
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
Next i


For i = 1 To z
newstrr = ""
For j = 1 To i
strr = Str(a(i, j)) & Space(Len(Str(a(z, j))) - Len(Str(a(i, j))))
newstrr = newstrr & strr
rstr(i) = newstrr
Next j
Next i

rstr(0) = "1"
rstr(1) = "1" & " 1"

For n = 2 To z
rstr(n) = "1" & rstr(n)
Next

For m = 0 To (z - 1)
Picture1.Print rstr(m)
Next
Text1.Text = ""
Text1.SetFocus
End Sub

代码没有发出来？

Private Function jc(ByVal n)
If n = 0 Then jc = 1
If n > 0 Then jc = jc(n - 1) * n
End Function

Private Sub Command1_Click()
n = Val(Text1.Text)

For i = 1 To n
s = s + jc(i)
Next

Text2.Text = s
End Sub

程序计算最大阶乘数是170（结果：7.30036041564732E+306），最小是1（结果：1），已经调试成功。

Dim AQ As Double, N As Integer

Private Sub Command1_Click()
N = Val(Text1.Text)
If N > 0 Then
Call jc
ElseIf N <= 0 Then
MsgBox "阶乘数数不能等于或小于零！"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "计算"
Command2.Caption = "结束"
AQ = 0: N = 0
End Sub

Private Sub jc()
Dim AR As Double
Text2.Text = ""
AQ = 0
AR = 1
If N = 1 Then
AQ = 1
ElseIf N > 1 Then
For I = 1 To N
AR = AR * I
AQ = AQ + AR
Next I
End If
Text2.Text = AQ
End Sub

告诉你，这里不用递归算法。就用几何中梯形的计算公式就可以做到了：(上底 + 下底 ) * 高 / 2

假设 text1 中是5，运行以下代码

Function GetN(byval max As Integer) as Integer
GetN=((1+max)*max)/2
End Function

Private Sub Command1_Click()
text2=CStr(GetN(CInt(text1)))
End Sub

运行后text2的结果是：15

感叹号是什么意思。。你的N要加到什么时候？
===============================================
考!叹号是阶乘!
5!=5X4X3X2X1
6!=6X5X4X3X2X1

感叹号是什么意思。。你的N要加到什么时候？

---

灵宝市19177004956： 急求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 祝你好运!

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

灵宝市19177004956： 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 ...

灵宝市19177004956： VB 高手进! 急!半天内要!OK给50分. - ？
锺霭苯丁： Private Sub Form_Click() Dim x1 As Integer, y1 As Integer Dim x2 As Integer, y2 As Integer Dim x As Single, y As Single Dim Color As Integer Color = Int(Rnd * 15 + 1) x = 2500 '中心坐标 y = 2000 '中心坐标 x2 = Int(Rnd * 1500 + 500) y2 = Int(Rnd * ...

灵宝市19177004956： vb高手进 速秒啊？
锺霭苯丁： 复制以下代码,无需添加控件,运行后点击窗体即可! Private Sub Form_Click() Dim a(10) Randomize Print ＂以下是随机产生的10个数:＂ For i = 1 To 10 a(i) = Int(Rnd * 100 + 100) Print a(i); Next i Print Print ＂最大值为:＂ & max(a) End Sub Function max(a()) For i = 1 To 10 If a(i) > a(0) Then a(0) = a(i) Next i max = a(0) End Function

灵宝市19177004956： VB编程 急急急啊 高手请进？
锺霭苯丁： '画3个 复选框 分别对应 红 绿 蓝 '画一个command按扭 和1个 label Private Sub Command1_Click() Dim red As Integer Dim green As Integer Dim blue As Integer red = IIf(Check1.Value = 1, 255, 0) green = IIf(Check2.Value = 1, 255, 0) blue = IIf(Check3.Value = 1, 255, 0) Label1.BackColor = RGB(red, green, blue) End Sub

灵宝市19177004956： 一个VB编程题目,高手请进？
锺霭苯丁： Private Sub Command1_Click() Dim a, b, c As Single '存放三个系数 Dim Delta, Re, Vi As Single '存放B*B-4*A*C、实部及虚部 a = Val(Text1.Text) '获取三个系数 b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 Then '如果a的值为0,则不是一元二次...

灵宝市19177004956： vb高手进,急急急 - ？
锺霭苯丁： Private Function IsPrime(int num) As BooleanDim i As IntegerIsPrime = TrueFor i = 2 To Int(Sqr(num))If num Mod i = 0 Then IsPrime = FalseExit ForEnd IfNext End Function Private Sub C1_Click()Dim i As IntegerFor i = 17999 To 2 Step...

灵宝市19177004956： VB高手快进来!! 120急救啊!!!!! - ？
锺霭苯丁： 先在＂工程＂-＂引用＂->＂Microsoft ActiveX Data Objects 2.8 Library＂ Dim conn As New ADODB.Connection Dim rs As New ADODB.Rec...

灵宝市19177004956： vb高手进~求任意输入十个正整数的和,代码!~! - ？
锺霭苯丁： Private Sub Form_Load()Dim A() As String, B As Long, i As IntegerA = Split(InputBox(＂输入十个正整数(以空格分开)＂, ＂提示＂), ＂ ...