'(1) Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load Dim x() = {4,5,3,6,1} Dim i As Integer Label1.Text = "" For i = 0 To UBound(x) Label1.Text &= Space(4) & x(i) Next End Sub End Class '(2) Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load Dim x(9),y(9),z(9),i As Integer For i = 0 To UBound(x) x(i) = Int(Rnd() * (40 - 20 + 1) + 20) y(i) = Int(Rnd() * (40 - 20 + 1) + 20) z(i) = x(i) - y(i) Next Label4.Text = "" : Label5.Text = "" : Label6.Text = "" For i = 0 To UBound(x) Label4.Text &= Space(6 - Len(Str(x(i)))) & Str(x(i)) Label5.Text &= Space(6 - Len(Str(y(i)))) & Str(y(i)) Label6.Text &= Space(6 - Len(Str(z(i)))) & Str(z(i)) Next End Sub End Class '(5) Public Class Form1 Dim scores(9) As Single Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer For i = 0 To UBound(scores) scores(i) = InputBox("请输入第" & Str(i + 1) & "个评委的打分(0~10)","评委打分") Next End Sub Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click Dim result,smin,smax As Single Dim i As Integer result = 0 : smin = 10 : smax = 0 For i = 0 To UBound(scores) If (scores(i) < smin) Then smin = scores(i) If (scores(i) > smax) Then smax = scores(i) result += scores(i) Next TextBox1.Text = Format((result - smin - smax) / 8,"0.0") 'TextBox1.Text = Str((result - smin - smax) / 8) End Sub End Class '(6) Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim i,j,n As Integer If Asc(e.KeyChar) = 13 Then n = Val(TextBox1.Text) Dim a(n,n) As Integer For i = 1 To n ' 形成杨辉三角形 For j = 1 To i a(i,j) = a(i - 1,j) + a(i - 1,j - 1) If i = j Then a(i,j) = 1 Next Next Label1.Text = "" For i = 1 To n ' 显示右图 Label1.Text &= Space(20 - i * 2) For j = 1 To i Label1.Text &= a(i,j) & Space(5 - Len(Str(a(i,j)))) Next Label1.Text &= vbCrLf Next End If End Sub End Class '(7) Public Class Form1 Private Sub TextBox3_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress Dim jsjResult As Single If Asc(e.KeyChar) = 13 Then Select Case ComboBox1.Text Case "+" jsjResult = Val(TextBox1.Text) + Val(TextBox2.Text) Case "-" jsjResult = Val(TextBox1.Text) - Val(TextBox2.Text) Case "×" jsjResult = Val(TextBox1.Text) * Val(TextBox2.Text) Case "÷" jsjResult = Val(TextBox1.Text) / Val(TextBox2.Text) End Select If jsjResult = Val(TextBox3.Text) Then Label2.Text = "恭喜答案正确" Else Label2.Text = "错误,正确答案为" & jsjResult End If End If End Sub End Class