As System.Object ByVale As System.EventArgs Handles RadioButton1.CheckedChanged If RadioButton1.Checked True Then month 1 End If End Sub Private Sub RadioButton2_CheckedChangedByVal sender As Object ByVal e AsSystem.EventArgs Handles RadioButton2.CheckedChanged If RadioButton2.Checked True Then month 2 End If End Sub Private Sub RadioButton3_CheckedChangedByVal sender As Object ByVal e AsSystem.EventArgs Handles RadioButton3.CheckedChanged If RadioButton3.Checked True Then month 3 End If End Sub Private Sub Button1_ClickByVal sender As Object ByVal e As System.EventArgsHandles Button1.Click Dim a As Integer a ValTextBox1.Text Select Case month Case 1 If a gt 20 Then TextBox2.Text a 0.95 1000 Else TextBox2.Text a 0.8 1000 End If Case 2 If a lt 20 Then TextBox2.Text a 0.7 1000 Else TextBox2.Text a 0.8 1000 End If Case 3 TextBox2.Text a 0.8 1000 End Select13. 输入 4 个大小不同的数，将它们从大到小排序。

     Private Sub Button1_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles Button1.Click Dim i As Integer Dim a As Integer New Integer3 For i 0 To UBounda ai InputBoxquot请输入第quot amp i amp quot个数quot Next Array.Sorta Array.Reversea For i 0 To UBounda Label1.Text Label1.Text amp ai Next End SubEnd Class14. 利用 if 语句求三个数 x，y，z 中的最大值，并将其放入 Max 变量中显示输出。

     Private Sub Button1_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles Button1.Click Dim x y z max As Integer x ValTextBox1.Text y ValTextBox2.Text z ValTextBox3.Text If x gt y Then If x gt z Then If y gt z Then max x xgtygtz End If Else max z zgt xgty End If Else If x gt z Then max y ygtxgtz Else If y gt z Then max y ygtzgtx Else max z zgtygtx End If End If End If label4.text max End SubEnd Class15. 编一段程序，从键盘输入 3 个整数，找出其中绝对值最小的数。

     Private Sub Button1_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles Button1.Click Dim x y z min As Integer x ValTextBox1.Text y ValTextBox2.Text z ValTextBox3.Text If x gt 0 Then x x Else x -x End If If y gt 0 Then y y Else y -y End If If z gt 0 Then z z Else z -z End If If x lt y Then If x lt z Then If y lt z Then min x xltyltz Else min x xltzlty End If Else min z zltxlty End If Else If x lt z Then min z yltxltz Else If y lt z Then min y yltzltx Else min z zltyltx End If End If End If Label1.Text min End SubEnd Class16. 税务部门征收所得税，规定如下：（1） 收入在 1000 内的，免征。

    （2） 收入在 10001500 元内，超过 1000 元的部分征税 2 。

    （3） 收入超过 1500 元的部分，纳税 3。

    （4） 当收入达到或者超过 5000 元时，将 3税金改为 4。

    编程实现上述条件的税金，利用 InputBox 函数进行输入某人的收入，然后根据条件计算所交税金及交税金之后的实际收入，将所交税金及实际收入通过文本框输出 Private Sub Button1_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles Button1.Click Dim a b c As Integer a InputBoxquot本金quot If a gt 1000 And a lt 1500 Then b a - 1000 0.02 c a - b ElseIf a gt 1500 And a lt 5000 Then b a - 1500 0.03 c a - b Else b a - 5000 0.04 c a - b End If Label1.Text quot利息为quot amp b amp quot quot amp quot实际收入为：quot amp c End SubEnd Class17. 求一个一元二次方程 的根 Private Sub Button1_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles Button1.Click Dim a b c As Integer a ValTextBox1.Text b ValTextBox2.Text c ValTextBox3.Text Dim x1 x2 As Single If a 0 Then If b 0 Then If c 0 Then MsgBoxquot方程有无数解quot Else MsgBoxquot方程无解quot End If Else x1 -c / b x2 -c / b End If Else If b 2 - 4 a c gt 0 Then x1 -b b 2 - 4 a c 0.5 / 2 a x2 -b - b 2 - 4 a c 0.5 / 2 a Else MsgBoxquot方程无解quot End If End If Label4.Text quotx1quot amp x1 amp quot quot amp quotx2quot amp x2 End SubEnd Class18. 任意输入 5 个学生的成绩，当成绩大于等于 60 小于等于 100 时，输出该生成绩“合格”，当成绩大于等于 0 小于 60 时，输出该生成绩“不合格”，其他情况输出“成绩不合法” ，并统计这 5 个人的平均分。

    Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs HandlesButton1.Click Dim i a aray sum As Integer For i 1 To 5 a InputBoxquot输入第quot amp i amp quot个学生成绩quot If a gt 60 And a lt 100 Then Label1.Text Label1.Text amp quot第quot amp i amp quot个学生合格quot amp quot quot ElseIf a gt 0 And a lt 60 Then Label1.Text Label1.Text amp quot第quot amp i amp quot个学生不合格quot amp quot quot End If sum sum a Next aray sum / 5 Label2.Text quot平均分为：quot amp aray End SubEnd Class19. 用两种循环结构输出 101500 之间的所有奇数并输出它们的和。

    Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs HandlesButton1.Click Dim i a As Integer For i 101 To 500 If i Mod 2 0 Then a a i label2.textlabel2.text amp i End If Next Label1.Text quot奇数和为：quot amp a End Sub20. 输入两个正整数 m 和 n，求其最大公约数 aPrivate Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs HandlesButton1.Click Dim i a b r As Single a ValTextBox1.Text b ValTextBox2.Text If a lt b Then i b b a a i End If r a Mod b Do While r ltgt 0 a b b r r a Mod b Loop Label1.Text quot最大公约数为：quot amp b End Sub21.求：要求：用 InputBox 或文本框进行 n 值的输入，用 MsgBox 函数输出结果 Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs HandlesButton1.Click Dim i a b n As Single n InputBoxquot请输入nquot For i 1 To n a i 2 / 1 i b b a Next MsgBox（ quot结果为quot amp b End SubEnd Class22. 利用下述公式计算 的值（直到最后一项小于 为止）。

    Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs HandlesButton1.Click Dim i sum x n a b As Single a 1 b 1 Do While a / b gt 0.000001 For i 1 To 10 a x i b b i sum sum a / b Next Loop sum sum 1 label2.text sum End SubEnd Class23. 百鸡问题 公鸡每只 5 元，母鸡每只 3 元，小鸡 3 只 1 元。

    现有 100 元，要求买 100 只鸡，问：公鸡、母鸡、小鸡各多少只？

上一篇：VB屏幕保护程序设计
下一篇：投简历到国外的公司需考虑哪些东西？