VB程序求ABC三种邮票的数量

1、设X张6角,Y张8角.0.6X+0.8Y=72、设读了X天.12+6（X-1）=483、一杯水重X克,空瓶重（440-3X）.440-3X=600-5X

Private Sub Command1_Click()Dim a(1 To 3) As Double, max#For

60/3=204*20=807*20=140答:小红有140张,小英有80张.如果还不明白请问我

大体伪代码框架如下y=int(x);if(y/2*2==y)even()elseodd()另,这算法好傻,最快判断奇偶的话,只需要看整数的最后1位是0还是1就行了（因为计算机用的是二进制数）

dim sum as longdim i as integerfor i = 2 to 1

Ifa>bthenifa>cthenifb>cthenPrint"a>b>c"elsePrint"a>c>b"elsePrint"c>a>b"endifelseifa

PrivateSubCommand1_Click()Text3.Text=3.14*(Val(Text1.Text)^2-Val(Text2.Text)^2)EndSub再问：能具体一点吗再答：上面就

'Text1,Text2,Text3输入'Text4,Text5输出公约数,公倍数PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteg

是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma

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

PrivateSubCommand1_Click()Dims%,n%DimaAsStringn=0a=InputBox("Pleaseinputanumber:")Fors=1ToLen(a)If(f

大概这个意思：Dim MaxY as SingleDim X,YMaxY = -999999For X = 1

楼上的程序会慢死人的.给一个非递归实现.functionFibonacci(byvalnasLong)asLongdiml1aslong,l2aslong,l3aslongl1=1l2=1ifn

Dimr(9)AsIntegerPrivateSubCommand1_Click()'产生随机数DimiAsIntegerRandomizeFori=0To9r(i)=Int(Rnd*90)+10Pi

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

Int和Fix都会删除number的小数部份而返回剩下的整数.Int和Fix的不同之处在于,如果number为负数,则Int返回小于或等于number的第一个负整数,而Fix则会返回大于或等于numb

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

以下是画一元二次方程的图的代码：（假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800）PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi

我HI你吧,等一下