vb中任意输入三个数,单击排序从大到小

#includevoidmain(){floata,b,c,t;scanf("%f,%f,%f",&a,&b,&c);if(a>b){t=a;a=b;b=t;//实现a和b的互换}else;if(a>

第一题答案：OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个数"))Ifisprime(n)Then

publicsubcommand1_click()text3=(val(trim(text1))+val(trim(text2)))/2endsu

在按钮的click事件里写IFTEXT1>TEXT2thenTEXT3=TEXT1/TEXT2elseTEXT3=TEXT2/TEXT1endif

PrivateSubCommand1_Click()IfVal(Text1.Text)IfVal(Text3.Text)IfVal(Text1.Text)Text2.Visible=FalseText

PrivateSubCommand1_Click()DimiAsinteger,jasintegerDimb(1To5)AsDoubleDimtmpAsDoublefori=1to5b(i)=Inpu

额,这个问题是个很简单的问题,只有2个数字而已,只要一个比较就行了啊.#includevoidmain(){inta,b;scanf("%d%d",&a,&b)if(a

#includeintmain(void){inta,b,c,t;printf("请输入三个数");scanf("%d%d%d",&a,&b,&c);if(a

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEnd

PrivateSubCommand1_Click()Dima()AsStringa=Split(Text1.Text,"")‘分割两个数据Text2.Text=(Val(a(0))+Val(a(1))

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

THEN后面直接换行!（或加冒号:）你的程序太乱!题目中是X、Y、Z,程序中是a、b、c,一会儿又有m、n这样写：PrivateSubCommand1_Click()X=Text1.Text:Y=Te

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

Dima(5)AsDoublefori=1to5a(i)=fix(rnd*10)nextiFori=1To4Forj=1To5-iIfa(j)temp=a(j)a(j)=a(j+1)a(j+1)=te

这里有两种方法.第一种,直接交换,代码比较多,容易出错.第二种,把交换部分写成一个独立过程,中间调用.便于阅读,书写方便,不易出错.用户的关于从大到小和从小到大排序选择,使用Option控件（）如图.

#includeintmain(){inta,b,c;intsum,max,min;scanf("%d%d%d",&a,&b,&c);sum=a+b+c;max=a>ba:b;max=max>cmax

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

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

PrivateSubCommand1_Click()Text2.Text=""Fori=1ToVal(Text1.Text)Text2.Text=Text2.Text&Int(Rnd*100)&""N