VB 写一个矩形函数Private Type RECT 'left As Longtop As Longright As Longbottom As LongEnd Type任意框选一个区域,写个RECT函数返回left,top,right,bottom 的值!Private Function 矩形(Rects() As RECT) As RECT这里面的函数该怎

VB 写一个矩形函数Private Type RECT 'left As Longtop As Longright As Longbottom As LongEnd Type任意框选一个区域,写个RECT函数返回left,top,right,bottom 的值!Private Function 矩形(Rects() As RECT) As RECT这里面的函数该怎 vb.net定义一个函数,private a （）括号里如何定义可有可无的参数? 用VB编程写一个圆柱体体积的函数过程 VB里面Private Sub form_click()什么意思为什么开头都差不多写这个! vb 一个分段函数 编程错误 我用的 vb6.0版的 编一个分段函数 如下Private Sub form_Click()Dim x As Integer,y As Integerx = Val(InputBox(请输入x值:))If x VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.我写了一个Private Sub Text1_Change()Dim x As Integer,y As IntegerIf x VB语句问题,编写求矩形面积的函数过程,调用该函数求任意两个矩形的面积和. vf中at函数在vb中怎样写 VB里的“Private Sub Command1_Click()”是什么意思?那个横, VB：用调用函数的方法找出所有三位数的水仙花数.这是我写的代码：Private Sub Command1_Click()Dim a(101,999) As IntegerFor a = 101 To 999 Step 1If isnum = True Then Print a;NextEnd IfEnd SubPrivate Function isnum(n As Integer) 在vb中 Command3(Index).它是一个函数吗? vb如何求的一个分段函数的最大值 vb 自定义 一个 长方形面积函数!简洁一点! VB定义函数问题我想把函数定义在一个程序里面的IF里面 .这个定义在该怎么写啊? 求助高手一个三角函数公式,如何用VB写出来?Private Sub Form_Load()Dim a,b,c,s1,s2 As Doublea = Text1.Textb = Text2.Textc = a + bs1 = Cos(a * 3.14 / 180)s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)Text3.Text = s1Text4.Text = s2End Sub目的 我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox(请输入形状（只限于长方形~正方形或三角形）,请输 vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后（包括大写）,x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T 一个函数有哪几种类型(public,private 等.),分别有什么作用?