常用的的测量程序vb代码.doc

VB测量程序设计代码取一元、二元、五元的硬币共十枚，付给25元钱，有多少种不同的取法?方法一Private Sub Command1_Click()Print 一元, 两元, 五元For a = 0 To 10For b = 0 To 10For c = 0 To 10If a + 2 * b + 5 * c = 25 And a + b + c = 10 ThenPrint a, b, cEnd IfNext cNext bNext aEnd Sub：方法二Private Sub Command1_Click()Print 一元, 两元, 五元For a = 0 To 10For b = 0 To 10c = 10 - a - bIf a + 2 * b + 5 * c = 25 And c 0 ThenPrint a, b, cEnd IfNext bNext aEnd Sub九九乘法表方法一Private Sub Command1_Click()Print Tab(12); 九九乘法表For i = 1 To 9For j = 1 To iPrint i * j;Next jPrintNext iEnd Sub方法二Private Sub Command2_Click()ShowFontSize = 15Print Tab(12);FontSize = 12PrintFor k = 0 To 9Print Tab(k * 4); k;Next kjiuPrintFor j = 1 To 9Print j;For k = 1 To jPrint Tab(k * 4); j * k;Next kPrintNext jEnd Sub求T = 8! = 1238Private Sub Command1_Click()jc = 1n = Val(Text1.Text)For c = 1 To njc = jc * cNext cPrint jc=; jcEnd Sub用100 元买100 只鸡，母鸡3元1只，小鸡1元3只，问各应买多少只?Private Sub Command1_Click()Dim x As Integer, y As IntegerFor x = 1 To 30y = 100 - xIf 3 * x + y / 3 = 100 ThenPrint 母鸡只数为:; x,Print 小鸡只数为:; yEnd IfNext xEnd Sub数组打印数组的上界和下界数值Private Sub Command1_Click()Dim a(1 To 10) As IntegerPrint 下界值, 上界值Print LBound(a), UBound(a)End Sub数组解决1+2+3+4+5+6+7+8=？Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim sum As IntegerFor b = 1 To 8a(b) = bsum = sum + a(b)Next bText1.Text = sumPrint 1+2+3+4+5+6+7+8= & sumEnd Sub任意五个数字之和Private Sub Command1_Click()Dim Data(5) As IntegerDim Sum, I As IntegerFor I = 1 To 5Data(I) = InputBox(输入第 & I & 个数据)Next IFor I = 1 To 5Sum = Sum + Data(I)Next IText1.Text = SumPrint SumEnd Sub连续输入5个数字例如1，2，3，4，51+3+5+7+9=？奇数和Private Sub Command1_Click()Dim a(1 To 5) As IntegerDim sum As IntegerFor x = 1 To 5a(x) = x * 2 - 1sum = sum + a(x)Next xText1.Text = sumPrint sumEnd SubPrivate Function pf(x As Long, y As Long) As Longs = Sqr(x 2 + y 2)pf = sEnd FunctionPrivate Sub Command1_Click()Dim a As LongDim b As LongDim c As Longa = Val(Text1.Text)b = Val(Text2.Text)s = pf(a, b)Print sEnd SubSub过程 和 Function过程3. 编写过程，求两个数的最大公约数。Private Sub pd(x As Integer, y As Integer, z As Integer)For j = 1 To yIf x Mod j = 0 And y Mod j = 0 Then z = jEnd IfNext jEnd SubPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As Integera = Val(Text1.Text)b = Val(Text2.Text)Call pd(a, b, c)Print cEnd Sub4. 编写一个计算平方根的Function过程Private Function pf(x As Long, y As Long) As Longs = Sqr(x 2 + y 2)pf = sEnd FunctionPrivate Sub Command1_Click()Dim a As LongDim b As LongDim s As Longa = Val(Text1.Text)b = Val(Text2.Text)s = pf(a, b)Print sEnd Sub判断一个数是奇数还是偶数Private Sub pd(a As Integer, b As String)If a Mod 2 = 0 Thenb = 偶数 Elseb = 奇数End IfEnd SubPrivate Sub Command1_Click()Dim x As IntegerDim y As Stringx = Val(Text1.Text)Call pd(x, y)Print yEnd Sub10. 有5个人坐在一起，问第5个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第3个人大2岁。问第3个人，又说比第2个人大2岁。问第2个人，说比第1个人大2岁。最后问第1个人，他说是10岁。请问第5个人有多大岁数？第一种Private Sub pd(a As Integer, b As Integer, c As Integer, d As Integer, e As Integer)a = 10b = a + 2c = b + 2d = c + 2e = d + 2End SubPrivate Sub Command1_Click()Dim m As IntegerDim n As IntegerDim l As IntegerDim k As IntegerCall pd(10, m, n, l, k)Print 10, m, n, l, kEnd Sub第二种Private Function pd(a As Integer) As Integera = 10For i = 1 To 4a = a + 2Print aNext ipd = aEnd FunctionPrivate Sub Command1_Click() Dim s As IntegerDim a As Integers = pd(10)Print 10Print sEnd Sub1+2+3+.100=？方法一Private Sub Command1_Click()Dim i As Integers = 0Do While i 0 Thenfwj = 0ElseIf dx = 0 And dy 0 And dy = 0 Thenfwj = pi / 2ElseIf dx 0 And dy 0 Thenfwj = Atn(dy / dx)ElseIf dx 0 And dy 0 Thenfwj = 1.5 * pi + Atn(Abs(dy / dx)ElseIf dx 0 Thenfwj = pi - Atn(Abs(dy / dx)ElseIf dx 0 And dy pi ThenMsgBox 输入有误不能交会！Elsexp1 = (xa1 * (1 / Tan(n) + xb1 * (1 / Tan(m) - ya1 + yb1) / (1 / Tan(m) + (1 / Tan(n)yp1 = (ya1 * (1 / Tan(n) + yb1 * (1 / Tan(m) + xa1 - xb1) / (1 / Tan(m) + (1 / Tan(n)End IfEnd SubPrivate Sub dfmtohd(szj1 As Double, fwj2 As Double)Dim du As IntegerD