匿名用户

1级

2013-11-15 回答

下面是能显示很多位有效数字的程序：

'窗体上放两个TextBox控件：Text1用于显示结果，Text2用于输入阶乘数

'放两个CommandBox控件：Command1.Name="开始"，Command2.Name="结束"

'放两个Label控件：Label1.Caption="阶乘数"，Label2用于显示精确位数

Option Explicit

Dim Ws As Long '存放阶乘数字

Dim JiaGuo() As Long '保存各位上的数字

Dim T As Long '只用于进位处理，因为它的使用次数太多，故在此声明

Dim Temp As Long '只用于进位处理，因为它的使用次数太多，故在此声明

Dim lonTemp As Long '用于标识位置

Dim WeiShu As Long '用于标识位置

Private Sub Command1_Click()'开始

On Error GoTo biao

Dim i As Long '临时循环变量

Ws = Int(Val(Text2.Text)) '等到阶乘数

ReDim JiaGuo(Len(Ws) * Ws) '重新定义数组

For i = 1 To Len(Ws) * Ws 'Len(ws)是Ws的位数

JiaGuo(i) = 0 '清零

Next i

JiaGuo(1) = 1 '初值

lonTemp = 1 '开始时只一位

For i = 1 To Ws '计算到We的阶乘

For WeiShu = lonTemp To 1 Step -1 '从最高位开始独位计算

JiaGuo(WeiShu) = JiaGuo(WeiShu) * i

Next WeiShu

T = 1

JingweiChuli '调用进位处理

Next i

Text1.Text = CStr(Ws) & "!="

For i = lonTemp To 1 Step -1 '从最高位开始

Text1.Text = Text1.Text & (JiaGuo(i)) '显示结果

Next i

Label2.Caption = "精确位数" & Len(Text1.Text) - Len(Text2.Text) - 2

Text2.Text = ""

Text2.SetFocus

Command1.Enabled = False

Exit Sub

biao:

Text1.Text = CStr(Ws) & "!="

For i = lonTemp To 1 Step -1 '从最高位开始

Text1.Text = Text1.Text & (JiaGuo(i)) '显示结果

Next i

Label2.Caption = "精确位数" & Len(Text1.Text) - Len(Text2.Text) - 2

Command1.Enabled = False

MsgBox "出错啦！"

End Sub

Sub JingweiChuli() '进位处理

Temp = JiaGuo(T) \ 10 '整数除法

JiaGuo(T) = JiaGuo(T) - 10 * Temp

JiaGuo(T + 1) = JiaGuo(T + 1) + Temp

If T <= lonTemp Then

T = T + 1

JingweiChuli '递归调用

Else

If JiaGuo(lonTemp + 1) = 0 Then '根据最高位调整循环次数

Exit Sub

Else

lonTemp = lonTemp + 1

JingweiChuli

End If

End If

End Sub

Private Sub Command2_Click()'结束

End

End Sub