vb输入正整数交换后

Function Exchange(ByVal num As Integer)    If num 

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimcAsDoublem=Val(InputBox("m="))n=Val(InputBox("n

DimXAsInteger这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成DimXAsSingle

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

car小汽车bus公共汽车train火车plane飞机bike自行车

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

DimnAsInteger,iAsIntegerDimflgAsBooleann=Val(Text1.Text)n=n+1Fori=2ToSqr(n)IfnModi=0ThenExitForNexti

数组越界了,这个错误初学者很容易犯,以致有了专有名称：一位偏移对于a[10],索引是从0开始,9结束的数组,需要从0开始遍历for(i=0;i

太不规范了吧.看着头晕.for(i=0;i

PrivateSubForm_Click()DimnAsIntegern=InputBox("请输入一个正整数n")s=1Fori=nTo1Step-1s=s*iNextiPrintn&"!="&sE

PrivateSubCommand1_Click()d=Val(Text1)Print100*(dMod100)+Int(d/100)EndSu

呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex

我再问问清楚你的意图：有一个数组,存放了一组（n个）大小不相等的数字；要求：当text1里：输入1,变量D里获得数组中的最大值；输入2,变量D里获得数组中的第2大值；输入3,变量D里获得数组中的第3大

需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

Modulemodule3SubMain()DimnumAsIntegerDimiAsIntegerConsole.Write("请输入一个正整数：")num=Integer.Parse(Consol

1）输入一个数计算数的个数通过取模算法取出每位数存入数组将数组中元素立方运算后相加2）输入一个数利用itoa函数转换为字符串取出每个字符,减去48后做立方运算相加

PrivateSubCommand1_Click()Dima()AsIntegern=Val(InputBox("N="))ReDima(n)Print"Before:&

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