form1.vb

一些ＶＢ中数组运用的例子

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents lblR0 As System.Windows.Forms.Label
            Friend WithEvents lblR1 As System.Windows.Forms.Label
        Friend WithEvents lblR2 As System.Windows.Forms.Label
                            Friend WithEvents lblC0 As System.Windows.Forms.Label
    Friend WithEvents lblC1 As System.Windows.Forms.Label
    Friend WithEvents lblC2 As System.Windows.Forms.Label
    Friend WithEvents lblSum As System.Windows.Forms.Label
                Friend WithEvents lblC3 As System.Windows.Forms.Label
                Friend WithEvents lblTot As System.Windows.Forms.Label
    Friend WithEvents lblT As System.Windows.Forms.Label
    Friend WithEvents btnCal As System.Windows.Forms.Button
    Friend WithEvents txt10 As System.Windows.Forms.TextBox
    Friend WithEvents txt11 As System.Windows.Forms.TextBox
    Friend WithEvents txt12 As System.Windows.Forms.TextBox
    Friend WithEvents lblS2 As System.Windows.Forms.Label
    Friend WithEvents lblS1 As System.Windows.Forms.Label
    Friend WithEvents lblS0 As System.Windows.Forms.Label
    Friend WithEvents txt23 As System.Windows.Forms.TextBox
    Friend WithEvents txt22 As System.Windows.Forms.TextBox
    Friend WithEvents txt02 As System.Windows.Forms.TextBox
    Friend WithEvents txt13 As System.Windows.Forms.TextBox
    Friend WithEvents txt20 As System.Windows.Forms.TextBox
    Friend WithEvents txt01 As System.Windows.Forms.TextBox
    Friend WithEvents txt00 As System.Windows.Forms.TextBox
    Friend WithEvents txt21 As System.Windows.Forms.TextBox
    Friend WithEvents txt03 As System.Windows.Forms.TextBox
                                                                                                                                                
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.Container

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lblC3 = New System.Windows.Forms.Label
        Me.txt10 = New System.Windows.Forms.TextBox
        Me.txt11 = New System.Windows.Forms.TextBox
        Me.txt12 = New System.Windows.Forms.TextBox
        Me.lblS2 = New System.Windows.Forms.Label
        Me.lblS1 = New System.Windows.Forms.Label
        Me.lblS0 = New System.Windows.Forms.Label
        Me.txt23 = New System.Windows.Forms.TextBox
        Me.txt22 = New System.Windows.Forms.TextBox
        Me.txt02 = New System.Windows.Forms.TextBox
        Me.lblT = New System.Windows.Forms.Label
        Me.txt13 = New System.Windows.Forms.TextBox
        Me.txt20 = New System.Windows.Forms.TextBox
        Me.txt01 = New System.Windows.Forms.TextBox
        Me.txt00 = New System.Windows.Forms.TextBox
        Me.txt21 = New System.Windows.Forms.TextBox
        Me.lblSum = New System.Windows.Forms.Label
        Me.txt03 = New System.Windows.Forms.TextBox
        Me.btnCal = New System.Windows.Forms.Button
        Me.lblC2 = New System.Windows.Forms.Label
        Me.lblC1 = New System.Windows.Forms.Label
        Me.lblTot = New System.Windows.Forms.Label
        Me.lblC0 = New System.Windows.Forms.Label
        Me.lblR2 = New System.Windows.Forms.Label
        Me.lblR0 = New System.Windows.Forms.Label
        Me.lblR1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'lblC3
        '
        Me.lblC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.lblC3.Location = New System.Drawing.Point(307, 15)
        Me.lblC3.Name = "lblC3"
        Me.lblC3.Size = New System.Drawing.Size(58, 15)
        Me.lblC3.TabIndex = 0
        Me.lblC3.Text = "第四处"
        '
        'txt10
        '
        Me.txt10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.txt10.Location = New System.Drawing.Point(106, 67)
        Me.txt10.Name = "txt10"
        Me.txt10.Size = New System.Drawing.Size(48, 22)
        Me.txt10.TabIndex = 4
        Me.txt10.Text = "0"
        '
        'txt11
        '
        Me.txt11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.txt11.Location = New System.Drawing.Point(173, 67)
        Me.txt11.Name = "txt11"
        Me.txt11.Size = New System.Drawing.Size(48, 22)
        Me.txt11.TabIndex = 5
        Me.txt11.Text = "0"
        '
        'txt12
        '
        Me.txt12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.txt12.Location = New System.Drawing.Point(240, 67)
        Me.txt12.Name = "txt12"
        Me.txt12.Size = New System.Drawing.Size(48, 22)
        Me.txt12.TabIndex = 6
        Me.txt12.Text = "0"
        '
        'lblS2
        '
        Me.lblS2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblS2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.lblS2.Location = New System.Drawing.Point(374, 97)
        Me.lblS2.Name = "lblS2"
        Me.lblS2.Size = New System.Drawing.Size(48, 22)
        Me.lblS2.TabIndex = 4
        '
        'lblS1
        '
        Me.lblS1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.lblS1.Location = New System.Drawing.Point(374, 67)
        Me.lblS1.Name = "lblS1"
        Me.lblS1.Size = New System.Drawing.Size(48, 23)
        Me.lblS1.TabIndex = 4
        '
        'lblS0
        '
        Me.lblS0.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblS0.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.lblS0.Location = New System.Drawing.Point(374, 37)
        Me.lblS0.Name = "lblS0"
        Me.lblS0.Size = New System.Drawing.Size(48, 23)
        Me.lblS0.TabIndex = 4
        '
        'txt23
        '
        Me.txt23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.txt23.Location = New System.Drawing.Point(307, 97)
        Me.txt23.Name = "txt23"
        Me.txt23.Size = New System.Drawing.Size(48, 22)
        Me.txt23.TabIndex = 11
        Me.txt23.Text = "0"
        '
        'txt22
        '
        Me.txt22.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.txt22.Location = New System.Drawing.Point(240, 97)
        Me.txt22.Name = "txt22"
        Me.txt22.Size = New System.Drawing.Size(48, 22)
        Me.txt22.TabIndex = 10
        Me.txt22.Text = "0"
        '
        'txt02
        '
        Me.txt02.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.txt02.Location = New System.Drawing.Point(240, 37)
        Me.txt02.Name = "txt02"
        Me.txt02.Size = New System.Drawing.Size(48, 22)
        Me.txt02.TabIndex = 2
        Me.txt02.Text = "0"
        '
        'lblT
        '
        Me.lblT.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.lblT.Location = New System.Drawing.Point(38, 134)
        Me.lblT.Name = "lblT"
        Me.lblT.Size = New System.Drawing.Size(58, 15)
        Me.lblT.TabIndex = 0
        Me.lblT.Text = "总计"
        '
        'txt13
        '
        Me.txt13.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.txt13.Location = New System.Drawing.Point(307, 67)