VB程序设计题:编写程序，计算N!的值(N为键盘输入的一个整数)
3个回答
展开全部
Private Sub Command1_Click()
Dim XX As Double, YY As Integer
XX = 1
YY = Val(InputBox("请输入N的值", "输入", 0))
If YY > 170 Then
MsgBox "你输入的值太大，最大只能计算170的阶乘值！"
YY = 170
End If
For I = 1 To YY
XX = XX * I
Next I
Text1.Text = YY & " 的阶乘 = " & CStr(XX)
End Sub
追问
嗯，谢谢，最后的编写程序就是这个吗
追答
是的，界面添加一个文本框，一个按钮就可以运行，语句测试过。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
意法半导体(中国)投资有限公司
2023-06-12 广告
单片机汇编程序是用汇编语言编写的程序，用于控制单片机的操作。汇编语言是一种比较接近计算机硬件语言的低级语言，相对于高级语言来说更容易理解和实现。下面是单片机汇编程序的基本步骤：1. 将代码和数据汇编到规定的段中。2. 在存储器中用未初始化的...
点击进入详情页
本回答由意法半导体(中国)投资有限公司提供
展开全部
Private Sub Command1_Click()
Dim i As Integer, n As Integer, s As Double
s = 1
n = Val(Text1.Text)
If n <= 1 Then
Text2.Text = "1"
Exit Sub
Else
For i = 1 To n
s = s * i
Next i
Text2.Text = Format(s, "0")
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "计算"
End Sub
追问
嗯，这就是问题答案吗
可是这是要写阶乘呀
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
‘调用示例
Private Sub Form_Load()
MsgBox fun_JC(3)
End Sub
'阶乘函数
Private Function fun_JC(ByVal N As Integer) As Long
Dim i As Integer
Dim l As Long
l = 1
If N <= 1 Then
fun_JC = 1
Exit Function
End If
For i = N To 2 Step -1
l = l * i
Next
fun_JC = l
End Function
Private Sub Form_Load()
MsgBox fun_JC(3)
End Sub
'阶乘函数
Private Function fun_JC(ByVal N As Integer) As Long
Dim i As Integer
Dim l As Long
l = 1
If N <= 1 Then
fun_JC = 1
Exit Function
End If
For i = N To 2 Step -1
l = l * i
Next
fun_JC = l
End Function
追问
谢谢，能给我解释下吗
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
