module1.vb

来自「学习vb过程中老师讲过的所有案例！还有课程设计」· VB 代码 · 共 19 行

Imports System.Windows.forms

Module Module1

    Sub Main()
        Dim grades As String()
        grades = New String(11) {60, 78, 36, 84, 83, 26, 85, 90, 95, 83, 82, 72}
        Dim i As Int16
        Dim output As String

        For i = 0 To 11 Step 1
            grades(i) += 7
            output += grades(i).ToString & vbNewLine
        Next
        MessageBox.Show(output, "计算结果")
    End Sub

End Module