Academic Integrity: tutoring, explanations, and feedback — we don’t complete graded work or submit on a student’s behalf.

write VB2010 code Table 1 shows the number of bachelor degrees awarded in 2000 a

ID: 3676125 • Letter: W

Question

write VB2010 code

Table 1 shows the number of bachelor degrees awarded in 2000 and 2014 in certain fields of study Table 2 shows the percentage of change. Table 3 shows a histogram of degrees awarded in 2014 Write a Windows-based application that allows a user to display any one of these tables as option and quit as a forth option. Design your own GUI. Decide on appropriate controls and provide a user friendly GUI. Field of Study Business and management Computer Science Education Engineering Social Sciences 2000 185,361 11,154 118,169 68,893 103,519 2014 246,654 24,200 167,600 62,220 133,680 Table1: Bachelor degrees awarded in certain fields

Explanation / Answer

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms
Imports System.Data.SqlClient


Namespace WinPrac
   Public Partial Class Form6
       Inherits Form
       Private con As New SqlConnection("Data Source=.;Initial Catalog=DbName;Integrated Security=True")
       Public Sub New()
           InitializeComponent()
       End Sub
       Private da As SqlDataAdapter
       Private dt As DataTable

       Private Sub btnBachelorAwarded_Click(sender As Object, e As EventArgs)
           da = New SqlDataAdapter("select * from Table1", con)
           dt = New DataTable()
           da.Fill(dt)
           datagridBachelorAwarded.DataSource = dt
       End Sub

       Private Sub btnPercentageChange_Click(sender As Object, e As EventArgs)
           da = New SqlDataAdapter("select * from Table2", con)
           dt = New DataTable()
           da.Fill(dt)
           datagridPercentageChange.DataSource = dt
       End Sub
       Private Sub btnHistoryOfDegrees_Click(sender As Object, e As EventArgs)
           da = New SqlDataAdapter("select * from Table3", con)
           dt = New DataTable()
           da.Fill(dt)
           datagridHistoryOfDegrees.DataSource = dt

       End Sub
       Private Sub btnQuit_Click(sender As Object, e As EventArgs)
           Me.Close()
       End Sub
   End Class
End Namespace