vb整数分离

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

窗体中做三个文本框,分别放A,B,及A、B的最大分约数.PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Dor=aModba=b

privatesubform_click()n=val(text1)m=val(text2)ifn

DimnMaxasInteger,nMinasInteger,nTmpasInteger,nJsqasIntegerDimdSumasDoubleRandomizenTmp=CInt(Rnd*100)

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

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

PrivateSubCommand1_Click()DimSAsLongS=YueOrBei(24,32)MsgBox"24和32的最大公约数是："&S,vbInformationS=YueOrBei

Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N

dimnumnum=122.02ifnumint(num)thenmsgbox("非整数")

inputxifx=int(x)thenprintx;"isainteger."elseprintx;"isn'tainteger."或者inputxifx-int(x)>0thenprintx;"i

给你两段代码,一个是过程,一个是自定义函数.Subabc()DimxAsIntegerx=InputBox("输入一个整数")Fori=1ToLen(x)k=k+Mid(x,i,1)^2NextIfI

functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%

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

subtest()dimii=textbox1.valueif(imod2=0)thenlabel1.caption=“偶数”eslelabel1.caption="奇数"endifendsubtex

2AModB=03like"A10?"'如：a="A101":B="A102":c="A103":D="b111"ifalike"A10?"thenmsgbox"变量A满足条件"endififblik

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

虽然说你设定无范围,但VB中规定的整数的取值范围,好象最大是32767,我没有查.dimaasintegera=rnd(32767)

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

Randomizea=int(rnd*6)+50

用Format函数,比如通过text输入,转换后在窗体打印：PrivateSubCommand1_Click()n=Text1.Textt=Format(n,"000.###")PrinttEndSu