VB书写判断奇偶数的程序

A2=IF(ISODD(A1),公式1,公式2)isodd完全可以判断数据的奇偶性,根本没必要去mod一次,如果表太大会拖累速度的.

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

x=-x带入,(1)中y(-x)=-y(x)所以奇函数,(2)中lg-x+1/-x-1=lg-(x-1)/-(x+1)=lg(x+1/x-1)^-1=-lg(x+1/x-1)所以y(-x)=-y(x)

判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei

dimi,j,n,tasintegern=inputbox("n=")fori=1tonifimod2=0thent=i\2forj=2toint(sqrt(t))iftmodt=othenexitf

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

f(x)=-3x二次方f(-x)=-3*(-x)二次方=-3x二次方=f(x),偶函数

'Text1,Text2,Text3输入'Text4,Text5输出公约数,公倍数PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteg

=MOD(A1,2)结果为0时,为偶数.=IF(MOD(A1,2),"奇偶","偶数")

DimxAsInteger,iAsIntegerx=InputBox("请输入你要判断的数字")Ifx

FunctionGetOE(NumAsLong)AsStringGetOE=IIf(NumMod2,"奇数","偶数")EndFunctionPrivateSubCommand1_Click()Msg

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

    tmp = InputBox("随便输入几个数,用逗号隔开就可以了.")   &n

importjavax.swing.JOptionpane;//导入JOptionpane类.publicclassTest{publicstaticvoidmain（Stringargs[]）{in

DimmAsIntegerPrivateSubCommand1_Click()a=InputBox("请输入数字")Fori=1ToVal(a)IfaModi=0Thenm=m+1NextIfm=2T

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"

n=int(val(inputbox("请输入一个大于0的整数:","输入","1")))ifn

DimSasinteger（可能拼错了）Fori=1ton-1"n为要判定的数Ifi/n=Int（i/n）then“判定i是否为n的因子S=S+iEndifNexti大概是这样再问：请问可以完整点吗?

PrivateSubCommand1_Click()IfIsNumeric(Text1.Text)Then'是否数字IfSgn(Val(Text1.Text))>0Then'是否正数IfCLng(Va

用excel做的,打开excel文件,在sheet1上点右键,查看代码就可以了1的程序代码PrivateSubCommandButton1_Click()IfVal(TextBox1.Text)Mod