VB计算n阶层 举个例子,就8的阶层 label里能出现“ =1*2*3*4*5*6*7*8=40320”对于输入非数值类型数据,系统应提示出错信息:“格式错误,请输入一个整数!”
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/25 14:50:55
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