【VB开源代码栏目提醒】：网学会员VB开源代码为您提供VB编程程序练习题 doc - 讲义教程参考，解决您在VB编程程序练习题 doc - 讲义教程学习中工作中的难题，参考学习。

    

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 编写程序 计算并输出下面级数前n项n50的部分和。

    12233445????nn1?? Private Sub Command1_Click Dim i As Integer n As Integer sum As long n ValText1.Text For i 1 To n sum sum i i 1 Next i Print sum End Sub 3 编写程序设计一个程序随机产生一个三位正整数然后逆序输出产生的数与逆序数同时显示。

     Private Sub Command1_Click Dim y Randomize X IntRnd 900 100 Print X y strreversex print y End Sub 4 编写程序 要求能够产生一个10100内包括10和100的一个随机数然后判断其是否是素数。

     如果是在窗体上输出yes否则输出no。

     Private Sub Command1_Click a Int10 91 Rnd For i 2 To IntSqra If a Mod i 0 Then Print a : no Exit Sub End If Next i Print a : yes End Sub 5、 编写程序使用级数求π的值。

    根据下式计算圆周率π的近似值当计算到绝对值小于0.0001的通项时认为满足精度要求停止计算。

     用到的公式为π/41-1/31/5-1/7... Private Sub Command1_Click Dim s n t pi t 1: pi 0: n 1: s 1 While Abst 0.0001 pi pi t n n 2 s -s t s / n Wend pi pi 4 Print pi End sub 6、 编写程序 使用双重循环在窗体上输出“九九乘法表”的上三角。

     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 7 编写程序利用文本框输入一个年份编程判定该年份是否是闰年。

    判定条件是能被400整除或者能被4整除但不能被100整除的年份是闰年。

    在文本框中输入年份使用print输出是否为闰年。

     Private Sub Command1_Click Dim i As Integer s As Integer s IntText1.Text If s Mod 400 0 Or s Mod 4 0 And s Mod 100 0 Then Print 闰年 Else Print 不是闰年 End If End Sub 8、 编写程序百钱买百鸡。

    公元前5世纪我国数学家张丘建在《算经》中提出“百鸡问题”鸡翁一值钱五鸡母一值钱三鸡雏三值钱一。

    百钱买百鸡问鸡翁、鸡母、鸡雏各几何 Private Sub Command1_Click For x 0 To 30 For y 0 To 33 If 5 x 3 y 100 - x - y / 3 100 Then Print xy100 - x - y End If Next y Next x 注X代表公鸡Y代表母鸡 146第二题 Private Sub Form_Load Command1.MousePointer vbCrosshair Text1.MousePointer vbHourglass Picture1.MousePointer vbCustom End Sub Private Sub Picture1_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then MsgBox 现在鼠标光标位于图片框中 End Sub Private Sub text1_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then MsgBox 现在鼠标光标位于文本框中 End Sub Private Sub command1_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then MsgBox 现在鼠标光标位于命令按钮中 End Sub 11. 编写程序用键盘完成在从键盘上输入到Text1中的一组字符串中找到其中的数Private Sub Command1_Click Dim str As String tmp As Stringi As Integera1 To 100 As Variant Dim n As Integer str Text1.Text n 0 For i 1 To Lenstr tmp Midstr i 1 If tmp 0 And tmp 9 Then ai tmp n n 1 End If Next i If n 1 Then ElseIf n 0 Then MsgBox 没有数字 Else For i 1 To Lenstr - 1 For j i 1 To Lenstr If ai aj Then tmp ai ai aj aj tmp Else End If Next j Next i End If For i 1 To Lenstr Text2.Text Text2.Text ai Next i End Sub