vb练习.doc

1. 成绩分等Private Sub Form_Click()Dim score As IntegerDim no As Stringno = InputBox(输入学生学号, 学号)score = InputBox(输入学生成绩, 成绩)Select Case scoreCase 90 To 100MsgBox (学号: no 成绩: score 评语: 优秀)Case 80 To 89MsgBox (学号: no 成绩: score 评语: 良好)Case 70 To 79MsgBox (学号: no 成绩: score 评语: 中等)Case 60 To 69MsgBox (学号: no 成绩: score 评语: 及格)Case 0 To 59MsgBox (学号: no 成绩: score 评语: 不及格)Case ElseMsgBox (学号: no 成绩: score 评语: 该生的输入分数有误)End SelectEnd Sub2卡号密码标签上的字向右移动Private Sub Timer1_Timer()Label1.Left = Label1.Left + 50If Label1.Left Form1.Width ThenLabel1.Left = 0End IfEnd Sub标签上的字向左移动：Private Sub Timer1_Timer()Label1.Left = Label1.Left - 50If Label1.Left 0 ThenLabel1.Left = Form1.WidthEnd IfEnd Sub确定按钮的编辑：Private Sub Command1_Click()If Text1.Text = 111111 And Text2.Text = 123456 ThenUnload Form1Form2.ShowElseMsgBox (错误)End IfEnd Sub取消按钮的编辑：Private Sub Command2_Click()Text1.Text = Text2.Text = End Sub调标签上字的大小：Private Sub Form_Load()Label1.FontSize = 16End Sub3.乘积表老师讲的：Private Sub Form_Click()Dim A As IntegerDim B As IntegerDim C As IntegerPrintPrintPrint Tab(30); 乘积表PrintPrint Tab(2); *;For A = 3 To 15 Step 3 Print Tab(A * 5); A;Next APrintFor B = 15 To 20 Print B;For A = 3 To 15 Step 3 Print Tab(A * 5); B * A =; B * A; Next A PrintNext BEnd Sub4.九九乘法表Private Sub Form_Click()PrintPrintPrint Tab(70); 九九乘法表PrintPrintPrint Tab(5); *;For a = 1 To 9 Print Tab(a * 15); a;Next aPrintPrintFor b = 1 To 9Print Tab(4); b;For a = 1 To bPrint Tab(a * 15); b; *; a; =; b * a;Next aPrintPrintNext bEnd sub 5.水仙花数如果一个三位数等于它的各位数字的立方和,则此数称为“水仙花数”,如153=13+53+33。编程求所有水仙花数。 情况1：法一：Private Sub Command1_Click()Dim i, j, k As IntegerFor i = 1 To 9For j = 0 To 9For k = 0 To 9a = i * 100 + j * 10 + kIf a = i * i * i + j * j * j + k * k * k ThenList1.AddItem aEnd IfNext kNext jNext iEnd Sub法二：Private Sub Command1_Click()Dim i, j, k As IntegerFor i = 1 To 9For j = 0 To 9For k = 0 To 9a = i * 100 + j * 10 + kb = i * i * i + j * j * j + k * k * kIf a = b ThenList1.AddItem aEnd IfNext kNext jNext iEnd SubPrivate Sub Command1_Click()Dim i, j, k As IntegerLIST1.CLEARFor i = 1 To 9For j = 0 To 9For k = 0 To 9a = i * 100 + j * 10 + kb = i * i * i + j * j * j + k * k * kIf a = b ThenList1.AddItem aEnd IfNext kNext jNext iEnd Sub情况2：Private Sub Form_Click()Dim i, j, k As IntegerFor i = 1 To 9For j = 0 To 9For k = 0 To 9a = i * 100 + j * 10 + kIf a = i * i * i + j * j * j + k * k * k ThenPrint aEnd IfNext kNext jNext iEnd Sub6.元素循环Dim a(1 To 3) As IntegerPrivate Sub Form_Load() Show For i = 1 To 3 a(i) = Val(InputBox(请输入第 i 个数) Next iPrintPrintPrint 输入的数;For i = 1 To 3Print a(i);Next iPrintEnd Sub左移键的编码：Private Sub Command1_Click()t = a(1)For i = 1 To 2a(i) = a(i + 1)Next ia(3) = tPrintPrintPrint 左移以后;For i = 1 To 3Print a(i);Next iPrintEnd Sub右移键的编码：Private Sub Command2_Click()t = a(3)For i = 3 To 2 Step -1a(i) = a(i - 1)Next ia(1) = tPrintPrintPrint 右移以后;For i = 1 To 3Print a(i);Next iPrintEnd Sub结束键编码：Private Sub Command3_Click()EndEnd Sub十个元素循环：Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()t = a(1)For i = 1 To 9a(i) = a(i + 1)Next ia(10) = tPrintPrintPrint 左移以后;For i = 1 To 10Print a(i);Next iPrintEnd SubPrivate Sub Command2_Click()t = a(10)For i = 10 To 2 Step -1a(i) = a(i - 1)Next ia(1) = tPrintPrintPrint 右移以后;For i = 1 To 10Print a(i);Next iPrintEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Show For i = 1 To 10 a(i) = Val(InputBox(请输入第 i 个数) Next iPrintPrintPrint 输入的数;For i = 1 To 10Print a(i);Next iPrintEnd Sub编写一个程序，将数组a(10)中的元素向左循环移动，即 a(1)a(2),a(2)a(3),.a(10)a(1)Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()t = a(1)For i = 1 To 9a(i) = a(i + 1)Next ia(10) = tPrintPrintPrint 左移以后;For i = 1 To 10Print a(i);Next iPrintEnd SubPrivate Sub Form_Load()Show For i = 1 To 10 a(i) = Val(InputBox(请输入第 i 个数) Next iPrintPrintPrint 输入的数;For i = 1 To 10Print a(i);Next iPrintEnd Sub7. 设计一个程序，从键盘上输入考生的考试分数，程序可以计算并输出大于80小于90的人数，不及格人数及总平均分数。求平均分n = n - 1Sum = 0For i = 1 To nSum = Sum + cj(i)Next iIf n 0 ThenAvg = Sum / nText1.Text = AvgEnd If求80到90的人数a = 0For i = 1 To nIf cj(i) = 80 And cj(i) = 90 Then a = a + 1Next iText2.Text=a求不及格的人数b = 0For i = 1 To nIf cj(i) 60 Then b = b + 1Next iText3.Text = b完整的程序：法一：Private Sub Form_Load()Dim cj(1 To 100) As Integer n = 1 Do While Truex = Val(InputBox(请输入第 n 个学生的成绩（-1结束）) If x = -1 Then Exit Do cj(n) = x n = n + 1 Loopn = n - 1Sum = 0For i = 1 To nSum = Sum + cj(i)Next iIf n 0 ThenAvg = Sum / nText1.Text = AvgEnd Ifa = 0For i = 1 To nIf cj(i) = 80 And cj(i) = 90 Then a = a + 1Next iText2.Text = ab = 0For i = 1 To nIf cj(i) 60 Then b = b + 1Next iText3.Text = bEnd Sub法二：x = Val(InputBox(请输入第 n 个学生的成绩（-1结束）) If x = -1 Then Exit Do End If cj(n) = x n = n + 1 Loopn = n - 1Sum = 0For i = 1 To nSum = Sum + cj(i)Next iIf n 0 ThenAvg = Sum / nText1.Text = AvgEnd Ifa = 0For i = 1 To nIf cj(i) = 80 And cj(i) = 90 Then a = a + 1Next iText2.Text = ab = 0For i = 1 To nIf cj(i) 60 Then b = b + 1Next iText3.Text = bEnd Sub法三：Dim jc(1 To 100) As Integer, n As IntegerPrivate Sub Command1_Click() n = 1 Do While Truex = Val(InputBox(请输入第 n 个学生的成绩（-1结束）) If x = -1 Then Exit Do jc(n) = x n = n + 1 LoopEnd SubPrivate Sub Command2_Click()n1 = 0 n2 = 0 Sum = 0 For i = 1 To n - 1 Sum = Sum + jc(i) If jc(i) 60 Then n1 = n1 + 1 If jc(i) = 80 And jc(i) = 90 Then n2 = n2 + 1Next i If n - 1 0 Then Avg = Sum / (n - 1) Else Avg = 0 End If Text1.Text = n1 Text2.Text = n2 Text3.Text = AvgEnd SubPrivate Sub Form_Load()End Sub8.评委评分：Dim a(1 To 10) As SinglePrivate Sub Command1_Click()For i = 1 To 10a(i) = Val(InputBox(请输入第 i 个评委的分数)Next iPrintPrint 评委评分For i = 1 To 10Print a(i);Next iPrintEnd SubPrivate Sub Command2_Click()Sum = a(1)Max = a(1)Min = a(1)For i = 2 To 10Sum = Sum + a(i)If a(i) Max Then Max = a(i)If a(i) Min Then Min = a(i)Next iAvg = (Sum - Max - Min) / 8Text1.Text = AvgEnd SubPrivate Sub Command3_Click()Max = a(1)For i = 2 To 10If a(i) Max Then Max = a(i)Next iText2.Text = MaxEnd SubPrivate Sub Command4_Click()Min = a(1)For i = 2 To 10If a(i) Min Then Min = a(i)Next iText3.Text = MinEnd Sub9.输入计算Private Sub Command1_Click()Dim a(1 To 5) As DoubleFor i = 1 To 5a(i) = Val(InputBox(请输入第 i 个数)Next iPrintPrint 输入的数For i = 1 To 5Print a(i);Next iPrintPrint 数组的和:; sum(a)Print 平均数:; avg(a)Print 最小值:; min(a)Print 最大值:; max(a)End Subsum = 0For i = 1 To 5sum = sum + b(i)Next iPublic Function avg(c() As Double) As Double avg = 0For i = 1 To 5avg = avg + c(i)Next iavg = avg / 5End FunctionPrivate Sub Command2_Click()EndEnd SubPublic Function min(d() As Double) As Doublemin = d(1)For i = 2 To 5If d(i) min Then min = d(i)Next iEnd FunctionPublic Function max(e() As Double) As Doublemax = e(1)For i = 2 To 5If e(i) max Then max = e(i)Next iEnd FunctionPrivate Sub Form_Load()End Sub10. 电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束” (1)在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1)计时器的Enabled属性值为True, Interval属性值为0 Dim m, s As IntegerPrivate Sub Command1_Click()Timer1.Enabled = Truem = Val(Text1.Text)s = Val(Text2.Text)End SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If s 0 Then s = s - 1 Else If m 0 Then m = m - 1 s = 59 End If End If Text1.Text = format(m,”00”) Text2.Text =format（ s,”00”） If s = 0 And m = 0 Then Beep MsgBox 计时结束 End End IfEnd Sub编写程序，计算1+2+3+4+。+100Private Sub Command1_Click()Print 1+2+3.+100=;Dim i As IntegerSum = 0For i = 1 To 100Sum = Sum + iNext iPrint SumEnd Sub11. 设计一个流动字幕，标题是“热烈欢迎”。时钟。Private Sub Command1_Click()Command1.Caption = 继续Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseTimer2.Enabled = FalseCommand2.Enabled = FalseCommand1.Enabled = TrueEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()If Label1.Left Width - 2000 ThenLabel1.Left = Label1.Left + 20ElseTimer1.Enabled = FalseTimer2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer2_Timer()If Label1.Left 0 ThenLabel1.Left = Label1.Left - 20ElseTimer2.Enabled = FalseTimer1.Enabled = TrueEnd IfEnd Sub12. 勾股定理中3个数的关系是：a2+b2=c2.编写程序，输出20以内满足上述关系的整数组合。Private Sub Command1_Click()Print 20以内满足勾股定理的数有Dim a As Integer, b As Integer, c As IntegerFor a = 1 To 20For b = 1 To 20For c = 1 To 20If a * a + b * b = c * c And a + b c And a b ThenPrint a, b, cEnd IfNext cNext bNext aEnd Sub13. 输入一个数字（06），用中英文显示星期几。如输入0，则显示“星期日(Sunday)”Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Select Case TrueCase a = 0Text2.Text = 星期日(Sunday)Case a = 1Text2.Text = 星期一(Monday)Case a = 2Text2.Text = 星期(Tuseday)Case a = 3Text2.Text = 星期三(Wednesday)Case a = 4Text2.Text = 星期四(Tursday)Case a = 5Text2.Text = 星期五(Friday)Case a = 6Text2.Text = 星期六(Saturday)End SelectEnd Sub14. 编写一个体操评分程序。10位评委，除去一个最高分和一个最低分，计算平均分（设满分为10分）提示：设10位评委的分数存于数组score(10)Private Sub Command1_Click()Dim s(10) As Double, i As Integer, average As Double, max As Double, min As DoubleFor i = 1 To 10max = s(1)min = s(1)s(i) = InputBox(请打出一个分数)If max s(i) Then max = s(i)If min s(i) Then min = s(i)Next iaverage = (s(10) + s(1) + s(2) + s(3) + s(4) + s(5) + s(6) + s(7) + s(8) + s(9) - max - min) / 8Print 平均分为： averagePrint 最高分： maxPrint 最低分： minEnd Sub15. 设有如下10个数：-2,73,82.，-76，-1,24,321，-25,89，-20试编写一个程序，打印出其中的每个负数，分别计算并输出正数及负Private Sub Form_Click()Dim Number As Integer, Negativesum As Integer, Positivesum As IntegerNegativesum = 0Positivesum = 0For i = 1 To 10Number = InputBox(输入数据)If Number 0 ThenNegativesum = Negativesum + NumberPrint NumberElsePositivesum = Positivesum + NumberEnd IfNext iPrint 负