VB输出一个数

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

PrivateFunctionFunc(ByValSAsString)AsByteIfLen(S)4ThenExitFunctionFunc=Val(Left$(S,1))+Val(Mid$(S,3,

dimi,sfori=200to300s=imod5ifs=""thenprintiendif再问：大哥对不对啊我马上要考VB了，再答：PrivateSubCommand1_Click()Dimi,s

PrivateSubCommand1_Click()Dims%,x%sum=Array(1,3,4,12,32,1,3)Fori=0ToUBound(sum)s=s+1x=x+sum(i)NextiF

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

=min(A1:A5)下拉

先把产生的三个随机数保存在一个数组中,输出该三个随机数,然后将数组中的逆序并输出,

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

亮出你的qq我发你程序

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

privatesubform_click()dimnaslongdimxasstringdimyasstringfori=1000to9999x=mid(i,1,2)y=mid(i,4,1)&mid(

PrivateSubForm_Click()Dimx1%,x2%,count%count=0Fori=1To100x1=iMod5x2=iMod7Ifx1=0Andx2=0ThenPrinti;End

PrivateSubCommand1_Click()Dima(30)asIntegerIfOption1.Value=TrueThena(1)=1a(2)=1Fori=3To30a(i)=a(i-1)

PrivateSubCommand1_Click()d=Val(Text1)Print100*(dMod100)+Int(d/100)EndSu

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

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

Private Sub Command1_Click()    Dim j As Long, x&n

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

分别用random(),max(),min(),avg()函数.