Visual Basic. Develop flow chart for event procedure. Private Sub Add1_Click(ByV

Question

Visual Basic. Develop flow chart for event procedure.

Private Sub Add1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles Add1.Click

Dim i, j As Integer

Dim colname As String

Dim NumRow as Integer

Dim NumCol as Integer

NumRow = Val(NRows.Text)

NumCol = Val(NCols.Text)

Dim m1(NumRow, NumCol) As Single

Dim m2(NumRow, NumCol) As Single

Dim m3(NumRow, NumCol) As Single

Dim m1_row As DataRow

Dim m2_row As DataRow

Dim m3_row As DataRow

Dim m1_startindex, m1_endindex As Integer

Dim m2_startindex, m2_endindex As Integer

m1_startindex = m1_datatable.Select.GetLowerBound(0)

m1_endindex = m1_datatable.Select.GetUpperBound(0)

m2_startindex = m2_datatable.Select.GetLowerBound(0)

m2_endindex = m2_datatable.Select.GetUpperBound(0)

If Not m1_startindex = m2_startindex And _

Not m1_endindex = m2_endindex Then

MsgBox("Orders of two matrices are not same.")

Exit Sub

End If

For i = 0 To NumRow

m1_row = m1_datatable.Rows.Item(i)

m2_row = m2_datatable.Rows.Item(i)

m3_row = m3_datatable.Rows.Item(i)

For j = 0 To NumCOl

colname = "Col" + (j + 1).ToString

If Not IsNumeric(m1_row(colname)) And _

Not IsNumeric(m2_row(colname)) Then

MsgBox("Cannot Add non

Exit Sub

End If

m1(i, j) = m1_row(colname)

m2(i, j) = m2_row(colname)

m3(i, j) = m1(i, j) + m2(i, j)

m3_row(colname) = m3(i, j)

Next j

Next i

End Sub

Explanation / Answer

Private Sub Add1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Add1.Click
Dim i, j As Integer
Dim colname As String
Dim NumRow as Integer
Dim NumCol as Integer
NumRow = Val(NRows.Text)
NumCol = Val(NCols.Text)
Dim m1(NumRow, NumCol) As Single
Dim m2(NumRow, NumCol) As Single
Dim m3(NumRow, NumCol) As Single
Dim m1_row As DataRow
Dim m2_row As DataRow
Dim m3_row As DataRow
Dim m1_startindex, m1_endindex As Integer
Dim m2_startindex, m2_endindex As Integer
m1_startindex = m1_datatable.Select.GetLowerBound(0)
m1_endindex = m1_datatable.Select.GetUpperBound(0)
m2_startindex = m2_datatable.Select.GetLowerBound(0)
m2_endindex = m2_datatable.Select.GetUpperBound(0)
If Not m1_startindex = m2_startindex And _
Not m1_endindex = m2_endindex Then
MsgBox("Orders of two matrices are not same.")
Exit Sub
End If
For i = 0 To NumRow
m1_row = m1_datatable.Rows.Item(i)
m2_row = m2_datatable.Rows.Item(i)
m3_row = m3_datatable.Rows.Item(i)
For j = 0 To NumCOl
colname = "Col" + (j + 1).ToString
If Not IsNumeric(m1_row(colname)) And _
Not IsNumeric(m2_row(colname)) Then
MsgBox("Cannot Add non
Exit Sub
End If
m1(i, j) = m1_row(colname)
m2(i, j) = m2_row(colname)
m3(i, j) = m1(i, j) + m2(i, j)
m3_row(colname) = m3(i, j)
Next j
Next i
End Sub

Related Questions

Navigate

• Browse (All)
• Browse V
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.