VB编程程序练习题VIP专享VIP免费

VB 编程练习题 1、* 编写程序：输入一元二次方程的系数 a,b,c 的值，求解一元二次方程的根。 Private Sub Command1_Click() Dim a#, b#, c# a = Val(InputBox("参数 a=")) b = Val(InputBox("参数 b=")) c = Val(InputBox("参数 c=")) Call root(a, b, c) End Sub Private Sub root(x#, y#, z#) Dim t#, x1#, X2# t = y * y - 4 * x * z If t > 0 Then x1 = (-y + Sqr(t)) / (2 * x ) X2 = (-y - Sqr(t)) / (2 * x) Print "实根"; "x1="; x1, "x2="; X2 Else x1 = -y / (2 * x): X2 = Sqr(Abs(t)) / (2 * x) Print "虚根", "x1=" & x1 & "+" & X2 & "i" End If End Sub 2、* 编写程序：已知 x、y、z 分别是 0～9 中的一个数，求 x、y、z 的值，使得下列成立： xxz+yzz=532。（其中 xxz 和 yzz 不表示乘积，而是由 x、y、z 组成的三位数）。 Private Sub Command1_Click() Dim x, y, z For x = 1 To 9 For y = 1 To 9 For z = 1 To 9 If (100 * x + 10 * x + z) + (100 * y + 10 * z + z) = 532 Then Print x, y, z; End If Next z Next y Next x End Sub 3、* 编写程序：* 计算并输出下面级数前n 项（n=50）的部分和。1*2+2*3+3*4+4*5+……+n*(n+1)+… Private Sub Command1_Click() Dim i As Integer, n As Integer, sum As Integer n = Val(Text1.Text) For i = 1 To n sum = sum + i * (i + 1) Next i Print sum End Sub 4、* 编写程序：编程计算1－2＋3－4＋5－6…±n 的值，n 由用户输入 Private Sub Command1_Click() Dim s As Integer, a As Integer, i As Integer n = Val(Text1.Text) s = 0: a = 1 For i = 1 To n s = s + i * a a = -a Next i Print s End Sub 5、* 编写程序：编程计算1+(1+2)+(1+2+3)+…+（1+2+3…+n），n 由用户输入。 Private Sub Command1_Click() n = Val(Text1.Text) Sum = 0 For i = 1 To n sum1 = 0 For j = 1 To i sum1 = sum1 + j Next j Sum = Sum + sum1 Next i Print Sum End Sub 6 * 编写程序： * 计算并输出下面级数前n 项（n=30）的部分和。 1/(1*2)+...