VB编写程序,输入一个三位数,把它的个位.百位.十位显示出来的代码

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

参考：http://hi.baidu.com/%D7%F6%B6%F8%C2%DB%B5%C0/blog/item/5522a1674310773caa184c64.html

dimii=0forj=100to999ifjmod3=0thenif(j-6)mod10=0theni=i+1endifendifnext没有编译运行LZ自己试试

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

PrivateSubCommand1_Click()Dims$,i%,sMax$,sArr$()s=InputBox("任意输入一个英文句子","输入英文","Hello,thisisatestcom

答案：485PublicSubCountGT13()DimiAsLongDimrAsLongDimsAsLongDimtAsLongDimnAsLongn=0Fori=100To999r=Int(i/

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

存在如下问题:1、s重复定义2、i重复定义3、最后一条printf语句少分号4、警告；j定义了,但是没有使用5、你的交换语句a[p]=a[0];只是一个单纯的复制,没有交换.6、警告：main函数返回

开始输入两个数吧!#include#includemain(){inti,j,m,n,t,a[100]={0};printf("inputm,n:");scanf("%d%d",&m,&n);for(

公倍数,余下的,再装到其中一种盒子中.再问：。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊？

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

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(

intmain(){intn,n1,n2;cin>>n1;n2=n1%100;n1=n1/100;n=n1;n2=n2%10;n1=n1/10;n=n+10*n1+100*n2;returnn;}

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

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

我HI你吧,等一下