Private Sub Command1_Click()
''''定义变量
Dim num1 As Variant
Dim sum1 As Variant
num1 = Val(Text1.Text)
sum1 = 1
''''判断
If num1 <= 0 Then
MsgBox "不允许输入小于等于0的数值", vbOKOnly, "提示"
Text1.SetFocus
Exit Sub
End If
If num1 <> Int(num1) Then
MsgBox "请输入整数", vbOKOnly, "提示"
Text1.SetFocus
Exit Sub
End If
'求值
For i = 1 To num1
sum1 = sum1 * i
Next i
Text2.Text = sum1
End Sub
将text2的locked属性设置为True可以使之不可编辑
或者使用Label控件代替text2。因为label控件内容不能编辑。
vb!急! 2. 编写一个程序,在文本框中任意输入一个自然数N,单击“计算...
2. 编写一个程序，在文本框中任意输入一个自然数N，单击“计算”按钮则将斐波那契数列的第N项显示在标签中，如图压缩包中所示。sy62.rar 3. 编写一个英文打字训练的程序，要求如下：(1)在文本框内随机产生30个字母的范文。(2)当焦点进人输入文本框时开始计时，并显示当时的时间。(3)在文本框...
VB程序设计题:编写程序,计算N!的值(N为键盘输入的一个整数)
Private Sub Command1_Click()Dim XX As Double, YY As IntegerXX = 1YY = Val(InputBox("请输入N的值", "输入", 0))If YY > 170 ThenMsgBox "你输入的值太大，最大只能计算170的阶乘值！"YY = 170End IfFor I = 1 To YYXX = XX * INext IText1.Text = YY & " 的阶乘 =...
编写一个Python程序,输入N,返回N!的值?
return total 2. 采用函数式的方法求解 from functools import reduce from operator import mul def factorial(N):return reduce(mul, range(1, N + 1))
...输入一个正整数n,输出n!的值。 其中n!=1*2*3*…*n。 求高手指点...
给你写了个程序可以实现，比如在主函数输入5，则输出表示5!(120)的数组[0, 2, 1]，其中0表示个位数，2表示十位数，1表示百位数，程序如下：public static void factor(int n) {int[] product = {1}; \/\/从1开始，循环相乘，比如[1] * 2 -> [2] \/\/[2] * 3 -> [6] \/...
...输入一个正整数n,输出n!的值。 其中n!=1*2*3*…*n。 求高手指点...
System.out.println("请输入你要!的数：");\/\/提示用户输入Scanner in = new Scanner(System.in);int n = in.nextInt();\/\/获得用户输入的值long res=1;\/\/因为数字可能会很大，所以使用longfor(int i=1;i<n+1;i++){\/\/循环获得乘积res *= i;}System.out.println(res);\/\/打印结果 ...
用C语言编写程序从键盘输入一个正整数数n,输出n!
编程实现计算n！，也就是n*（n-1）*（n-2）*...*1，可以通过递归函数来实现，具体实现方法：include <stdio.h>int Func(int n){if(n < 2)return 1;else return n*Func(n-1);} void main(){int n =0,m=0;printf("请输入一个正整数：")scanf("%d",&n);m=Func(n);printf("...
VB里面val(text1.text+text2.text)?
Private Sub Command1_Click()Text3.Text = Val(Text1.Text + Text2.Text)End Sub Private Sub Command2_Click()Text4.Text = Val(Text1.Text) + Val(Text2.Text)End Sub 你自己看效果吧
从键盘输入一个正整数n,计算 n! 的值.要求定义和调用函数fact(n),计算...
double fact(int n);int main(void){int n;double factorial;double fact(int n);scanf ("%d", &n);\/*---*\/ printf("%d! = %f\\n", n, factorial);} double fact(int n){ double factorial=1.0;for(int i=1;i<=n;i++)factorial=factorial*i;return factorial;} ...
从键盘输入一个正整数n,计算n!的值。要求定义和调用函数fact(n),函数...
include <stdio.h> include<string.h> double fun(int n);int main (){ printf("Input n: ");int n;scanf("%d",&n);double S = fun(n);printf("%d!=%.2lf",n,S);} double fun(int n){ int i=1;double fac=1;for(i=1;i<=n;i++){ fac*=i;} return fac;} ...
用C语言编写程序从键盘输入一个正整数数n,输出n,是什么情况?
scanf("%d",&n); \/\/输入一个正整数n for(i=2;i<=n;i++) { k=0; for(j=1;j<=i-1;j++) if(i%j==0) k+=j; if(k==i) printf("%d\\n",i); \/\/判断i的所有真因子之和是否等于i,是则输出i。 } } 注意:建议n的取值小于10000,否则程序运行的时间将比较长。 知识扩展:完数,一般指完...
