VB期末考复试习.docVIP

VB期末考试复习 1、判断分数等级（if….end if 和 select case） Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim score As Integer 定义一个变量，保存分数的 score = Integer.Parse(Me.TextBox1.Text) 下面开始判断分数等级 If score 100 Or score 0 Then MessageBox.Show(无效的分数) Exit Sub ElseIf score = 100 Then MessageBox.Show(满分！) ElseIf score = 90 Then MessageBox.Show(优秀！) ElseIf score = 80 Then MessageBox.Show(良好！) ElseIf score = 60 Then MessageBox.Show(及格！) Else MessageBox.Show(不及格！) End If End Sub End Class Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim score As Single Try 把可能出错的代码写在try的下面 score = Single.Parse(Me.TextBox1.Text) Select Case score Case 100 MessageBox.Show(满分) Case 90 To 99 MessageBox.Show(优秀) Case 80 To 89 MessageBox.Show(良好) Case 60 To 79 MessageBox.Show(及格) Case 0 To 59 MessageBox.Show(不及格) Case Else MessageBox.Show(分数无效) End Select Catch ex As Exception 只要有错，就把错误信息显示出来　 MessageBox.Show(ex.Message) End Try End Sub End Class …next 循环结构 代码： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, s As Integer For i = 1 To 99 Step 2 s = s + i Next MsgBox(1+3+...+99= s) End Sub //求斐波那契级数 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.C