11问答网
所有问题
当前搜索:
用vb计算10的阶乘
在
VB
中,求
阶乘
的部分代码?
答:
在
VB
中求
阶乘
的部分代码:Private Function fact(m As Integer) As Long Dim i As Integer fact = 1 For i = 1 To m fact = fact * i Next i End Function Private Sub Command1_Click()Dim n As Integer, sum As Long Dim i As Integer n = Val(Text1.Text)For i = 1 To ...
用VB
怎样求1~
10的阶乘
答:
在
VB
中求
阶乘
的部分代码:Private Function fact(m As Integer) As Long Dim i As Integer fact = 1 For i = 1 To m fact = fact * i Next i End Function Private Sub Command1_Click()Dim n As Integer, sum As Long Dim i As Integer n = Val(Text1.Text)For i = 1 To ...
VB
用for循环语句编写程序,
计算
和输出
10的阶乘
答:
Private Sub Command1_Click() f = 1 For i = 2 To
10
f = f * i Next i MsgBox ("10!=" & f)End Sub
用VB
设计程序,求
10
! 的值并输出.
答:
Private Sub Command1_Click()Dim
阶乘
As Long 阶乘 = 1 For i = 1 To
10
阶乘 = 阶乘 * i Next i Print "10!="; 阶乘 End Sub
求7 8 9
10的阶乘
,
vb
语言
答:
+2!+3!+...+" & n & "!,其结果为" & jiecheng(n) Text1.Text = sEnd SubPrivate Sub Form_Load()Combo1.ClearCombo1.AddItem ("7")Combo1.AddItem ("8")Combo1.AddItem ("9")Combo1.AddItem ("
10
")End SubPublic Function jiecheng(ByVal n As Integer) Dim m As Double...
vb
实现阶乘运算,算出1--
10的阶乘
答:
Function Factor(ByVal n As Integer) As Long Select Case n Case 0, 1 Factor = n Case Else Factor = Factor(n - 1) * n End Select End Function
vb
中do循环求
10的阶乘
程序代码
答:
Private Sub Form_Load()Dim i As Integer Dim N As Long i =
10
N = 1 Do While i > 1 N = N * i i = i - 1 Loop Text1 = N End Sub
vb
程序编写输出从一到
十的阶乘
答:
Private Sub Command1_Click()n! = 1 For i = 1 To
10
n! = n! * i Print i & "
的阶乘
是:" & n!Next i End Sub
用vb
写
10
以内数
的阶乘
,要显示,怎么弄?
答:
Private Sub Command1_Click()i = InputBox("请输入数字!")n = 1 For x = 1 To i n = n * x Next x MsgBox n End Sub
VB
循环
计算10
以内的奇数
阶乘
和
答:
Private Sub Form_Click() '点击窗体运行Dim i As Long, j As Long, s As Double, t As DoubleFor i = 1 To
10
Step 2 t = 1 For j = 2 To i t = t * j Next j s = s + tNext iPrint sEnd Sub
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜