VB程序设计 利用输入对话框输入两个正整数求他们的最大公约数

privatesubcommand1_click()input"x=";xselectcasexcaseis>=0y=x+2case0y=0caseis=0y=x+2elseifx=0y=0elsey

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

没有安装VF大体思路：建立一个文本,用于输入半径r,一个命令按钮求周长,并输出在另一文本中程序较简单：C=2*3.14*

PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu

#include#defineN9999voidmain(){chars[N];inti;printf("请输入一个英语句子：\n");gets(s);for(i=0;s[i]!='\0';i++)i

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

C程序设计：输入2个正整数m和n(1<=m,n<=500),统计并输出m和n之间的素数个数以及这些素数的和.输入：m和n；输出：素数个数以及这些素数的和.

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

Privatesubform_click()Dimnasinteger,sumasdouble,kasintegerN=val(inputbox(“n=”,”请输入自然数n（n>0且nn!Label1

我从来不看那个--我有一个好的用色阶Ctrl+L方法：色阶是调明暗的,移动“小三角”,色阶的调节杠上有三个“小三角”,左边的那个调暗处,往右移会变得更暗；右边的那个调亮的地方,往左移变得更加亮.中间的

其实就是先检测空格,直到没有空格的第一个字符,判断是否为小写字母,若是则转换成大写；若不是,因为输入的是英文,不必担心数字问题,那就只能是大写字母,不用转换.

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

那你直接用下拉列表框多方便呢,或者你非要这么做的话在text1_Change里面写验证ifNOT(text1="A++"ORtext1="A+"ORtext1="A")THENMSGBOX"请输入A或

fori=2to88sum=sum+inextprintsum

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

0本来就是偶数>_

vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I

因为VFP(包括其他编程语言)对数据库数据有严格的要求,其中数据“字段”名必需确定相应的“类型”（如字符型、数值型、日期型、逻辑型等）,目的是便于计算和区别（判断）.用引号引起来,就是对该字段的“类型