【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，VB编程程序练习题 - 编程语言，希望对大家有所帮助！

VB编程练习题 1、 编写程序输入一元二次方程的系数abc的值求解一元二次方程的根。

     Private Sub Command1_Click Dim a b c a ValInputBox参数a b ValInputBox参数b c ValInputBox参数c Call roota b c End Sub Private Sub rootx y z Dim t x1 X2 t y y - 4 x z If t 0 Then x1 -y Sqrt / 2 x X2 -y - Sqrt / 2 x Print 实根 x1 x1 x2 X2 Else x1 -y / 2 x: X2 SqrAbst / 2 x Print 虚根 x1 x1 X2 i End If End Sub 2、 编写程序已知x、y、z分别是09中的一个数求x、y、z的值使得下列成立 xxzyzz532。

    其中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项n50的部分和。

    12233445????nn1?? Private Sub Command1_Click Dim i As Integer n As Integer sum As Integer n ValText1.Text For i 1 To n sum sum i i 1 Next i Print sum End Sub 4、 编写程序编程计算123456??±n的值n由用户输入 Private Sub Command1_Click Dim s As Integer a As Integer i As Integer n ValText1.Text s 0: a 1 For i 1 To n s s i a a -a Next i Print s End Sub 5、 编写程序编程计算112123??123??nn由用户输入。

     Private Sub Command1_Click n ValText1.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项n30的部分和。

     1/121/231/34??1/nn1 ???? Private Sub Command1_Click Dim i As Integer n As Integer sum As Integer For i 1 To 30 sum sum i i 1 k 1 / sum w w k Next i Print w End Sub 7、 编写程序 求出斐波那契数列前20项中的奇数项的和。

     提示前两项为01从第3项开始每一项均为其前两项的和即011235...。

     Private Sub command1_Click Dim a b c d a 0: b 1 For d 1 To 18 c a b a b b c If d Mod 2 1 Then Sum Sum c End If Next Print Sum End Sub 8 编写程序设计一个程序随机产生一个三位正整数然后逆序输出产生的数与逆序数同时显示。

     Private Sub Command1_Click Dim y Randomize X IntRnd 900 100 Print X y strreversex print y End Sub 呵呵还有一种方法y X Mod 10 IntX / 10 Mod 10 IntX / 100也可以实现逆序排列 还有一种方法For i 0 To 2 y y MidX 3 - i 1 Next i Print y 也可以啊O∩_∩O 9、 编写程序计算并在窗体上输出数字8的平方根和立方根。

     Private Sub Command1_Click x 8 1 / 2 y 8 1 / 3 Print x y End Sub 10、 编写程序设计一个程序输出在指定范围内的3个随机数范围通过文本框输入。

     Private Sub Command1_Click a ValText1.Text b ValText2.Text c Inta b - a 1 Rnd d Inta b - a 1 Rnd e Inta b - a 1 Rnd Print c d e End Sub 11 编写程序输入x、y、z三个数按从小到大的次序显示。

     Private Sub Command1_Click x ValText1.Text y ValText2.Text z ValText3.Text If z x Then t z: z x: x t End If If z y Then t z: z y: y t End If If y x Then t y: y x: x t End If Print x y z End Sub 12 编写程序求100至999之间的最大的三个素数。

     Private Sub Command1_Click Dim n As Integer i As Integer j As Integer n1 As Integer Dim flag As Boolean n1 1 For n 900 To 100 Step -1 flag True For i 2 To IntSqrn If n Mod i 0 Then flag False Exit For End If Next If flag Then Do While n1 0.0001 pi pi t n n 2 s -s t s / n Wend pi pi 4 Print pi End sub 16、 编写程序利用随机函数产生20个50100不包括50100范围内的随机整数显示它们当中的最大值、最小值和平均值。

     Private Sub Form_Click Dim a max min sum average sum 0 max 20 min 50 For i 1 To 20 a Rnd 50 50 sum sum a If a min Then min a If a max Then max a Print a Next Print max Print min average sum / 20 Print average End Sub 17、 编写程序 使用双重循环在窗体上输出“九九乘法表”的上三角。

     Private Sub Command2_Click Dim I As Integer J As Integer For I 1 To 9 For J I To 9 Print FormatI J I x J Next Print Print Space7 I Next End Sub 18、 编写程序在文本框中输入小时、分、秒化成共有多少秒然后输出总秒数。

     Private Sub Command1_Click Dim h m s x h ValText1.Text: m ValText2.Text s ValText3.Text x h 3600 m 60 s Label1.Caption 共计秒数 Strx 秒 End Sub 19、 编写程序在文本框中输入弧度值将弧度换算为角度值度、分、秒的形式并输出要求秒数保留三位小数。

     Private Sub Command1_Click hudu ValText1.Text a Fixhudu 180 / 3.14 b Fixhudu 180 / 3.14 - a 60 c Fixhudu 180 / 3.14 - a 60 - b 60 d Fixc Print Formatc 000 Print a 度 b 分 c 秒 End Sub 20、 编写程序利用InputBox和MsgBox完成小时、分、秒的输入总秒数的输出。

     Private Sub Command1_Click Dim a b c d a InputBox小时数 b InputBox分钟数 c InputBox秒数 d 3600 a 60 b c e MsgBox总秒数 d End Sub 21、 编写程序在文本框中输入长、宽、高求长方体的表面积并输出。

     Private Sub Command1_Click Dim a b c d a ValText1.Text b ValText2.Text c ValText3.Text d 2 a b b c a c Print 长方体的表面积 d End Sub 22、 编写程序某公司每年的销售收入均比前一年增长10个百分点按此增长率需要多少年可以实现销售收入翻两番的目标 Private Sub Form_Click Dim i As Single Dim s As Integer 设s为所求年数定义为整型结果由窗体输出 i 1 s 0 Do While i