如何用vb将这个数的个.十.百三个位上的数值提取出来

最大数＝IIF（数1>数2,数1,数2）

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

其实从思想上来说,就是一个排序的思路问题.排序的方法有很多.说2个最简单的（设让结果从小到大排列）方法一假设10个数把第一个依次与他后面的比较,如果比后面的大,就把位子换下,这样当第一个看完后面9个数

个位num=num%10;十位num=num%100/10;百位num=num/100;再问：num是三位数，你对它用10求余怎么是个位了？不懂。麻烦你再解答一下吧，谢谢啦

dimaasintegerdimbasintegera=text1.textb=text2.textPrivateSubCommand1_Click()text3.text=val（a+b）endsu

PrivateSubForm_load()DimiAsIntegerDimjAsIntegerDimxAsIntegerFori=2To10000f=0'f用来标识是否为素数Forj=2ToInt(S

'以下代码产生30个区分大小写的不同字母PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,ich(30)AsInteger,chAsString,A

dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu

elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V

假设有n个数.#includevoidmin(int*a,int*b){intdata;if(*a

只需一个command按钮,在command_click事件中写上dima,basIntegera=val(inputbox("请输入第一个加数","输入"))b=val(inputbox("请输入第

转换为普通坐标极长为R角度为Φ则：坐标为：x=R*cosΦy=R*sinΦ

产生2~99之间的1次1个随机数randomizeInt((99-2)*Rnd+1)产生1~n之间的1次20个随机数RandomizeDimtemAsInteger,jAsInteger,iAsInt

PublicSubt1()Dimi,a,b,c,dAsIntegerFori=100To1000a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Ifa^3+b^3+c^3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e&

‘直接给代码,窗体上只需一个名为command1的按钮Private Sub Command1_Click()   Dim a(1 

2.258.023.4又3分之14.56,1

这个程序需要将Form的AutoRedraw属性设为TrueFunction比大小(a,b,c)Dimmax,minAslongmax=a:min=bifamaxthenPrintc&""&max&"

PrivateSubCommand1_Click()Text2="该数是由"&Mid(Text1,1,1)&"个百"&Mid(Text1,2,1)&"个十"&Mid(Text1,3,1)&"个个"&"

1×100＋6×10＋9×1＋3×0.01＝169.03