vb求n的阶乘n
人气:349 ℃ 时间:2020-05-20 20:11:45
解答
Private Sub Command1_Click()
Dim i, j, k
For i = 1 To 10
k = 1
For j = 1 To i
k = k * j
Next
Print i & "!=" & k
Next
End Sub如果用inputbox呢Private Sub Command1_Click()Dim i, j, ki = Val(InputBox("输入一个数:", , 10)) '假设为一有效数字,未作错误判断For i = 1 To 10k = 1For j = 1 To ik = k * jNextPrint i & "!=" & kNextEnd Sub
推荐
- VB DO循环 1.N的阶乘N!2.2-100之间所有偶数 3.前10个自然数之和、积.
- 用VB如何操作一的阶乘加二的阶乘加三的阶乘一直加到N的阶乘
- 求vb题代码:求任意个数的阶乘累计和.s=1!+2!+3!+...+n!,n由用户输入.
- vb求n阶乘表达式
- 求(1/2的阶乘+2/3的阶乘+.+n/(n+1)的阶乘)的极限
- 合修一条路,甲队修全长的十二分之五,正好600米,乙队修了几米?
- 一条船在一条河上航行,第一天顺水航行96千米,逆水航行140千米,共用去11小时,第二天逆水航行80千米,顺
- 6名同学排成两排,每排3人,其中甲排在前排的概率是多少?
猜你喜欢