在Vb中编一个程序,输入三个数,输出其中较大的数

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

简单写一下代码流程dima(20)fori=0to19a(i)=inputbox(“输入第"+str(i+1)+"个数")nextisum=0fori=0to19sum=sum+a(i)nexti备注

这个是我新编的,你可以试试#include#includevoidmain(){floata,b,c,d,s;scanf("%f,%f,%f",&a,&b,&c);if(a+b>c&&a+c>b&&b

PrivateSubCommand1_Click()IfText1.Text=""ThenExitSubDimwordAsVariant,sAsStringDimkAsInteger,maxwAsSt

Dimb()AsStringb()=Split(a,"")然后判断每一个b数组每一个数据的len即可

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

被5整除的数有一个特点,分为两类,一类是可以被10整除,如10,20……,另一类就是不能被10整除但是能被5整除,如5,15……dimcount1aslong‘先看n整除以10等于多少,比如n是10的

scanf("%d,%d,%d,&a,&b,&c");改成scanf("%d,%d,%d“,&a,&b,&c);printf("thelargerstnumberis%d\n,max");改成prin

#include"stdio.h"intmain(){inta,b,c,tmp,max;printf("inputa,b,c:");scanf("%d%d%d",&a,&b,&c);if(a>b&&a

voidmain(){inta[10],min,max;cout

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

任意两边和大于第三边任意两边差小于第三边A,B,C>0A+B>CA+C>BB+C>A|A-B|

PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(

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

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

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

x除10

intA,B,CifA>BandB>Cthenmessagebox("排列”,A,B,C）elseifA>BandBCthenmessagebox("排列”,A,C,B）else...........

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

这个比较麻烦,我曾经写过这么个程序片段,现在贴上来,代码比较复杂Shape1是时钟的一个框,是Shape控件,设置Height1455Width1575LineHour,LineMinute,Line