VB中编制分别计算两个数的和与差,而当两个数的值均为0时则不进行任何计算.

;以下解答仅供参考,不保证全部正确,但基本思路的代码片段都有了DATASEGMENTNUMDB1,2,...,20;这个你随便写20个字节的数据PDB20DUP(?);正数组PNUMDB0;正计数ND

PrivateSubCommand1_Click()Dimn1&,m1&,m&,n&,r&n1=InputBox("输入n1")m1=InputBox("输入m1")Ifm1>n1Then'为了求最小

PrivateFunctionSum(ByValnAsLong)AsIntegerDimiAsIntegerDimsAsStrings=Trim(Str(n))Fori=1ToLen(s)Sum=Su

这个很好解决,再问：邮箱是：sxhanyc@126.com问题是：若输入-5，这时显示的结果应当是（）；如果输入某数后，显示的结果是13，那么输入的数是（）。要快！再答：已发送，请查收--------

77只能分解成和1*77,7*11,前者明显不合适,那两数的和就是11,差是7,这样就能算出来两数是9和2了

不可能的,VB虽然是解释型语言,但是它的内部函数是用汇编做的,特别是数学运算这一块,可以说任何编程语言都是这样,除非你自信你用汇编做整除比微软厉害.再问：那么请问，如果要想对两个位数很多的整数进行加减

FunctionJudge(NAsInteger)AsBooleanJudge=NMod17*37=0EndFunctionPrivateSubForm_Click()DimiAsIntegerFor

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

#includestructComplex{\x05inti;\x05intj;};structComplexsubtract(structComplex,structComplex);structC

本人没学过只是编程爱好者献丑了问题1PrivateSubCommand1_Click()Text3=""DimA1AsIntegerDimA2AsIntegerDimA3AsIntegerA1=Tex

子夜的是时间的意思,中国古代计时是用地支计时,也就是所谓的12个时辰,（子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥）比如说子时开始的时间是晚上的23：00：00（晚上的11点）到01：00：00（

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

4508645088

intHCF(intx,inty)//定义最大公约数函数{inti,change;if(x>y)//保证x是最小数{change=y;x=change;y=x;}for(i=x;i>=1;i--)if

dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum

DimxAsLongPrivateSubCommand1_Click()DimaAsLong,bAsLonga=Val(InputBox("A="))b=Val(InputBox("B="))Call

你试试把d=a+c改为,d=Val(a)+Val(c)应该没问题了

Private Sub Command1_Click()     Dim S As Long&nbs

自已写个累加

VB规定：Cint(True)=-1Cint(False)=0或者说：True的值等于-1,False的值等于0.执行A+1=B=2可以理解为是一个关系表达式先执行关系运算：A+1=B如果相等返回Tr