Question

Writing a matrix in Visual Basic Studio and not in c ++

Q3/ Write VB function/program to find the mean ( average of a 5 X 5 matrix of integers.

Answer 1

Program:

Module Module1

Sub Main()
Dim matrix(5, 5) As Integer
Dim r, c As Integer
Dim sum As Integer
Dim mean As Double

Console.WriteLine("Enter 25 elements of the array (5 * 5): ")
For r = 0 To 4
For c = 0 To 4
matrix(r, c) = Convert.ToInt32(Console.ReadLine())
Next c
Next r

sum = 0

Console.WriteLine()
Console.WriteLine("Elements of matrix(5*5): ")
For r = 0 To 4
For c = 0 To 4
sum = sum + matrix(r, c)
Console.Write(matrix(r, c) & " ")
Next c
Console.WriteLine()
Next r

mean = Convert.ToDouble(sum / 25)

Console.WriteLine("Mean : " & mean)

Console.ReadKey()
End Sub

End Module

Output:

file:///c/users/user/documents/visual studio 2015/Projects/CalculateMean/Calculate Mean/bin/Debug/CalculateMean.EXE Enter 25 elements of the array (5 * 5): 10 20 30 40 50 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 Type here to search O Bi M 11:12 PM 7/31/2020

file:///c/users/user/documents/visual studio 2015/Projects/CalculateMean/Calculate Mean/bin/Debug/CalculateMean.EXE Elements of matrix(5*5): 10 20 30 40 50 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 Mean : 28.4 Type here to search O Bi M 11:12 PM 7/31/2020

र Quick Launch (Ctrl+Q) х Sign in e - P.OX - Module 1 - Main Da Calculate Mean - Microsoft Visual Studio File Edit View View Project Build Debug Team Tools Test Analyze Window Help 3.2. - Debug . Any CPU - Start - 1 Toolbox -4X Module.vbX Search Toolbox - CalculateMean General Oreferences E Module Modules There are no usable controls in this group O references Drag an item onto this text Sub Main() to add it to the toolbox Dim matrix(5, 5) As Integer Dim r As Integer Dim sum As Integer Dim mean As Double 01:24 Console.WriteLine("Enter 25 elements of the array ( 55): ") For . To 4 For cTo 4 matrix(r, c) - Convert.ToInt32(Console.ReadLine()) Next c Next r sum - @ Console.WriteLine() Console.WriteLine("Elements of matrix(5*5): ") For r. To 4 For C. To 4 sum - sum + matrix(r, c) Console.Write(matrix(r, c) & ) Next c Console.WriteLine() Next r mean - Convert.ToDouble(sum / 25) Console.WriteLine("Mean : " & mean) Console.ReadKey() End Sub End Module 108 % Output Show output from Debug CalculateMean.vshost.exe' (CLR v4.0.30319: CalculateMean.vshost.exe): Loaded "c:\users\user\documents\visual studio 2015\Projects\Calculate Mean CalculateMean\bin\Debug\CalculateMean.exe'. Symbols loaded. "CalculateMean.vshost.exe' (CLR v4.0.30319: CalculateMean.vshost.exe): Loaded 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Configuration\v4._4.e.e.e_be345f7f11d50a3a\System.Configuration.dll'. Skipped loading symbols. Module The program (318528] CalculateMean.vshost.exe' has exited with code -1 (Oxffffffff). Error List Output Ready Ln 29 Col 9 Ch 9 INS Type here to search RI A 11:15 PM 7/31/2020