wf第四章-数组.ppt

Private Sub btnStats_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStats.Click Dim i%, intSum%, sngAvg!, intCount% intSum = 0 For i = 0 To intNum - 1 intSum += intScore(i) Next sngAvg = intSum / intNum intCount = 0 For i = 0 To intNum - 1 If intScore(i) sngAvg Then intCount += 1 Next txtAverage.Text = sngAvg txtSuperNum.Text = intCount End Sub Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub Dim intNum, intScore() As Integer 动态数组举例 马鞍点？ 4.6 综合应用 例：求一个5行6列的矩阵所有的马鞍点？ 方法一： 1、求出每一行的最小值、行号、列号 2、求出每一列的最大值、行号、列号 3、比对：如… 方法二： 1、对每一行 1）先求出最小值、行号、列号 2）验证它是否是该列的最大值？如… 4.6 综合应用 界面设计 运行结果 3.在输出窗口输出4行3列 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim arrA( ) As Integer = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12} Dim strChars$ For i = 0 To arrA.GetUpperBound(0) strChars = Trim(Str(arrA(i))) Console.Write(Space(5 - Len(strChars)) strChars) Console.Write({0,5:D},strChars) Console.Write({0,5:D4},strChars) Console.Write({0,-5:D},strChars) Console.Write({0,5:#####},strChars) If ( i + 1 ) Mod 3 = 0 Then Console.WriteLine() End If Next End Sub 4.4 数组的基本操作—输出操作 4. 在窗体上输出4×3矩阵 Dim arrA( , ) As Integer = { {1, 2, 3}, {4, 5, 6}, {7, 8, 9}, {10, 11, 12} } Dim strChars$ For i = 0 To arrA.GetUpperBound(0) MyPos.X = 0 For j = 0 To arrA.GetUpperBound(1) strChars = Trim(Str(arrA(i, j))) strChars = Space(5 - Len(strChars)) strChars MyGraphics.DrawString(strChars, MyFont, MyBrush, MyPos) MyPos.X += 5 * MyFont.Size *2/3 字间距，字体的全身大小2/3 Next MyPos.Y += MyFont.GetHeight() 行距 Next Dim MyGraphics As Graphics 声明图形变量 MyGraphics = Me.CreateGraphics( ) 声明字体对象