This is my code, and I am trying to populate an array in a dgv. Public Class frm

Question

This is my code, and I am trying to populate an array in a dgv. Public Class frmBachelorDeg Private Sub btnQuit_Click(sender As System.Object, e As System.EventArgs) Handles btnQuit.Click 'This button closes the program Me.Close() End Sub Private Sub btnDegrees_Click(sender As System.Object, e As System.EventArgs) Handles btnDegrees.Click 'This part of the program displays the number of degrees in 1981 versus 2006 Dim degree(5, 3) As DataColumn Dim fieldStudy(,) As String = {{"Field of Study"}, {"1981"}, {"2006"}} Dim business(,) As String = {{"Business"}, {"200,521"}, {"318,042"}} Dim compInfoSci(,) As String = {{"Computer and info. science"}, {"15,121"}, {"47,480"}} Dim education(,) As String = {{"Education"}, {"108,074"}, {"107,238"}} Dim engineering(,) As String = {{"Engineering"}, {"63,642"}, {"67,045"}} Dim socSciHist(,) As String = {{"Social sciences and history"}, {"100,513"}, {"161,485"}} End Sub Private Sub btnChanges_Click(sender As System.Object, e As System.EventArgs) Handles btnPercent.Click 'This button accurately reflects the percentage increase/decrease of graduates pursuing degrees in each field between 1981-2006 Dim fieldStudy(,) As String = {{"Field of Study"}, {""}, {"% Change(1981-2006)"}} Dim compInfoSci(,) As String = {{"Computer and Info. Science"}, {""}, {"214.0%"}} Dim socSciHist(,) As String = {{"Social Sciences and History"}, {""}, {"60.7%"}} Dim business(,) As String = {{"Business"}, {""}, {"58.6%"}} Dim engineering(,) As String = {{"Engineering"}, {""}, {"5.3%"}} Dim education(,) As String = {{"Education"}, {""}, {"-0.8%"}} End Sub Private Sub btnHistogram_Click(sender As System.Object, e As System.EventArgs) Handles btnHistogram.Click 'Displays a histogram of degrees conferred in specified fields Dim compInfoSci(,) As String = {{"Computer and Info. Science"}, {Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149)}, {"47,480"}} Dim engineering(,) As String = {{"Engineering"}, {Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149)}, {"67,045"}} Dim education(,) As String = {{"Education"}, {Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149)}, {"107,238"}} Dim socSciHist(,) As String = {{"Social sciences and History"}, {Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149)}, {"161,485"}} Dim business(,) As String = {{"Business"}, {Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149) & Chr(149)}, {"318,042"}} Dim histogram() As String = {"Computer and info. science", "Engineering", "Education", "Social sciences and history", "Business"} End Sub End Class

Explanation / Answer

please format the code in a text editor and paste

Related Questions

Navigate

• Browse (All)
• Browse T
• Subjects

---

---

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