VB计算n阶层 举个例子,就8的阶层 label里能出现“ =1*2*3*4*5*6*7*8=40320”对于输入非数值类型数据,系统应提示出错信息:“格式错误,请输入一个整数!”

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/26 21:47:08
VB计算n阶层 举个例子,就8的阶层 label里能出现“ =1*2*3*4*5*6*7*8=40320”对于输入非数值类型数据,系统应提示出错信息:“格式错误,请输入一个整数!”
xS]OA+CHw5-H 1J|%ݑ-TWx@DJ%)DX*OgPj"g=;Ygv>n5G%RwQ,^H̤I$Nڦ_j,wt7~[K4n?I~cnP%oj vDGگQfʪeو,1bd:Kp(3<ϹȲŤAl7BU6;Ѡ.xㆅ|X+s*" q | Hb3PIPWɂ)E)7*K$ZR'ZU Iuc:J0-CN|N-t]3o>e2= WTMZ?/4 Ɖ +j 1620r E( te3SIXr11Myxic`0NP(Ҷkv&W )]$flP;ȯ#4+D &S: @ yN-j@AN1glOΪNkO8YׁV|ܑ

VB计算n阶层 举个例子,就8的阶层 label里能出现“ =1*2*3*4*5*6*7*8=40320”对于输入非数值类型数据,系统应提示出错信息:“格式错误,请输入一个整数!”
VB计算n阶层 举个例子,就8的阶层 label里能出现“ =1*2*3*4*5*6*7*8=40320”
对于输入非数值类型数据,系统应提示出错信息:“格式错误,请输入一个整数!”

VB计算n阶层 举个例子,就8的阶层 label里能出现“ =1*2*3*4*5*6*7*8=40320”对于输入非数值类型数据,系统应提示出错信息:“格式错误,请输入一个整数!”
Private Sub Command1_Click()
Dim x As Integer
Dim n As Double
Dim mycheck
n = 1
mycheck = IsNumeric(Text1.Text)
If mycheck = False Then
Label2.Caption = "格式错误,请输入一个整数!"
Else
x = Round(Text1.Text)
Label2.Caption = x & "!= "
For i = 1 To x
n = n * i
Label2.Caption = Label2.Caption & i & " * "
Next i
Label2.Caption = Mid(Label2.Caption, 1, Len(Label2.Caption) - 2) & "= " & n
End If
End Sub
Private Sub Form_Load()
Label4.Caption = Label4.Caption & Now()
End Sub