求正方形面积最合适的VB 程序结构

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

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

正方形面积：3÷3.14×4≈3.82平方分米再问：为什么要把R²×4？再答：3÷3.14是求半径的平方，也是正方形边长一半的平方所以需要×4

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()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状（只限于长方形~正方形或三角形）","请

正方形内取一个面积最大的圆,就是个方中圆问题,正方形的面积：圆形的面积=4：π.所以圆形的面积=12÷4×3.14=9.42（平方分米）

楼上的程序会慢死人的.给一个非递归实现.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

正方形的面积=12平方厘米=边长*边长正方形内最大圆的直径=边长,半径=1/2边长正方形内最大圆的面积=3.14*半径*半径=3.14*1/2边长*1/2边长=3.14/4*12=9.42平方厘米根号

新建一个工程,双击Form1窗体空白区域,在出现的代码窗口中输入如下代码：PrivateSubForm_Load()a=InputBox("请输入边长：","计算正方形的面积")MsgBox"面积="

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

正方形边长为2倍根号10,所以圆的半径等于边长的一半根号10,根据圆的面积公式πr的平方,可得等于10π,若取π为3.14,则面积为31.4平方米

第一个要求的第（4）,是计算圆形面积还是计算正方形面积?我按计算正方形面积给你做的……注意：我默认你的学号为01,你可以自己修改的!SquareFrame.java完整代码：注意后面还有Square0

当圆的直径=是正方形的边长的时候圆最大,所以半径=正方形边长的一半下面利用圆周长公式C=2πr圆面积公式S=πr²就可以求了如：正方形的边长是4那么：正方形中最大圆的半径是4÷2=2面积=3

我HI你吧,等一下