1.C语言综合设计
2.如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能
3.python开方函数怎么写

C语言综合设计

       å¦‚果对楼主有帮助，给个采纳好不，谢谢啦

       1.程序分析：可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去

       æŽ‰ä¸æ»¡è¶³æ¡ä»¶çš„排列。 

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int i,开方开方j,k;

       printf("\n");

       for(i=1;i<5;i++) /*以下为三重循环*/

       for(j=1;j<5;j++)

       for (k=1;k<5;k++)

       {

       if (i!=k&&i!=j&&j!=k) /*确保i、j、k三位互不相同*/

       printf("%d,%d,%d\n",i,j,k);

       }

       getch();

       }

       ==============================================================

       ã€ç¨‹åº2】

       é¢˜ç›®ï¼šä¼ä¸šå‘放的奖金根据利润提成。利润(I)低于或等于万元时，奖金可提%；利润高

       äºŽä¸‡å…ƒï¼Œä½ŽäºŽä¸‡å…ƒæ—¶ï¼Œä½ŽäºŽä¸‡å…ƒçš„部分按%提成，高于万元的部分，可可提

       æˆ7.5%；万到万之间时，高于万元的部分，可提成5%；万到万之间时高于

       ä¸‡å…ƒçš„部分，可提成3%；万到万之间时，高于万元的部分，可提成1.5%，高于

       ä¸‡å…ƒæ—¶ï¼Œè¶…过万元的部分按1%提成，从键盘输入当月利润I，求应发放奖金总数？

       1.程序分析：请利用数轴来分界，定位。注意定义时需把奖金定义成长整型。　　　　　　

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       long int i;

       int bonus1,bonus2,bonus4,bonus6,bonus,bonus;

       scanf("%ld",&i);

       bonus1=*0. 1;

       bonus2=bonus1+*0.;

       bonus4=bonus2+*0.5;

       bonus6=bonus4+*0.3;

       bonus=bonus6+*0.;

       if(i<=)

       bonus=i*0.1;

       else if(i<=)

       bonus=bonus1+(i-)*0.;

       else if(i<=)

       bonus=bonus2+(i-)*0.;

       else if(i<=)

       bonus=bonus4+(i-)*0.;

       else if(i<=)

       bonus=bonus6+(i-)*0.;

       else

       bonus=bonus+(i-)*0.;

       printf("bonus=%d",bonus);

       getch(); 

       }

       ==============================================================

       ã€ç¨‹åº3】

       é¢˜ç›®ï¼šä¸€ä¸ªæ•´æ•°ï¼Œå®ƒåŠ ä¸ŠåŽæ˜¯ä¸€ä¸ªå®Œå…¨å¹³æ–¹æ•°ï¼Œå†åŠ ä¸Šåˆæ˜¯ä¸€ä¸ªå®Œå…¨å¹³æ–¹æ•°ï¼Œè¯·é—®è¯¥æ•°æ˜¯å¤šå°‘？

       1.程序分析：在万以内判断，先将该数加上后再开方，再将该数加上后再开方，如果开方后

       çš„结果满足如下条件，即是结果。请看具体分析：

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "math.h"

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       long int i,x,y,z;

       for (i=1;i<;i++)

       {

       x=sqrt(i+); /*x为加上后开方后的结果*/

       y=sqrt(i+); /*y为再加上后开方后的结果*/

       if(x*x==i+&&y*y==i+) /*如果一个数的平方根的平方等于该数，这说明此数是完全平方数*/

       printf("\n%ld\n",i);

       }

       getch();

       }

       ==============================================================

       ã€ç¨‹åº4】

       é¢˜ç›®ï¼šè¾“入某年某月某日，判断这一天是这一年的第几天？

       1.程序分析：以3月5日为例，应该先把前两个月的加起来，然后再加上5天即本年的第几天，特殊

       æƒ…况，闰年且输入月份大于3时需考虑多加一天。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int day,month,year,sum,leap;

       printf("\nplease input year,month,day\n");

       scanf("%d,%d,%d",&year,&month,&day);

       switch(month) /*先计算某月以前月份的总天数*/

       {

       case 1:sum=0;break;

       case 2:sum=;break;

       case 3:sum=;break;

       case 4:sum=;break;

       case 5:sum=;break;

       case 6:sum=;break;

       case 7:sum=;break;

       case 8:sum=;break;

       case 9:sum=;break;

       case :sum=;break;

       case :sum=;break;

       case :sum=;break;

       default:printf("data error");break;

       }

       sum=sum+day; /*再加上某天的天数*/

       if(year%==0||(year%4==0&&year%!=0)) /*判断是不是闰年*/

       leap=1;

       else

       leap=0;

       if(leap==1&&month>2) /*如果是闰年且月份大于2,总天数应该加一天*/

       sum++;

       printf("It is the %dth day.",sum);

       getch(); 

       }

       ==============================================================

       ã€ç¨‹åº5】

       é¢˜ç›®ï¼šè¾“入三个整数x,y,z，请把这三个数由小到大输出。

       1.程序分析：我们想办法把最小的数放到x上，先将x与y进行比较，如果x>y则将x与y的值进行交换，

       ç„¶åŽå†ç”¨x与z进行比较，如果x>z则将x与z的值进行交换，这样能使x最小。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int x,y,z,t;

       scanf("%d%d%d",&x,&y,&z);

       if (x>y)

       { t=x;x=y;y=t;} /*交换x,y的值*/

       if(x>z)

       { t=z;z=x;x=t;} /*交换x,z的值*/

       if(y>z)

       { t=y;y=z;z=t;} /*交换z,y的值*/

       printf("small to big: %d %d %d\n",x,y,z);

       getch(); 

       }

       ==============================================================

       ã€ç¨‹åº6】

       é¢˜ç›®ï¼šç”¨*号输出字母C的图案。

       1.程序分析：可先用'*'号在纸上写出字母C，再分行输出。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       printf("Hello C-world!\n");

       printf(" ****\n");

       printf(" *\n");

       printf(" * \n");

       printf(" ****\n");

       getch(); 

       }

       ==============================================================

       ã€ç¨‹åº7】

       é¢˜ç›®ï¼šè¾“出特殊图案，请在c环境中运行，看一看，Very Beautiful!

       1.程序分析：字符共有个。不同字符，图形不一样。　　　　　　

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       char a=,b=;

       printf("%c%c%c%c%c\n",b,a,a,a,b);

       printf("%c%c%c%c%c\n",a,b,a,b,a);

       printf("%c%c%c%c%c\n",a,a,b,a,a);

       printf("%c%c%c%c%c\n",a,b,a,b,a);

       printf("%c%c%c%c%c\n",b,a,a,a,b);

       getch(); 

       }

       ==============================================================

       ã€ç¨‹åº8】

       é¢˜ç›®ï¼šè¾“出9*9口诀。

       1.程序分析：分行与列考虑，共9行9列，i控制行，j控制列。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int i,j,result;

       printf("\n");

       for (i=1;i<;i++)

       {

       for(j=1;j<;j++)

       {

       result=i*j;

       printf("%d*%d=%-3d",i,j,result); /*-3d表示左对齐，占3位*/

       }

       printf("\n"); /*每一行后换行*/

       }

       getch();

       }

       ==============================================================

       ã€ç¨‹åº9】

       é¢˜ç›®ï¼šè¦æ±‚输出国际象棋棋盘。

       1.程序分析：用i控制行，j来控制列，根据i+j的和的变化来控制输出黑方格，还是白方格。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int i,j;

       for(i=0;i<8;i++)

       {

       for(j=0;j<8;j++)

       if((i+j)%2==0)

       printf("%c%c",,);

       else

       printf("  ");

       printf("\n");

       }

       getch(); 

       }

       ============================================================== 

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šæ‰“印楼梯，同时在楼梯上方打印两个笑脸。 

       1.程序分析：用i控制行，j来控制列，j根据i的变化来控制输出黑方格的个数。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int i,j;

       printf("\1\1\n"); /*输出两个笑脸*/

       for(i=1;i<;i++)

       {

       for(j=1;j<=i;j++)

       printf("%c%c",,);

       printf("\n");

       }

       getch(); 

       }

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šå¤å…¸é—®é¢˜ï¼šæœ‰ä¸€å¯¹å…”子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月

       åŽæ¯ä¸ªæœˆåˆç”Ÿä¸€å¯¹å…”子，假如兔子都不死，问每个月的兔子总数为多少？

       1.程序分析：　兔子的规律为数列1,1,2,3,5,8,,....

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       long f1,f2;

       int i;

       f1=f2=1;

       for(i=1;i<=;i++)

       {

       printf("%ld %ld",f1,f2);

       if(i%2==0) printf("\n"); /*控制输出，每行四个*/

       f1=f1+f2; /*前两个月加起来赋值给第三个月*/

       f2=f1+f2; /*前两个月加起来赋值给第三个月*/

       }

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šåˆ¤æ–­-之间有多少个素数，并输出所有素数。

       1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除，

       åˆ™è¡¨æ˜Žæ­¤æ•°ä¸æ˜¯ç´ æ•°ï¼Œåä¹‹æ˜¯ç´ æ•°ã€‚ 　　　　　　

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       #include "math.h"

       main()

       {

       int m,i,k,h=0,leap=1;

       printf("\n");

       for(m=;m<=;m++)

       {

       k=sqrt(m+1);

       for(i=2;i<=k;i++)

       if(m%i==0)

       {

       leap=0;

       break;

       }

       if(leap)

       {

       printf("%-4d",m);

       h++;

       if(h%==0)

       printf("\n");

       }

       leap=1;

       }

       printf("\nThe total is %d",h);

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šæ‰“印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数

       æœ¬èº«ã€‚例如：是一个“水仙花数”，因为=1的三次方＋5的三次方＋3的三次方。

       1.程序分析：利用for循环控制-个数，每个数分解出个位，十位，百位。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int i,j,k,n;

       printf("'water flower'number is:");

       for(n=;n<;n++)

       {

       i=n/;/*分解出百位*/

       j=n/%;/*分解出十位*/

       k=n%;/*分解出个位*/

       if(i*+j*+k==i*i*i+j*j*j+k*k*k)

       printf("%-5d",n);

       }

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šå°†ä¸€ä¸ªæ­£æ•´æ•°åˆ†è§£è´¨å› æ•°ã€‚例如：输入,打印出=2*3*3*5。

       ç¨‹åºåˆ†æžï¼šå¯¹n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：

       (1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。

       (2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n,

       é‡å¤æ‰§è¡Œç¬¬ä¸€æ­¥ã€‚

       (3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       /* zheng int is divided yinshu*/

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int n,i;

       printf("\nplease input a number:\n");

       scanf("%d",&n);

       printf("%d=",n);

       for(i=2;i<=n;i++)

       while(n!=i)

       {

       if(n%i==0)

       {

       printf("%d*",i);

       n=n/i;

       }

       else

       break;

       }

       printf("%d",n);

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šåˆ©ç”¨æ¡ä»¶è¿ç®—符的嵌套来完成此题：学习成绩>=分的同学用A表示，-分之间的用B表示，

       åˆ†ä»¥ä¸‹çš„用C表示。

       1.程序分析：(a>b)?a:b这是条件运算符的基本例子。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int score;

       char grade;

       printf("please input a score\n");

       scanf("%d",&score);

       grade=score>=?'A':(score>=?'B':'C');

       printf("%d belongs to %c",score,grade);

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šè¾“入两个正整数m和n，求其最大公约数和最小公倍数。

       1.程序分析：利用辗除法。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int a,b,num1,num2,temp;

       printf("please input two numbers:\n");

       scanf("%d,%d",&num1,&num2);

       if(num1<num2)/*交换两个数，使大数放在num1上*/

       {

       temp=num1;

       num1=num2;

       num2=temp;

       }

       a=num1;b=num2;

       while(b!=0)/*利用辗除法，直到b为0为止*/

       {

       temp=a%b;

       a=b;

       b=temp;

       }

       printf("gongyueshu:%d\n",a);

       printf("gongbeishu:%d\n",num1*num2/a);

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šè¾“入一行字符，分别统计出其中英文字母、空格、数字和其它字符的个数。

       1.程序分析：利用while语句,条件为输入的字符不为'\n'.

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       char c;

       int letters=0,space=0,digit=0,others=0;

       printf("please input some characters\n");

       while((c=getchar())!='\n')

       {

       if(c>='a'&&c<='z'||c>='A'&&c<='Z')

       letters++;

       else if(c==' ')

       space++;

       else if(c>='0'&&c<='9')

       digit++;

       else

       others++;

       }

       printf("all in all:char=%d space=%d digit=%d others=%d\n",letters,

       space,digit,others);

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šæ±‚s=a+aa+aaa+aaaa+aa...a的值，其中a是一个数字。例如2++++(此时

       å…±æœ‰5个数相加)，几个数相加有键盘控制。

       1.程序分析：关键是计算出每一项的值。

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       int a,n,count=1;

       long int sn=0,tn=0;

       printf("please input a and n\n");

       scanf("%d,%d",&a,&n);

       printf("a=%d,n=%d\n",a,n);

       while(count<=n)

       {

       tn=tn+a;

       sn=sn+tn;

       a=a*;

       ++count;

       }

       printf("a+aa+...=%ld\n",sn);

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šä¸€ä¸ªæ•°å¦‚果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程

       æ‰¾å‡ºä»¥å†…的所有完数。

       1. 程序分析：请参照程序<--上页程序.

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "conio.h"

       main()

       {

       static int k[];

       int i,j,n,s;

       for(j=2;j<;j++)

       {

       n=-1;

       s=j;

       for(i=1;i<j;i++)

       {

       if((j%i)==0)

       {

       n++;

       s=s-i;

       k[n]=i;

       }

       }

       if(s==0)

       {

       printf("%d is a wanshu",j);

       for(i=0;i<n;i++)

       printf("%d,",k);

       printf("%d\n",k[n]);

       }

       }

       getch();

       }

       ==============================================================

       ã€ç¨‹åºã€‘

       é¢˜ç›®ï¼šä¸€çƒä»Žç±³é«˜åº¦è‡ªç”±è½ä¸‹ï¼Œæ¯æ¬¡è½åœ°åŽåè·³å›žåŽŸé«˜åº¦çš„一半；再落下，求它在

       ç¬¬æ¬¡è½åœ°æ—¶ï¼Œå…±ç»è¿‡å¤šå°‘米？第次反弹多高？

       1.程序分析：见下面注释

       2.程序源代码：

       å¤åˆ¶ä»£ç ä»£ç å¦‚下:

       #include "stdio.h"

       #include "stdio.h"

       main()

       {

       float sn=.0,hn=sn/2;

       int n;

       for(n=2;n<=;n++)

       {

       sn=sn+2*hn;/*第n次落地时共经过的米数*/

       hn=hn/2; /*第n次反跳高度*/

       }

       printf("the total of road is %f\n",sn);

       printf("the tenth is %f meter\n",hn);

       getch();

       }

如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能

       用记事本把这段代码复制过去，然后另存为.frm就可以了

       VERSION 5.

       Begin VB.Form frmMain 

          Appearance      =   0  'Flat

          BackColor       =   &H&

          BorderStyle     =   3  'Fixed Dialog

          Caption         =   "简单计算器"

          ClientHeight    =   

          ClientLeft      =   

          ClientTop       =   

          ClientWidth     =   

          KeyPreview      =   -1  'True

          LinkTopic       =   "Form1"

          MaxButton       =   0   'False

          MinButton       =   0   'False

          ScaleHeight     =   

          ScaleWidth      =   

          ShowInTaskbar   =   0   'False

          StartUpPosition =   3  '窗口缺省

          Begin VB.CommandButton Command 

             Caption         =   "^"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.PictureBox picDisplay 

             Appearance      =   0  'Flat

             BackColor       =   &H&

             ForeColor       =   &H&

             Height          =   

             Left            =   

             ScaleHeight     =   

             ScaleWidth      =   

             TabIndex        =   

             Top             =   

             Width           =   

             Begin VB.TextBox Text1 

                Alignment       =   1  'Right Justify

                BorderStyle     =   0  'None

                Height          =   

                Left            =   

                Locked          =   -1  'True

                TabIndex        =   

                Top             =   0

                Width           =   

             End

             Begin VB.Label lblOperation 

                Appearance      =   0  'Flat

                BackColor       =   &H&

                ForeColor       =   &H&

                Height          =   

                Left            =   

                TabIndex        =   

                Top             =   0

                Width           =   

             End

          End

          Begin VB.CommandButton Command9 

             Caption         =   "退格"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command8 

             Caption         =   "清零"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton cmdDot 

             Caption         =   "."

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command7 

             Caption         =   "Sqrt"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command6 

             Caption         =   "="

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command5 

             Caption         =   "/"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command4 

             Caption         =   "*"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command3 

             Caption         =   "-"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command2 

             Caption         =   "+"

             Height          =   

             Left            =   

             TabIndex        =   

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "9"

             Height          =   

             Index           =   9

             Left            =   

             TabIndex        =   9

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "8"

             Height          =   

             Index           =   8

             Left            =   

             TabIndex        =   8

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "7"

             Height          =   

             Index           =   7

             Left            =   

             TabIndex        =   7

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "6"

             Height          =   

             Index           =   6

             Left            =   

             TabIndex        =   6

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "5"

             Height          =   

             Index           =   5

             Left            =   

             TabIndex        =   5

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "4"

             Height          =   

             Index           =   4

             Left            =   

             TabIndex        =   4

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "3"

             Height          =   

             Index           =   3

             Left            =   

             TabIndex        =   3

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "2"

             Height          =   

             Index           =   2

             Left            =   

             TabIndex        =   2

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "1"

             Height          =   

             Index           =   1

             Left            =   

             TabIndex        =   1

             Top             =   

             Width           =   

          End

          Begin VB.CommandButton Command1 

             Caption         =   "0"

             Height          =   

             Index           =   0

             Left            =   

             TabIndex        =   0

             Top             =   

             Width           =   

          End

       End

       Attribute VB_Name = "frmmain"

       Attribute VB_GlobalNameSpace = False

       Attribute VB_Creatable = False

       Attribute VB_PredeclaredId = True

       Attribute VB_Exposed = False

       Private Data As Double

       Private lOperation As Long

       Private fClear As Boolean

       Private Sub cmdDot_Click()

       If InStr(1,源码 Text1.Text, ".") <= 0 Then Text1.Text = Text1.Text & "."

       End Sub

       Private Sub Command1_Click(Index As Integer)

       If fClear = True Then Text1.Text = "": fClear = False

       Text1.Text = Text1.Text & Index

       End Sub

       Private Sub Command_Click()

       If fClear = False Then

       Select Case lOperation

       Case 0

       Case 1: Text1.Text = Data + Val(Text1.Text)

       Case 2: Text1.Text = Data - Val(Text1.Text)

       Case 3: Text1.Text = Data * Val(Text1.Text)

       Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

       Case 5: Text1.Text = Data ^ Val(Text1.Text)

       End Select

       End If

       Data = Val(Text1.Text)

       fClear = True

       lOperation = 5

       lblOperation.Caption = "^"

       End Sub

       Private Sub Command2_Click()

       If fClear = False Then

       Select Case lOperation

       Case 0

       Case 1: Text1.Text = Data + Val(Text1.Text)

       Case 2: Text1.Text = Data - Val(Text1.Text)

       Case 3: Text1.Text = Data * Val(Text1.Text)

       Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

       Case 5: Text1.Text = Data ^ Val(Text1.Text)

       End Select

       End If

       Data = Val(Text1.Text)

       fClear = True

       lOperation = 1

       lblOperation.Caption = "+"

       End Sub

       Private Sub Command3_Click()

       If fClear = False Then

       Select Case lOperation

       Case 0

       Case 1: Text1.Text = Data + Val(Text1.Text)

       Case 2: Text1.Text = Data - Val(Text1.Text)

       Case 3: Text1.Text = Data * Val(Text1.Text)

       Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

       Case 5: Text1.Text = Data ^ Val(Text1.Text)

       End Select

       End If

       Data = Val(Text1.Text)

       fClear = True

       lOperation = 2

       lblOperation.Caption = "-"

       End Sub

       Private Sub Command4_Click()

       If fClear = False Then

       Select Case lOperation

       Case 0

       Case 1: Text1.Text = Data + Val(Text1.Text)

       Case 2: Text1.Text = Data - Val(Text1.Text)

       Case 3: Text1.Text = Data * Val(Text1.Text)

       Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

       Case 5: Text1.Text = Data ^ Val(Text1.Text)

       End Select

       End If

       Data = Val(Text1.Text)

       fClear = True

       lOperation = 3

       lblOperation.Caption = "*"

       End Sub

       Private Sub Command5_Click()

       If fClear = False Then

       Select Case lOperation

       Case 0

       Case 1: Text1.Text = Data + Val(Text1.Text)

       Case 2: Text1.Text = Data - Val(Text1.Text)

       Case 3: Text1.Text = Data * Val(Text1.Text)

       Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

       Case 5: Text1.Text = Data ^ Val(Text1.Text)

       End Select

       End If

       Data = Val(Text1.Text)

       fClear = True

       lOperation = 4

       lblOperation.Caption = "/"

       End Sub

       Private Sub Command6_Click()

       If fClear = False Then

       Select Case lOperation

       Case 0

       Case 1: Text1.Text = Data + Val(Text1.Text)

       Case 2: Text1.Text = Data - Val(Text1.Text)

       Case 3: Text1.Text = Data * Val(Text1.Text)

       Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

       Case 5: Text1.Text = Data ^ Val(Text1.Text)

       End Select

       End If

       Data = Val(Text1.Text)

       fClear = True

       lOperation = 0

       lblOperation.Caption = ""

       End Sub

       Private Sub Command7_Click()

       If Val(Text1.Text) <= 0 Then MsgBox "开方数大于等于0"

       Text1.Text = Sqr(Val(Text1.Text))

       Data = Val(Text1.Text)

       fClear = True

       lOperation = 0

       lblOperation.Caption = ""

       End Sub

       Private Sub Command8_Click()

       Text1.Text = ""

       lOperation = 0

       lblOperation.Caption = ""

       End Sub

       Private Sub Command9_Click()

       If Len(Text1.Text) > 0 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

       End Sub

       Private Sub Form_KeyPress(KeyAscii As Integer)

       Select Case KeyAscii

       Case Asc("0"): Command1_Click 0

       Case Asc("1"): Command1_Click 1

       Case Asc("2"): Command1_Click 2

       Case Asc("3"): Command1_Click 3

       Case Asc("4"): Command1_Click 5

       Case Asc("5"): Command1_Click 4

       Case Asc("6"): Command1_Click 6

       Case Asc("7"): Command1_Click 7

       Case Asc("8"): Command1_Click 8

       Case Asc("9"): Command1_Click 9

       Case Asc("."): cmdDot_Click

       Case Asc("+"): Command2_Click

       Case Asc("-"): Command3_Click

       Case Asc("*"): Command4_Click

       Case Asc("/"): Command5_Click

       Case Asc("^"): Command_Click

       Case Asc("s"): Command7_Click

       Case Asc("S"): Command7_Click

       Case vbKeyBack: Command9_Click

       Case Asc("`"): Command8_Click

       Case Asc("="): Command6_Click

       Case : Command6_Click

       End Select

       KeyAscii = 0

       End Sub

python开方函数怎么写

       python开方函数写法是将某个数乘以0.5次方、使用内置库math、代码长除式算法。开方开方

       1、源码将某个数乘以0.5次方

       将某个数乘以0.5次方也是代码酒店pms系统源码python开平方中最简单的一种方式，具体为：使用内置函数pow()：pow(x,开方开方0.5)，其中x为要开平方的源码数。

       2、代码使用内置库math

       使用内置库math的开方开方sqrt()函数可以开平方，例如：import math，源码#开平方，代码result=math.sqrt(9)，开方开方print(result)#输出3.0。源码

       3、代码迅雷下载网页源码长除式算法

       Python的“长除式算法”开方法是一种迭代法，它使用一个称为“长除式”的数学表达式来计算平方根。长除式如下：Xn+1=(Xn+a/Xn)/2，其中，Xn是第n次迭代的结果，a是要开方的数字。

       这个算法的开单密码系统源码原理是，假设一个数的平方根为X，那么X的平方为a。令Xn为第n次迭代的结果，则Xn的平方为Xn*Xn=Xn*Xn=(Xn+a/Xn)/2*(Xn+a/Xn)/2=a。因此，Xn+1=(Xn+a/Xn)/2，即Xn+1的顺势崛起源码平方为a。

       由于Xn的平方为a，因此Xn+1的平方根为Xn+1。而Xn+1的平方根正是我们要求的数字a的平方根。因此，采用“长除式算法”，可以迭代求出任意正数的平方根。

       python语言特点：

       1、开原镇巴源码出售可移植性

       由于它的开源本质，Python已经被移植在许多平台上（经过改动使它能够工作在不同平台上）。这些平台包括Linux、Windows、FreeBSD、Macintosh、Solaris、OS/2、Amiga、AROS、以及Google基于linux开发的android平台。

       2、解释性

       一个用编译性语言比如C或C++写的程序可以从源文件（即C或C++语言）转换到一个你的计算机使用的语言（二进制代码，即0和1）。这个过程通过编译器和不同的标记、选项完成。运行程序的时候，连接/转载器软件把你的程序从硬盘复制到内存中并且运行。

       而Python语言写的程序不需要编译成二进制代码。你可以直接从源代码运行程序。在计算机内部，Python解释器把源代码转换成称为字节码的中间形式，然后再把它翻译成计算机使用的机器语言并运行。这使得使用Python更加简单。也使得Python程序更加易于移植。