VB—2.docVIP

一 Module Module1 Sub Main() Dim i, j, temp As Short For i = 1 To 15 Console.Write() Next Console.WriteLine(九一九表) Console.WriteLine() Console.Write( *) For i = 1 To 9 Console.Write( {0}, i) Next Console.WriteLine() For i = 1 To 9 Console.Write( {0}, i) For j = 1 To i temp = i * j If temp = 10 Then Console.Write( {0}, temp) Else Console.Write( {0}, temp) End If Next j Console.WriteLine( ) Next i Console.ReadLine() End Sub End Module 二 Module Module1 Sub Main() Dim arr(1, 4) As Integer Dim i, j, maxVale, t, m, average, sum, dimVale As Integer Dim rand As New Random(CInt(Date.Now.Ticks And Integer.MaxValue)) For i = 0 To 1 For j = 1 To 4 arr(i, j) = rand.Next(10) Next j Next i maxVale = arr(0, 0) dimVale = arr(1, 1) For Each t In arr If maxVale t Then maxVale = t End If Next For Each m In arr If dimVale m Then dimVale = m End If Next sum = 0 For i = 0 To 1 For j = 0 To 4 sum = sum + arr(i, j) Next j Next i average = sum / 10 Console.WriteLine(显示数组) For i = 0 To 1 For j = 0 To 4 Console.Write(arr({0},{1}) = {2} , i, j, arr(i, j)) Next Console.WriteLine() Next Console.WriteLine(maxValue={0}, maxVale) Console.WriteLine(dimValue={0}, dimVale) Console.WriteLine(平均数：{0}, average) Console.ReadLine() End Sub End Module