Dim ar(1, 2) As Integer Dim result As Integer = 0 For i = 0 To ar.GetUpperBound(0) For j = 0 To ar.GetUpperBound(1) ar(i, j) = ListBox1.Items (i + j) If ar(i, j) Mod 2 = 0 0r ar(i, j) Mod 3 = 0 Then result += 1 End If Next Next MsgBox(result)

Microsoft Visual C#
7th Edition
ISBN:9781337102100
Author:Joyce, Farrell.
Publisher:Joyce, Farrell.
Chapter12: Using Controls
Section: Chapter Questions
Problem 17RQ
icon
Related questions
Question
100%
5
Dim ar(1, 2) As Integer
Dim result As Integer = 0
For i = 0 To ar.GetUpperBound(0)
For j = 0 To ar.GetUpperBound (1)
ar(i, j) = ListBox1.Items (i + j)
If ar(i, j) Mod 2 = 0 0r ar(i, j) Mod 3 = 0 Then
4
9.
10
5
7
result += 1
End If
Next
Next
Button1
MsgBox(result)
listBox1
Enter your answer
Transcribed Image Text:5 Dim ar(1, 2) As Integer Dim result As Integer = 0 For i = 0 To ar.GetUpperBound(0) For j = 0 To ar.GetUpperBound (1) ar(i, j) = ListBox1.Items (i + j) If ar(i, j) Mod 2 = 0 0r ar(i, j) Mod 3 = 0 Then 4 9. 10 5 7 result += 1 End If Next Next Button1 MsgBox(result) listBox1 Enter your answer
Expert Solution
steps

Step by step

Solved in 2 steps with 1 images

Blurred answer
Knowledge Booster
List
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.
Similar questions
  • SEE MORE QUESTIONS
Recommended textbooks for you
Microsoft Visual C#
Microsoft Visual C#
Computer Science
ISBN:
9781337102100
Author:
Joyce, Farrell.
Publisher:
Cengage Learning,
EBK JAVA PROGRAMMING
EBK JAVA PROGRAMMING
Computer Science
ISBN:
9781337671385
Author:
FARRELL
Publisher:
CENGAGE LEARNING - CONSIGNMENT