答:Private Sub Command1_Click() f = 1 For i = 2 To 10 f = f * i Next i MsgBox ("10!=" & f)End Sub
答:Private Sub Command1_Click() n! = 1 For i = 1 To 10 n! = n! * i Print i & "的阶乘是:" & n! Next i End Sub
答:public static void Main(string[] args) { int result = 1; for (int i = 10; i > 1; i--) { result *= i; } Console.WriteLine(result); Console.Read(); } 其中result *=i也可以写成result = i*result; 另外n!=n*(n-1)*(n-2)…1 楼上的不...
答:Private Sub Command1_Click() n! = 1 For i = 1 To 10 n! = n! * i Print i & "的阶乘是:" & n! Next i End Sub
答:参考代码: Private Sub Command1_Click() Dim i As Integer For i = 1 To 10 Sum = Sum + jc(i) Next MsgBox SumEnd SubFunction jc(a As Integer) jc = 1 For i = 1 To a jc = jc * i NextEnd Function
答:'先写一个求阶乘的函数 Private Function factorial(ByVal n As Integer) As Long Dim i As Integer, l As Long l = 1 For i = 1 To n l = l * i Next factorial = l End Function '添加一个按钮控件 Private Sub Command1_Click() Dim result A...
答:回答了,别重复提问了 dim i%,jx# i=1 jx=1 do while i
答:首先在窗体上画两个控件:TextBox1和Button1 TextBox1用来输入需要计算那个数的阶乘 双击Button1进入输入代码,代码如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Di...
答:Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 100 sum = sum + i Next Print "总和为:" & sumEnd Sub
答:Dim x As Integer Dim s As Long Dim zj As Long Private Sub Command1_Click() x = 1 zj = 1 Do While x