hi there. i've tried to search for solution for this problem online but i just cant find the one that fits. can anybody help? whenever i try to use the add button, it show ExecuteNonQuery() error. im trying to save the data into access database
thanks for our help.
btw data for id is words and anything else is words in form of combobox
Public Class Form1
Dim cnn As New OleDb.OleDbConnection
Private Sub RefreshData()
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
Dim da As New OleDb.OleDbDataAdapter("SELECT ID,d1c1,d1c2,d2c1,d2c2,d2c3,d2c4,d2c5,d2c6,d2c7,d3c1,d3c2,d3c3,d3c4,d3c5,d3c6,d4c1,d4c2,d4c3,d4c4,d4c5,d4c6,d4c7,d4c8,d4c9,d4c10,d5c1,d5c2,d5c3,d5c4,d5c5,d5c6,d5c7,d5c8,d5c9,d5c10,d5c11,d5c12,d5c13,d5c14,d6c1,d6c2,d7c1,d7c2,d7c3,d7c4,d7c5,d7c6,d7c7,d7c8,d7c9,d7c10,d7c11,d7c12,d7c13,d7c14,d7c15,d8c1,d8c2,d8c3,d8c4,d8c5,d8c6,d8c7,d8c8,d8c9,d8c10,d8c11,d8c12,d8c13,d8c14,d9c1,d9c2,d9c3,d9c4,d9c5,d9c6,d9c7,d10c1,d10c2,d10c3,d10c4,d10c5,d10c6,d10c7,d10c8,d10c9,d10c10,d10c11,d10c12,d10c13,d11c1,d11c2,d11c3,d11c4,d11c5,d12c1,d12c2,d12c3,d12c4,d12c5,d12c6,d12c7,d13c1,d13c2,d13c3,d13c4,d14c1,d14c2,d14c3,d14c4,d14c5,d14c6,d14c7,d14c8 FROM table1 ORDER by ID", cnn)
Dim dt As New DataTable("table1")
da.Fill(dt)
Me.dgvData.DataSource = dt
cnn.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_add.Click
Dim cmd As New OleDb.OleDbCommand
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
cmd.Connection = cnn
If Me.txtid.Tag & "" = "" Then
cmd.CommandText = "INSERT INTO Table1(ID,d1c1,d1c2,d2c1,d2c2,d2c3,d2c4,d2c5,d2c6,d2c7,d3c1,d3c2,d3c3,d3c4,d3c5,d3c6,d4c1,d4c2,d4c3,d4c4,d4c5,d4c6,d4c7,d4c8,d4c9,d4c10,d5c1,d5c2,d5c3,d5c4,d5c5,d5c6,d5c7,d5c8,d5c9,d5c10,d5c11,d5c12,d5c13,d5c14,d6c1,d6c2,d7c1,d7c2,d7c3,d7c4,d7c5,d7c6,d7c7,d7c8,d7c9,d7c10,d7c11,d7c12,d7c13,d7c14,d7c15,d8c1,d8c2,d8c3,d8c4,d8c5,d8c6,d8c7,d8c8,d8c9,d8c10,d8c11,d8c12,d8c13,d8c14,d9c1,d9c2,d9c3,d9c4,d9c5,d9c6,d9c7,d10c1,d10c2,d10c3,d10c4,d10c5,d10c6,d10c7,d10c8,d10c9,d10c10,d10c11,d10c12,d10c13,d11c1,d11c2,d11c3,d11c4,d11c5,d12c1,d12c2,d12c3,d12c4,d12c5,d12c6,d12c7,d13c1,d13c2,d13c3,d13c4,d14c1,d14c2,d14c3,d14c4,d14c5,d14c6,d14c7,d14c8)" & _
"VALUES(" & Me.txtid.Text & ",'" & Me.cb1.Text & ",'" & Me.cb2.Text & ",'" & Me.cb3.Text & ",'" & Me.cb4.Text & ",'" & Me.cb5.Text & ",'" & Me.cb6.Text & ",'" & Me.cb7.Text & ",'" & Me.cb8.Text & ",'" & Me.cb9.Text & ",'" & Me.cb10.Text & ",'" & Me.cb11.Text & ",'" & Me.cb12.Text & ",'" & Me.cb13.Text & ",'" & Me.cb14.Text & ",'" & Me.cb15.Text & ",'" & Me.cb16.Text & ",'" & Me.cb17.Text & ",'" & Me.cb18.Text & ",'" & Me.cb19.Text & ",'" & Me.cb20.Text & ",'" & Me.cb21.Text & ",'" & Me.cb22.Text & ",'" & Me.cb23.Text & ",'" & Me.cb24.Text & ",'" & Me.cb25.Text & ",'" & Me.cb26.Text & ",'" & Me.cb27.Text & ",'" & Me.cb28.Text & ",'" & Me.cb29.Text & ",'" & Me.cb30.Text & ",'" & Me.cb31.Text & ",'" & Me.cb32.Text & ",'" & Me.cb33.Text & ",'" & Me.cb34.Text & ",'" & Me.cb35.Text & ",'" & Me.cb36.Text & ",'" & Me.cb37.Text & ",'" & Me.cb38.Text & ",'" & Me.cb39.Text & ",'" & Me.cb40.Text & ",'" & Me.cb41.Text & ",'" & Me.cb42.Text & ",'" & Me.cb43.Text & ",'" & Me.cb44.Text & ",'" & Me.cb45.Text & ",'" & Me.cb46.Text & ",'" & Me.cb47.Text & ",'" & Me.cb48.Text & ",'" & Me.cb49.Text & ",'" & Me.cb50.Text & ",'" & Me.cb51.Text & ",'" & Me.cb52.Text & ",'" & Me.cb53.Text & ",'" & Me.cb54.Text & ",'" & Me.cb55.Text & ",'" & Me.cb56.Text & ",'" & Me.cb57.Text & ",'" & Me.cb58.Text & ",'" & Me.cb59.Text & ",'" & Me.cb60.Text & ",'" & Me.cb61.Text & ",'" & Me.cb62.Text & ",'" & Me.cb63.Text & ",'" & Me.cb64.Text & ",'" & Me.cb65.Text & ",'" & Me.cb66.Text & ",'" & Me.cb67.Text & ",'" & Me.cb68.Text & ",'" & Me.cb69.Text & ",'" & Me.cb70.Text & ",'" & Me.cb71.Text & ",'" & Me.cb72.Text & ",'" & Me.cb73.Text & ",'" & Me.cb74.Text & ",'" & Me.cb75.Text & ",'" & Me.cb76.Text & ",'" & Me.cb77.Text & ",'" & Me.cb78.Text & ",'" & Me.cb79.Text & ",'" & Me.cb80.Text & ",'" & Me.cb81.Text & ",'" & Me.cb82.Text & ",'" & Me.cb83.Text & ",'" & Me.cb84.Text & ",'" & Me.cb85.Text & ",'" & Me.cb86.Text & ",'" & Me.cb87.Text & ",'" & Me.cb88.Text & ",'" & Me.cb89.Text & ",'" & Me.cb90.Text & ",'" & Me.cb91.Text & ",'" & Me.cb92.Text & ",'" & Me.cb92.Text & ",'" & Me.cb93.Text & ",'" & Me.cb94.Text & ",'" & Me.cb95.Text & ",'" & Me.cb96.Text & ",'" & Me.cb97.Text & ",'" & Me.cb98.Text & ",'" & Me.cb99.Text & ",'" & Me.cb100.Text & ",'" & Me.cb101.Text & ",'" & Me.cb102.Text & ",'" & Me.cb103.Text & ",'" & Me.cb104.Text & ",'" & Me.cb105.Text & ",'" & Me.cb106.Text & ",'" & Me.cb107.Text & ",'" & Me.cb108.Text & ",'" & Me.cb109.Text & ",'" & Me.cb110.Text & ",'" & Me.cb111.Text & ",'" & Me.cb112.Text & ",'" & Me.cb113.Text & ",'" & Me.cb114.Text & "')"
cmd.ExecuteNonQuery()
Else
cmd.CommandText = "UPDATE Table1(ID,d1c1,d1c2,d2c1,d2c2,d2c3,d2c4,d2c5,d2c6,d2c7,d3c1,d3c2,d3c3,d3c4,d3c5,d3c6,d4c1,d4c2,d4c3,d4c4,d4c5,d4c6,d4c7,d4c8,d4c9,d4c10,d5c1,d5c2,d5c3,d5c4,d5c5,d5c6,d5c7,d5c8,d5c9,d5c10,d5c11,d5c12,d5c13,d5c14,d6c1,d6c2,d7c1,d7c2,d7c3,d7c4,d7c5,d7c6,d7c7,d7c8,d7c9,d7c10,d7c11,d7c12,d7c13,d7c14,d7c15,d8c1,d8c2,d8c3,d8c4,d8c5,d8c6,d8c7,d8c8,d8c9,d8c10,d8c11,d8c12,d8c13,d8c14,d9c1,d9c2,d9c3,d9c4,d9c5,d9c6,d9c7,d10c1,d10c2,d10c3,d10c4,d10c5,d10c6,d10c7,d10c8,d10c9,d10c10,d10c11,d10c12,d10c13,d11c1,d11c2,d11c3,d11c4,d11c5,d12c1,d12c2,d12c3,d12c4,d12c5,d12c6,d12c7,d13c1,d13c2,d13c3,d13c4,d14c1,d14c2,d14c3,d14c4,d14c5,d14c6,d14c7,d14c8)" & _
"VALUES(" & Me.txtid.Text & ",'" & Me.cb1.Text & ",'" & Me.cb2.Text & ",'" & Me.cb3.Text & ",'" & Me.cb4.Text & ",'" & Me.cb5.Text & ",'" & Me.cb6.Text & ",'" & Me.cb7.Text & ",'" & Me.cb8.Text & ",'" & Me.cb9.Text & ",'" & Me.cb10.Text & ",'" & Me.cb11.Text & ",'" & Me.cb12.Text & ",'" & Me.cb13.Text & ",'" & Me.cb14.Text & ",'" & Me.cb15.Text & ",'" & Me.cb16.Text & ",'" & Me.cb17.Text & ",'" & Me.cb18.Text & ",'" & Me.cb19.Text & ",'" & Me.cb20.Text & ",'" & Me.cb21.Text & ",'" & Me.cb22.Text & ",'" & Me.cb23.Text & ",'" & Me.cb24.Text & ",'" & Me.cb25.Text & ",'" & Me.cb26.Text & ",'" & Me.cb27.Text & ",'" & Me.cb28.Text & ",'" & Me.cb29.Text & ",'" & Me.cb30.Text & ",'" & Me.cb31.Text & ",'" & Me.cb32.Text & ",'" & Me.cb33.Text & ",'" & Me.cb34.Text & ",'" & Me.cb35.Text & ",'" & Me.cb36.Text & ",'" & Me.cb37.Text & ",'" & Me.cb38.Text & ",'" & Me.cb39.Text & ",'" & Me.cb40.Text & ",'" & Me.cb41.Text & ",'" & Me.cb42.Text & ",'" & Me.cb43.Text & ",'" & Me.cb44.Text & ",'" & Me.cb45.Text & ",'" & Me.cb46.Text & ",'" & Me.cb47.Text & ",'" & Me.cb48.Text & ",'" & Me.cb49.Text & ",'" & Me.cb50.Text & ",'" & Me.cb51.Text & ",'" & Me.cb52.Text & ",'" & Me.cb53.Text & ",'" & Me.cb54.Text & ",'" & Me.cb55.Text & ",'" & Me.cb56.Text & ",'" & Me.cb57.Text & ",'" & Me.cb58.Text & ",'" & Me.cb59.Text & ",'" & Me.cb60.Text & ",'" & Me.cb61.Text & ",'" & Me.cb62.Text & ",'" & Me.cb63.Text & ",'" & Me.cb64.Text & ",'" & Me.cb65.Text & ",'" & Me.cb66.Text & ",'" & Me.cb67.Text & ",'" & Me.cb68.Text & ",'" & Me.cb69.Text & ",'" & Me.cb70.Text & ",'" & Me.cb71.Text & ",'" & Me.cb72.Text & ",'" & Me.cb73.Text & ",'" & Me.cb74.Text & ",'" & Me.cb75.Text & ",'" & Me.cb76.Text & ",'" & Me.cb77.Text & ",'" & Me.cb78.Text & ",'" & Me.cb79.Text & ",'" & Me.cb80.Text & ",'" & Me.cb81.Text & ",'" & Me.cb82.Text & ",'" & Me.cb83.Text & ",'" & Me.cb84.Text & ",'" & Me.cb85.Text & ",'" & Me.cb86.Text & ",'" & Me.cb87.Text & ",'" & Me.cb88.Text & ",'" & Me.cb89.Text & ",'" & Me.cb90.Text & ",'" & Me.cb91.Text & ",'" & Me.cb92.Text & ",'" & Me.cb92.Text & ",'" & Me.cb93.Text & ",'" & Me.cb94.Text & ",'" & Me.cb95.Text & ",'" & Me.cb96.Text & ",'" & Me.cb97.Text & ",'" & Me.cb98.Text & ",'" & Me.cb99.Text & ",'" & Me.cb100.Text & ",'" & Me.cb101.Text & ",'" & Me.cb102.Text & ",'" & Me.cb103.Text & ",'" & Me.cb104.Text & ",'" & Me.cb105.Text & ",'" & Me.cb106.Text & ",'" & Me.cb107.Text & ",'" & Me.cb108.Text & ",'" & Me.cb109.Text & ",'" & Me.cb110.Text & ",'" & Me.cb111.Text & ",'" & Me.cb112.Text & ",'" & Me.cb113.Text & ",'" & Me.cb114.Text & "')" & _
"WHERE txtid=" & Me.txtid.Tag
cmd.ExecuteNonQuery()
End If
RefreshData()
Me.btn_clear.PerformClick()
cnn.Close()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
cnn = New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Application.StartupPath & "\SoA.mdb"
Me.RefreshData()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
If Me.dgvData.Rows.Count > 0 Then
If Me.dgvData.SelectedRows.Count > 0 Then
Dim intID As Integer = Me.dgvData.SelectedRows(0).Cells("ID").Value
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM table1 WHERE ID=" & intID, cnn)
Dim dt As New DataTable
da.Fill(dt)
Me.txtid.Text = intID
Me.cb1.Text = dt.Rows(0).Item("d1c1")
Me.cb2.Text = dt.Rows(0).Item("d1c2")
Me.cb3.Text = dt.Rows(0).Item("d2c1")
Me.cb4.Text = dt.Rows(0).Item("d2c2")
Me.cb5.Text = dt.Rows(0).Item("d2c3")
Me.cb6.Text = dt.Rows(0).Item("d2c4")
Me.cb7.Text = dt.Rows(0).Item("d2c5")
Me.cb8.Text = dt.Rows(0).Item("d2c6")
Me.cb9.Text = dt.Rows(0).Item("d2c7")
Me.cb10.Text = dt.Rows(0).Item("d3c1")
Me.cb11.Text = dt.Rows(0).Item("d3c2")
Me.cb12.Text = dt.Rows(0).Item("d3c3")
Me.cb13.Text = dt.Rows(0).Item("d3c4")
Me.cb14.Text = dt.Rows(0).Item("d3c5")
Me.cb15.Text = dt.Rows(0).Item("d3c6")
Me.cb16.Text = dt.Rows(0).Item("d4c1")
Me.cb17.Text = dt.Rows(0).Item("d4c2")
Me.cb18.Text = dt.Rows(0).Item("d4c3")
Me.cb19.Text = dt.Rows(0).Item("d4c4")
Me.cb20.Text = dt.Rows(0).Item("d4c5")
Me.cb21.Text = dt.Rows(0).Item("d4c6")
Me.cb22.Text = dt.Rows(0).Item("d4c7")
Me.cb23.Text = dt.Rows(0).Item("d4c8")
Me.cb24.Text = dt.Rows(0).Item("d4c9")
Me.cb25.Text = dt.Rows(0).Item("d4c10")
Me.cb26.Text = dt.Rows(0).Item("d5c1")
Me.cb27.Text = dt.Rows(0).Item("d5c2")
Me.cb28.Text = dt.Rows(0).Item("d5c3")
Me.cb29.Text = dt.Rows(0).Item("d5c4")
Me.cb30.Text = dt.Rows(0).Item("d5c5")
Me.cb31.Text = dt.Rows(0).Item("d5c6")
Me.cb32.Text = dt.Rows(0).Item("d5c7")
Me.cb33.Text = dt.Rows(0).Item("d5c8")
Me.cb34.Text = dt.Rows(0).Item("d5c9")
Me.cb35.Text = dt.Rows(0).Item("d5c10")
Me.cb36.Text = dt.Rows(0).Item("d5c11")
Me.cb37.Text = dt.Rows(0).Item("d5c12")
Me.cb38.Text = dt.Rows(0).Item("d5c13")
Me.cb39.Text = dt.Rows(0).Item("d5c14")
Me.cb40.Text = dt.Rows(0).Item("d6c1")
Me.cb41.Text = dt.Rows(0).Item("d6c2")
Me.cb42.Text = dt.Rows(0).Item("d7c1")
Me.cb43.Text = dt.Rows(0).Item("d7c2")
Me.cb44.Text = dt.Rows(0).Item("d7c3")
Me.cb45.Text = dt.Rows(0).Item("d7c4")
Me.cb46.Text = dt.Rows(0).Item("d7c5")
Me.cb47.Text = dt.Rows(0).Item("d7c6")
Me.cb48.Text = dt.Rows(0).Item("d7c7")
Me.cb49.Text = dt.Rows(0).Item("d7c8")
Me.cb50.Text = dt.Rows(0).Item("d7c9")
Me.cb51.Text = dt.Rows(0).Item("d7c10")
Me.cb52.Text = dt.Rows(0).Item("d7c11")
Me.cb53.Text = dt.Rows(0).Item("d7c12")
Me.cb54.Text = dt.Rows(0).Item("d7c13")
Me.cb55.Text = dt.Rows(0).Item("d7c14")
Me.cb56.Text = dt.Rows(0).Item("d7c15")
Me.cb57.Text = dt.Rows(0).Item("d8c1")
Me.cb58.Text = dt.Rows(0).Item("d8c2")
Me.cb59.Text = dt.Rows(0).Item("d8c3")
Me.cb60.Text = dt.Rows(0).Item("d8c4")
Me.cb61.Text = dt.Rows(0).Item("d8c5")
Me.cb62.Text = dt.Rows(0).Item("d8c6")
Me.cb63.Text = dt.Rows(0).Item("d8c7")
Me.cb64.Text = dt.Rows(0).Item("d8c8")
Me.cb65.Text = dt.Rows(0).Item("d8c9")
Me.cb66.Text = dt.Rows(0).Item("d8c10")
Me.cb67.Text = dt.Rows(0).Item("d8c11")
Me.cb68.Text = dt.Rows(0).Item("d8c12")
Me.cb69.Text = dt.Rows(0).Item("d8c13")
Me.cb70.Text = dt.Rows(0).Item("d8c14")
Me.cb71.Text = dt.Rows(0).Item("d9c1")
Me.cb72.Text = dt.Rows(0).Item("d9c2")
Me.cb73.Text = dt.Rows(0).Item("d9c3")
Me.cb74.Text = dt.Rows(0).Item("d9c4")
Me.cb75.Text = dt.Rows(0).Item("d9c5")
Me.cb76.Text = dt.Rows(0).Item("d9c6")
Me.cb77.Text = dt.Rows(0).Item("d9c7")
Me.cb78.Text = dt.Rows(0).Item("d10c1")
Me.cb79.Text = dt.Rows(0).Item("d10c2")
Me.cb80.Text = dt.Rows(0).Item("d10c3")
Me.cb81.Text = dt.Rows(0).Item("d10c4")
Me.cb82.Text = dt.Rows(0).Item("d10c5")
Me.cb83.Text = dt.Rows(0).Item("d10c6")
Me.cb84.Text = dt.Rows(0).Item("d10c7")
Me.cb85.Text = dt.Rows(0).Item("d10c8")
Me.cb86.Text = dt.Rows(0).Item("d10c9")
Me.cb87.Text = dt.Rows(0).Item("d10c10")
Me.cb88.Text = dt.Rows(0).Item("d10c11")
Me.cb89.Text = dt.Rows(0).Item("d10c12")
Me.cb90.Text = dt.Rows(0).Item("d10c13")
Me.cb91.Text = dt.Rows(0).Item("d11c1")
Me.cb92.Text = dt.Rows(0).Item("d11c2")
Me.cb93.Text = dt.Rows(0).Item("d11c3")
Me.cb94.Text = dt.Rows(0).Item("d11c4")
Me.cb95.Text = dt.Rows(0).Item("d11c5")
Me.cb96.Text = dt.Rows(0).Item("d12c1")
Me.cb97.Text = dt.Rows(0).Item("d12c2")
Me.cb98.Text = dt.Rows(0).Item("d12c3")
Me.cb99.Text = dt.Rows(0).Item("d12c4")
Me.cb100.Text = dt.Rows(0).Item("d12c5")
Me.cb101.Text = dt.Rows(0).Item("d12c6")
Me.cb102.Text = dt.Rows(0).Item("d12c7")
Me.cb103.Text = dt.Rows(0).Item("d13c1")
Me.cb104.Text = dt.Rows(0).Item("d13c2")
Me.cb105.Text = dt.Rows(0).Item("d13c3")
Me.cb106.Text = dt.Rows(0).Item("d13c4")
Me.cb107.Text = dt.Rows(0).Item("d14c1")
Me.cb108.Text = dt.Rows(0).Item("d14c2")
Me.cb109.Text = dt.Rows(0).Item("d14c3")
Me.cb110.Text = dt.Rows(0).Item("d14c4")
Me.cb111.Text = dt.Rows(0).Item("d14c5")
Me.cb112.Text = dt.Rows(0).Item("d14c6")
Me.cb113.Text = dt.Rows(0).Item("d14c7")
Me.cb114.Text = dt.Rows(0).Item("d14c8")
Me.txtid.Tag = intID
Me.btn_add.Text = "Update"
Me.btn_edit.Enabled = False
cnn.Close()
End If
End If
End Sub
Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click
Me.txtid.Text = ""
Me.cb1.Text = ""
Me.cb2.Text = ""
Me.cb3.Text = ""
Me.cb4.Text = ""
Me.cb5.Text = ""
Me.cb6.Text = ""
Me.cb7.Text = ""
Me.cb8.Text = ""
Me.cb9.Text = ""
Me.cb10.Text = ""
Me.cb11.Text = ""
Me.cb12.Text = ""
Me.cb13.Text = ""
Me.cb14.Text = ""
Me.cb15.Text = ""
Me.cb16.Text = ""
Me.cb17.Text = ""
Me.cb18.Text = ""
Me.cb19.Text = ""
Me.cb20.Text = ""
Me.cb21.Text = ""
Me.cb22.Text = ""
Me.cb23.Text = ""
Me.cb24.Text = ""
Me.cb25.Text = ""
Me.cb26.Text = ""
Me.cb27.Text = ""
Me.cb28.Text = ""
Me.cb29.Text = ""
Me.cb30.Text = ""
Me.cb31.Text = ""
Me.cb32.Text = ""
Me.cb33.Text = ""
Me.cb34.Text = ""
Me.cb35.Text = ""
Me.cb36.Text = ""
Me.cb37.Text = ""
Me.cb38.Text = ""
Me.cb39.Text = ""
Me.cb40.Text = ""
Me.cb41.Text = ""
Me.cb42.Text = ""
Me.cb43.Text = ""
Me.cb44.Text = ""
Me.cb45.Text = ""
Me.cb46.Text = ""
Me.cb47.Text = ""
Me.cb48.Text = ""
Me.cb49.Text = ""
Me.cb50.Text = ""
Me.cb51.Text = ""
Me.cb52.Text = ""
Me.cb53.Text = ""
Me.cb54.Text = ""
Me.cb55.Text = ""
Me.cb56.Text = ""
Me.cb57.Text = ""
Me.cb58.Text = ""
Me.cb59.Text = ""
Me.cb60.Text = ""
Me.cb61.Text = ""
Me.cb62.Text = ""
Me.cb63.Text = ""
Me.cb64.Text = ""
Me.cb65.Text = ""
Me.cb66.Text = ""
Me.cb67.Text = ""
Me.cb68.Text = ""
Me.cb69.Text = ""
Me.cb70.Text = ""
Me.cb71.Text = ""
Me.cb72.Text = ""
Me.cb73.Text = ""
Me.cb74.Text = ""
Me.cb75.Text = ""
Me.cb76.Text = ""
Me.cb77.Text = ""
Me.cb78.Text = ""
Me.cb79.Text = ""
Me.cb80.Text = ""
Me.cb81.Text = ""
Me.cb82.Text = ""
Me.cb83.Text = ""
Me.cb84.Text = ""
Me.cb85.Text = ""
Me.cb86.Text = ""
Me.cb87.Text = ""
Me.cb88.Text = ""
Me.cb89.Text = ""
Me.cb90.Text = ""
Me.cb91.Text = ""
Me.cb92.Text = ""
Me.cb93.Text = ""
Me.cb94.Text = ""
Me.cb95.Text = ""
Me.cb96.Text = ""
Me.cb97.Text = ""
Me.cb98.Text = ""
Me.cb99.Text = ""
Me.cb100.Text = ""
Me.cb101.Text = ""
Me.cb102.Text = ""
Me.cb103.Text = ""
Me.cb104.Text = ""
Me.cb105.Text = ""
Me.cb106.Text = ""
Me.cb107.Text = ""
Me.cb108.Text = ""
Me.cb109.Text = ""
Me.cb110.Text = ""
Me.cb111.Text = ""
Me.cb112.Text = ""
Me.cb113.Text = ""
Me.cb114.Text = ""
Me.txtid.Tag = ""
Me.txtid.Focus()
Me.btn_edit.Enabled = True
Me.btn_add.Text = "Add"
End Sub
Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
If Me.dgvData.Rows.Count > 0 Then
If Me.dgvData.SelectedRows.Count > 0 Then
Dim intid As Integer = Me.dgvData.SelectedRows(0).Cells("ID").Value
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cnn
cmd.CommandText = "DELETE FROM Table1 WHERE ID=" & intid
cmd.ExecuteNonQuery()
Me.RefreshData()
cnn.Close()
End If
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim d1 As Integer = 2
Dim valued1 As Integer
Dim markd1 As Integer = 0
Dim finald1 As Double = 0
If cb1.SelectedIndex = 0 Then
valued1 = 0
ElseIf cb1.SelectedIndex = 1 Then
valued1 = 1
ElseIf cb1.SelectedIndex = 2 Then
valued1 = 2
ElseIf cb1.SelectedIndex = 3 Then
valued1 = 3
ElseIf cb1.SelectedIndex = 4 Then
valued1 = 4
ElseIf cb1.SelectedIndex = 5 Then
valued1 = 5
Else
d1 = d1 - 1
valued1 = 0
End If
markd1 = markd1 + valued1
If cb2.SelectedIndex = 0 Then
valued1 = 0
ElseIf cb2.SelectedIndex = 1 Then
valued1 = 1
ElseIf cb2.SelectedIndex = 2 Then
valued1 = 2
ElseIf cb2.SelectedIndex = 3 Then
valued1 = 3
ElseIf cb2.SelectedIndex = 4 Then
valued1 = 4
ElseIf cb2.SelectedIndex = 5 Then
valued1 = 5
Else
d1 = d1 - 1
valued1 = 0
End If
markd1 = markd1 + valued1
finald1 = markd1 / d1
MsgBox(finald1)
Dim d2 As Integer = 7
Dim valued2 As Integer
Dim markd2 As Integer = 0
Dim finald2 As Double = 0
If cb3.SelectedIndex = 0 Then
valued2 = 0
ElseIf cb3.SelectedIndex = 1 Then
valued2 = 1
ElseIf cb3.SelectedIndex = 2 Then
valued2 = 2
ElseIf cb3.SelectedIndex = 3 Then
valued2 = 3
ElseIf cb3.SelectedIndex = 4 Then
valued2 = 4
ElseIf cb3.SelectedIndex = 5 Then
valued2 = 5
Else
d2 = d2 - 1
valued2 = 0
End If
markd2 = markd2 + valued2
If cb4.SelectedIndex = 0 Then
valued2 = 0
ElseIf cb4.SelectedIndex = 1 Then
valued2 = 1
ElseIf cb4.SelectedIndex = 2 Then
valued2 = 2
ElseIf cb4.SelectedIndex = 3 Then
valued2 = 3
ElseIf cb4.SelectedIndex = 4 Then
valued2 = 4
ElseIf cb4.SelectedIndex = 5 Then
valued2 = 5
Else
d2 = d2 - 1
valued2 = 0
End If
markd2 = markd2 + valued2
If cb5.SelectedIndex = 0 Then
valued2 = 0
ElseIf cb5.SelectedIndex = 1 Then
valued2 = 1
ElseIf cb5.SelectedIndex = 2 Then
valued2 = 2
ElseIf cb5.SelectedIndex = 3 Then
valued2 = 3
ElseIf cb5.SelectedIndex = 4 Then
valued2 = 4
ElseIf cb5.SelectedIndex = 5 Then
valued2 = 5
Else
d2 = d2 - 1
valued2 = 0
End If
markd2 = markd2 + valued2
If cb6.SelectedIndex = 0 Then
valued2 = 0
ElseIf cb6.SelectedIndex = 1 Then
valued2 = 1
ElseIf cb6.SelectedIndex = 2 Then
valued2 = 2
ElseIf cb6.SelectedIndex = 3 Then
valued2 = 3
ElseIf cb6.SelectedIndex = 4 Then
valued2 = 4
ElseIf cb6.SelectedIndex = 5 Then
valued2 = 5
Else
d2 = d2 - 1
valued2 = 0
End If
markd2 = markd2 + valued2
If cb7.SelectedIndex = 0 Then
valued2 = 0
ElseIf cb7.SelectedIndex = 1 Then
valued2 = 1
ElseIf cb7.SelectedIndex = 2 Then
valued2 = 2
ElseIf cb7.SelectedIndex = 3 Then
valued2 = 3
ElseIf cb7.SelectedIndex = 4 Then
valued2 = 4
ElseIf cb7.SelectedIndex = 5 Then
valued2 = 5
Else
d2 = d2 - 1
valued2 = 0
End If
markd2 = markd2 + valued2
If cb8.SelectedIndex = 0 Then
valued2 = 0
ElseIf cb8.SelectedIndex = 1 Then
valued2 = 1
ElseIf cb8.SelectedIndex = 2 Then
valued2 = 2
ElseIf cb8.SelectedIndex = 3 Then
valued2 = 3
ElseIf cb8.SelectedIndex = 4 Then
valued2 = 4
ElseIf cb8.SelectedIndex = 5 Then
valued2 = 5
Else
d2 = d2 - 1
valued2 = 0
End If
markd2 = markd2 + valued2
If cb9.SelectedIndex = 0 Then
valued2 = 0
ElseIf cb9.SelectedIndex = 1 Then
valued2 = 1
ElseIf cb9.SelectedIndex = 2 Then
valued2 = 2
ElseIf cb9.SelectedIndex = 3 Then
valued2 = 3
ElseIf cb9.SelectedIndex = 4 Then
valued2 = 4
ElseIf cb9.SelectedIndex = 5 Then
valued2 = 5
Else
d2 = d2 - 1
valued2 = 0
End If
markd2 = markd2 + valued2
finald2 = markd2 / d2
MsgBox(finald2)
Dim d3 As Integer = 6
Dim valued3 As Integer
Dim markd3 As Integer = 0
Dim finald3 As Double = 0
If cb10.SelectedIndex = 0 Then
valued3 = 0
ElseIf cb10.SelectedIndex = 1 Then
valued3 = 1
ElseIf cb10.SelectedIndex = 2 Then
valued3 = 2
ElseIf cb10.SelectedIndex = 3 Then
valued3 = 3
ElseIf cb10.SelectedIndex = 4 Then
valued3 = 4
ElseIf cb10.SelectedIndex = 5 Then
valued3 = 5
Else
d3 = d3 - 1
valued3 = 0
End If
markd3 = markd3 + valued3
If cb11.SelectedIndex = 0 Then
valued3 = 0
ElseIf cb11.SelectedIndex = 1 Then
valued3 = 1
ElseIf cb11.SelectedIndex = 2 Then
valued3 = 2
ElseIf cb11.SelectedIndex = 3 Then
valued3 = 3
ElseIf cb11.SelectedIndex = 4 Then
valued3 = 4
ElseIf cb11.SelectedIndex = 5 Then
valued3 = 5
Else
d3 = d3 - 1
valued3 = 0
End If
markd3 = markd3 + valued3
If cb12.SelectedIndex = 0 Then
valued3 = 0
ElseIf cb12.SelectedIndex = 1 Then
valued3 = 1
ElseIf cb12.SelectedIndex = 2 Then
valued3 = 2
ElseIf cb12.SelectedIndex = 3 Then
valued3 = 3
ElseIf cb12.SelectedIndex = 4 Then
valued3 = 4
ElseIf cb12.SelectedIndex = 5 Then
valued3 = 5
Else
d3 = d3 - 1
valued3 = 0
End If
markd3 = markd3 + valued3
If cb13.SelectedIndex = 0 Then
valued3 = 0
ElseIf cb13.SelectedIndex = 1 Then
valued3 = 1
ElseIf cb13.SelectedIndex = 2 Then
valued3 = 2
ElseIf cb13.SelectedIndex = 3 Then
valued3 = 3
ElseIf cb13.SelectedIndex = 4 Then
valued3 = 4
ElseIf cb13.SelectedIndex = 5 Then
valued3 = 5
Else
d3 = d3 - 1
valued3 = 0
End If
markd3 = markd3 + valued3
If cb14.SelectedIndex = 0 Then
valued3 = 0
ElseIf cb14.SelectedIndex = 1 Then
valued3 = 1
ElseIf cb14.SelectedIndex = 2 Then
valued3 = 2
ElseIf cb14.SelectedIndex = 3 Then
valued3 = 3
ElseIf cb14.SelectedIndex = 4 Then
valued3 = 4
ElseIf cb14.SelectedIndex = 5 Then
valued3 = 5
Else
d3 = d3 - 1
valued3 = 0
End If
markd3 = markd3 + valued3
If cb15.SelectedIndex = 0 Then
valued3 = 0
ElseIf cb15.SelectedIndex = 1 Then
valued3 = 1
ElseIf cb15.SelectedIndex = 2 Then
valued3 = 2
ElseIf cb15.SelectedIndex = 3 Then
valued3 = 3
ElseIf cb15.SelectedIndex = 4 Then
valued3 = 4
ElseIf cb15.SelectedIndex = 5 Then
valued3 = 5
Else
d3 = d3 - 1
valued3 = 0
End If
markd3 = markd3 + valued3
finald3 = markd3 / d3
MsgBox(finald3)
Dim d4 As Integer = 10
Dim valued4 As Integer
Dim markd4 As Integer = 0
Dim finald4 As Double = 0
If cb16.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb16.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb16.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb16.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb16.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb16.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb17.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb17.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb17.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb17.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb17.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb17.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb18.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb18.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb18.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb18.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb18.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb18.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb19.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb19.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb19.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb19.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb19.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb19.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb20.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb20.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb20.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb20.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb20.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb20.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb21.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb21.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb21.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb21.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb21.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb21.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb22.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb22.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb22.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb22.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb22.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb22.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb23.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb23.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb23.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb23.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb23.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb23.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb24.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb24.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb24.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb24.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb24.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb24.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
If cb25.SelectedIndex = 0 Then
valued4 = 0
ElseIf cb25.SelectedIndex = 1 Then
valued4 = 1
ElseIf cb25.SelectedIndex = 2 Then
valued4 = 2
ElseIf cb25.SelectedIndex = 3 Then
valued4 = 3
ElseIf cb25.SelectedIndex = 4 Then
valued4 = 4
ElseIf cb25.SelectedIndex = 5 Then
valued4 = 5
Else
d4 = d4 - 1
valued4 = 0
End If
markd4 = markd4 + valued4
finald4 = markd4 / d4
MsgBox(finald4)
Dim d5 As Integer = 14
Dim valued5 As Integer
Dim markd5 As Integer = 0
Dim finald5 As Double = 0
If cb26.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb26.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb26.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb26.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb26.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb26.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb27.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb27.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb27.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb27.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb27.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb27.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb28.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb28.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb28.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb28.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb28.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb28.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb29.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb29.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb29.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb29.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb29.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb29.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb30.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb30.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb30.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb30.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb30.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb30.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb31.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb31.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb31.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb31.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb31.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb31.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb32.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb32.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb32.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb32.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb32.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb32.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb33.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb33.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb33.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb33.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb33.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb33.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb34.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb34.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb34.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb34.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb34.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb34.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb35.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb35.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb35.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb35.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb35.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb35.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb36.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb36.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb36.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb36.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb36.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb36.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb37.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb37.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb37.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb37.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb37.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb37.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb38.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb38.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb38.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb38.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb38.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb38.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
If cb39.SelectedIndex = 0 Then
valued5 = 0
ElseIf cb39.SelectedIndex = 1 Then
valued5 = 1
ElseIf cb39.SelectedIndex = 2 Then
valued5 = 2
ElseIf cb39.SelectedIndex = 3 Then
valued5 = 3
ElseIf cb39.SelectedIndex = 4 Then
valued5 = 4
ElseIf cb39.SelectedIndex = 5 Then
valued5 = 5
Else
d5 = d5 - 1
valued5 = 0
End If
markd5 = markd5 + valued5
finald5 = markd5 / d5
MsgBox(finald5)
Dim d6 As Integer = 2
Dim valued6 As Integer
Dim markd6 As Integer = 0
Dim finald6 As Double = 0
If cb40.SelectedIndex = 0 Then
valued6 = 0
ElseIf cb40.SelectedIndex = 1 Then
valued6 = 1
ElseIf cb40.SelectedIndex = 2 Then
valued6 = 2
ElseIf cb40.SelectedIndex = 3 Then
valued6 = 3
ElseIf cb40.SelectedIndex = 4 Then
valued6 = 4
ElseIf cb40.SelectedIndex = 5 Then
valued6 = 5
Else
d6 = d6 - 1
valued6 = 0
End If
markd6 = markd6 + valued6
If cb41.SelectedIndex = 0 Then
valued6 = 0
ElseIf cb41.SelectedIndex = 1 Then
valued6 = 1
ElseIf cb41.SelectedIndex = 2 Then
valued6 = 2
ElseIf cb41.SelectedIndex = 3 Then
valued6 = 3
ElseIf cb41.SelectedIndex = 4 Then
valued6 = 4
ElseIf cb41.SelectedIndex = 5 Then
valued6 = 5
Else
d6 = d6 - 1
valued6 = 0
End If
markd6 = markd6 + valued6
finald6 = markd6 / d6
MsgBox(finald6)
Dim d7 As Integer = 15
Dim valued7 As Integer
Dim markd7 As Integer = 0
Dim finald7 As Double = 0
If cb42.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb42.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb42.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb42.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb42.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb42.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb43.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb43.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb43.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb43.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb43.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb43.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb44.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb44.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb44.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb44.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb44.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb44.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb45.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb45.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb45.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb45.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb45.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb45.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb46.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb46.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb46.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb46.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb46.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb46.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb47.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb47.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb47.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb47.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb47.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb47.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb48.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb48.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb48.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb48.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb48.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb48.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb49.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb49.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb49.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb49.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb49.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb49.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb50.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb50.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb50.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb50.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb50.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb50.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb51.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb51.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb51.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb51.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb51.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb51.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb52.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb52.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb52.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb52.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb52.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb52.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb53.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb53.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb53.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb53.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb53.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb53.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb54.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb54.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb54.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb54.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb54.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb54.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb55.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb55.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb55.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb55.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb55.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb55.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
If cb56.SelectedIndex = 0 Then
valued7 = 0
ElseIf cb56.SelectedIndex = 1 Then
valued7 = 1
ElseIf cb56.SelectedIndex = 2 Then
valued7 = 2
ElseIf cb56.SelectedIndex = 3 Then
valued7 = 3
ElseIf cb56.SelectedIndex = 4 Then
valued7 = 4
ElseIf cb56.SelectedIndex = 5 Then
valued7 = 5
Else
d7 = d7 - 1
valued7 = 0
End If
markd7 = markd7 + valued7
finald7 = markd7 / d7
MsgBox(finald7)
Dim d8 As Integer = 14
Dim valued8 As Integer
Dim markd8 As Integer = 0
Dim finald8 As Double = 0
If cb57.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb57.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb57.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb57.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb57.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb57.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb58.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb58.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb58.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb58.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb58.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb58.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb59.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb59.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb59.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb59.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb59.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb59.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb60.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb60.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb60.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb60.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb60.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb60.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb61.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb61.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb61.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb61.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb61.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb61.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb62.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb62.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb62.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb62.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb62.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb62.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb63.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb63.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb63.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb63.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb63.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb63.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb64.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb64.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb64.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb64.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb64.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb64.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb65.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb65.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb65.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb65.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb65.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb65.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb66.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb66.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb66.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb66.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb66.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb66.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb67.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb67.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb67.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb67.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb67.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb67.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb68.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb68.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb68.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb68.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb68.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb68.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb69.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb69.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb69.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb69.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb69.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb69.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
If cb70.SelectedIndex = 0 Then
valued8 = 0
ElseIf cb70.SelectedIndex = 1 Then
valued8 = 1
ElseIf cb70.SelectedIndex = 2 Then
valued8 = 2
ElseIf cb70.SelectedIndex = 3 Then
valued8 = 3
ElseIf cb70.SelectedIndex = 4 Then
valued8 = 4
ElseIf cb70.SelectedIndex = 5 Then
valued8 = 5
Else
d8 = d8 - 1
valued8 = 0
End If
markd8 = markd8 + valued8
finald8 = markd8 / d8
MsgBox(finald8)
Dim d9 As Integer = 7
Dim valued9 As Integer
Dim markd9 As Integer = 0
Dim finald9 As Double = 0
If cb71.SelectedIndex = 0 Then
valued9 = 0
ElseIf cb71.SelectedIndex = 1 Then
valued9 = 1
ElseIf cb71.SelectedIndex = 2 Then
valued9 = 2
ElseIf cb71.SelectedIndex = 3 Then
valued9 = 3
ElseIf cb71.SelectedIndex = 4 Then
valued9 = 4
ElseIf cb71.SelectedIndex = 5 Then
valued9 = 5
Else
d9 = d9 - 1
valued9 = 0
End If
markd9 = markd9 + valued9
If cb72.SelectedIndex = 0 Then
valued9 = 0
ElseIf cb72.SelectedIndex = 1 Then
valued9 = 1
ElseIf cb72.SelectedIndex = 2 Then
valued9 = 2
ElseIf cb72.SelectedIndex = 3 Then
valued9 = 3
ElseIf cb72.SelectedIndex = 4 Then
valued9 = 4
ElseIf cb72.SelectedIndex = 5 Then
valued9 = 5
Else
d9 = d9 - 1
valued9 = 0
End If
markd9 = markd9 + valued9
If cb73.SelectedIndex = 0 Then
valued9 = 0
ElseIf cb73.SelectedIndex = 1 Then
valued9 = 1
ElseIf cb73.SelectedIndex = 2 Then
valued9 = 2
ElseIf cb73.SelectedIndex = 3 Then
valued9 = 3
ElseIf cb73.SelectedIndex = 4 Then
valued9 = 4
ElseIf cb73.SelectedIndex = 5 Then
valued9 = 5
Else
d9 = d9 - 1
valued9 = 0
End If
markd9 = markd9 + valued9
If cb74.SelectedIndex = 0 Then
valued9 = 0
ElseIf cb74.SelectedIndex = 1 Then
valued9 = 1
ElseIf cb74.SelectedIndex = 2 Then
valued9 = 2
ElseIf cb74.SelectedIndex = 3 Then
valued9 = 3
ElseIf cb74.SelectedIndex = 4 Then
valued9 = 4
ElseIf cb74.SelectedIndex = 5 Then
valued9 = 5
Else
d9 = d9 - 1
valued9 = 0
End If
markd9 = markd9 + valued9
If cb75.SelectedIndex = 0 Then
valued9 = 0
ElseIf cb75.SelectedIndex = 1 Then
valued9 = 1
ElseIf cb75.SelectedIndex = 2 Then
valued9 = 2
ElseIf cb75.SelectedIndex = 3 Then
valued9 = 3
ElseIf cb75.SelectedIndex = 4 Then
valued9 = 4
ElseIf cb75.SelectedIndex = 5 Then
valued9 = 5
Else
d9 = d9 - 1
valued9 = 0
End If
markd9 = markd9 + valued9
If cb76.SelectedIndex = 0 Then
valued9 = 0
ElseIf cb76.SelectedIndex = 1 Then
valued9 = 1
ElseIf cb76.SelectedIndex = 2 Then
valued9 = 2
ElseIf cb76.SelectedIndex = 3 Then
valued9 = 3
ElseIf cb76.SelectedIndex = 4 Then
valued9 = 4
ElseIf cb76.SelectedIndex = 5 Then
valued9 = 5
Else
d9 = d9 - 1
valued9 = 0
End If
markd9 = markd9 + valued9
If cb77.SelectedIndex = 0 Then
valued9 = 0
ElseIf cb77.SelectedIndex = 1 Then
valued9 = 1
ElseIf cb77.SelectedIndex = 2 Then
valued9 = 2
ElseIf cb77.SelectedIndex = 3 Then
valued9 = 3
ElseIf cb77.SelectedIndex = 4 Then
valued9 = 4
ElseIf cb77.SelectedIndex = 5 Then
valued9 = 5
Else
d9 = d9 - 1
valued9 = 0
End If
markd9 = markd9 + valued9
finald9 = markd9 / d9
MsgBox(finald9)
Dim d10 As Integer = 13
Dim valued10 As Integer
Dim markd10 As Integer = 0
Dim finald10 As Double = 0
If cb78.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb78.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb78.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb78.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb78.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb78.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb79.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb79.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb79.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb79.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb79.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb79.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb80.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb80.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb80.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb80.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb80.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb80.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb81.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb81.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb81.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb81.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb81.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb81.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb82.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb82.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb82.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb82.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb82.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb82.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb83.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb83.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb83.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb83.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb83.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb83.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb84.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb84.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb84.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb84.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb84.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb84.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb85.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb85.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb85.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb85.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb85.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb85.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb86.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb86.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb86.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb86.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb86.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb86.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb87.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb87.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb87.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb87.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb87.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb87.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb88.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb88.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb88.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb88.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb88.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb88.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb89.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb89.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb89.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb89.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb89.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb89.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
If cb90.SelectedIndex = 0 Then
valued10 = 0
ElseIf cb90.SelectedIndex = 1 Then
valued10 = 1
ElseIf cb90.SelectedIndex = 2 Then
valued10 = 2
ElseIf cb90.SelectedIndex = 3 Then
valued10 = 3
ElseIf cb90.SelectedIndex = 4 Then
valued10 = 4
ElseIf cb90.SelectedIndex = 5 Then
valued10 = 5
Else
d10 = d10 - 1
valued10 = 0
End If
markd10 = markd10 + valued10
finald10 = markd10 / d10
MsgBox(finald10)
Dim d11 As Integer = 5
Dim valued11 As Integer
Dim markd11 As Integer = 0
Dim finald11 As Double = 0
If cb91.SelectedIndex = 0 Then
valued11 = 0
ElseIf cb91.SelectedIndex = 1 Then
valued11 = 1
ElseIf cb91.SelectedIndex = 2 Then
valued11 = 2
ElseIf cb91.SelectedIndex = 3 Then
valued11 = 3
ElseIf cb91.SelectedIndex = 4 Then
valued11 = 4
ElseIf cb91.SelectedIndex = 5 Then
valued11 = 5
Else
d11 = d11 - 1
valued11 = 0
End If
markd11 = markd11 + valued11
If cb92.SelectedIndex = 0 Then
valued11 = 0
ElseIf cb9.SelectedIndex = 1 Then
valued11 = 1
ElseIf cb92.SelectedIndex = 2 Then
valued11 = 2
ElseIf cb92.SelectedIndex = 3 Then
valued11 = 3
ElseIf cb92.SelectedIndex = 4 Then
valued11 = 4
ElseIf cb92.SelectedIndex = 5 Then
valued11 = 5
Else
d11 = d11 - 1
valued11 = 0
End If
markd11 = markd11 + valued11
If cb93.SelectedIndex = 0 Then
valued11 = 0
ElseIf cb93.SelectedIndex = 1 Then
valued11 = 1
ElseIf cb93.SelectedIndex = 2 Then
valued11 = 2
ElseIf cb93.SelectedIndex = 3 Then
valued11 = 3
ElseIf cb93.SelectedIndex = 4 Then
valued11 = 4
ElseIf cb93.SelectedIndex = 5 Then
valued11 = 5
Else
d11 = d11 - 1
valued11 = 0
End If
markd11 = markd11 + valued11
If cb94.SelectedIndex = 0 Then
valued11 = 0
ElseIf cb94.SelectedIndex = 1 Then
valued11 = 1
ElseIf cb94.SelectedIndex = 2 Then
valued11 = 2
ElseIf cb94.SelectedIndex = 3 Then
valued11 = 3
ElseIf cb94.SelectedIndex = 4 Then
valued11 = 4
ElseIf cb94.SelectedIndex = 5 Then
valued11 = 5
Else
d11 = d11 - 1
valued11 = 0
End If
markd11 = markd11 + valued11
If cb95.SelectedIndex = 0 Then
valued11 = 0
ElseIf cb95.SelectedIndex = 1 Then
valued11 = 1
ElseIf cb95.SelectedIndex = 2 Then
valued11 = 2
ElseIf cb95.SelectedIndex = 3 Then
valued11 = 3
ElseIf cb95.SelectedIndex = 4 Then
valued11 = 4
ElseIf cb95.SelectedIndex = 5 Then
valued11 = 5
Else
d11 = d11 - 1
valued11 = 0
End If
markd11 = markd11 + valued11
finald11 = markd11 / d11
MsgBox(finald11)
Dim d12 As Integer = 7
Dim valued12 As Integer
Dim markd12 As Integer = 0
Dim finald12 As Double = 0
If cb96.SelectedIndex = 0 Then
valued12 = 0
ElseIf cb96.SelectedIndex = 1 Then
valued12 = 1
ElseIf cb96.SelectedIndex = 2 Then
valued12 = 2
ElseIf cb96.SelectedIndex = 3 Then
valued12 = 3
ElseIf cb96.SelectedIndex = 4 Then
valued12 = 4
ElseIf cb96.SelectedIndex = 5 Then
valued12 = 5
Else
d12 = d12 - 1
valued12 = 0
End If
markd12 = markd12 + valued12
If cb97.SelectedIndex = 0 Then
valued12 = 0
ElseIf cb97.SelectedIndex = 1 Then
valued12 = 1
ElseIf cb97.SelectedIndex = 2 Then
valued12 = 2
ElseIf cb97.SelectedIndex = 3 Then
valued12 = 3
ElseIf cb97.SelectedIndex = 4 Then
valued12 = 4
ElseIf cb97.SelectedIndex = 5 Then
valued12 = 5
Else
d12 = d12 - 1
valued12 = 0
End If
markd12 = markd12 + valued12
If cb98.SelectedIndex = 0 Then
valued12 = 0
ElseIf cb98.SelectedIndex = 1 Then
valued12 = 1
ElseIf cb98.SelectedIndex = 2 Then
valued12 = 2
ElseIf cb98.SelectedIndex = 3 Then
valued12 = 3
ElseIf cb98.SelectedIndex = 4 Then
valued12 = 4
ElseIf cb98.SelectedIndex = 5 Then
valued12 = 5
Else
d12 = d12 - 1
valued12 = 0
End If
markd12 = markd12 + valued12
If cb99.SelectedIndex = 0 Then
valued12 = 0
ElseIf cb99.SelectedIndex = 1 Then
valued12 = 1
ElseIf cb99.SelectedIndex = 2 Then
valued12 = 2
ElseIf cb99.SelectedIndex = 3 Then
valued12 = 3
ElseIf cb99.SelectedIndex = 4 Then
valued12 = 4
ElseIf cb99.SelectedIndex = 5 Then
valued12 = 5
Else
d12 = d12 - 1
valued12 = 0
End If
markd12 = markd12 + valued12
If cb100.SelectedIndex = 0 Then
valued12 = 0
ElseIf cb100.SelectedIndex = 1 Then
valued12 = 1
ElseIf cb100.SelectedIndex = 2 Then
valued12 = 2
ElseIf cb100.SelectedIndex = 3 Then
valued12 = 3
ElseIf cb100.SelectedIndex = 4 Then
valued12 = 4
ElseIf cb100.SelectedIndex = 5 Then
valued12 = 5
Else
d12 = d12 - 1
valued12 = 0
End If
markd12 = markd12 + valued12
If cb101.SelectedIndex = 0 Then
valued12 = 0
ElseIf cb101.SelectedIndex = 1 Then
valued12 = 1
ElseIf cb101.SelectedIndex = 2 Then
valued12 = 2
ElseIf cb101.SelectedIndex = 3 Then
valued12 = 3
ElseIf cb101.SelectedIndex = 4 Then
valued12 = 4
ElseIf cb101.SelectedIndex = 5 Then
valued12 = 5
Else
d12 = d12 - 1
valued12 = 0
End If
markd12 = markd12 + valued12
If cb102.SelectedIndex = 0 Then
valued12 = 0
ElseIf cb102.SelectedIndex = 1 Then
valued12 = 1
ElseIf cb102.SelectedIndex = 2 Then
valued12 = 2
ElseIf cb102.SelectedIndex = 3 Then
valued12 = 3
ElseIf cb102.SelectedIndex = 4 Then
valued12 = 4
ElseIf cb102.SelectedIndex = 5 Then
valued12 = 5
Else
d12 = d12 - 1
valued12 = 0
End If
markd12 = markd12 + valued12
finald12 = markd12 / d12
MsgBox(finald12)
Dim d13 As Integer = 4
Dim valued13 As Integer
Dim markd13 As Integer = 0
Dim finald13 As Double = 0
If cb103.SelectedIndex = 0 Then
valued13 = 0
ElseIf cb103.SelectedIndex = 1 Then
valued13 = 1
ElseIf cb103.SelectedIndex = 2 Then
valued13 = 2
ElseIf cb103.SelectedIndex = 3 Then
valued13 = 3
ElseIf cb103.SelectedIndex = 4 Then
valued13 = 4
ElseIf cb103.SelectedIndex = 5 Then
valued13 = 5
Else
d13 = d13 - 1
valued13 = 0
End If
markd13 = markd13 + valued13
If cb104.SelectedIndex = 0 Then
valued13 = 0
ElseIf cb104.SelectedIndex = 1 Then
valued13 = 1
ElseIf cb104.SelectedIndex = 2 Then
valued13 = 2
ElseIf cb104.SelectedIndex = 3 Then
valued13 = 3
ElseIf cb104.SelectedIndex = 4 Then
valued13 = 4
ElseIf cb104.SelectedIndex = 5 Then
valued13 = 5
Else
d13 = d13 - 1
valued13 = 0
End If
markd13 = markd13 + valued13
If cb105.SelectedIndex = 0 Then
valued13 = 0
ElseIf cb105.SelectedIndex = 1 Then
valued13 = 1
ElseIf cb105.SelectedIndex = 2 Then
valued13 = 2
ElseIf cb105.SelectedIndex = 3 Then
valued13 = 3
ElseIf cb105.SelectedIndex = 4 Then
valued13 = 4
ElseIf cb105.SelectedIndex = 5 Then
valued13 = 5
Else
d13 = d13 - 1
valued13 = 0
End If
markd13 = markd13 + valued13
If cb106.SelectedIndex = 0 Then
valued13 = 0
ElseIf cb106.SelectedIndex = 1 Then
valued13 = 1
ElseIf cb106.SelectedIndex = 2 Then
valued13 = 2
ElseIf cb106.SelectedIndex = 3 Then
valued13 = 3
ElseIf cb106.SelectedIndex = 4 Then
valued13 = 4
ElseIf cb106.SelectedIndex = 5 Then
valued13 = 5
Else
d13 = d13 - 1
valued13 = 0
End If
markd13 = markd13 + valued13
finald13 = markd13 / d13
MsgBox(finald13)
Dim d14 As Integer = 8
Dim valued14 As Integer
Dim markd14 As Integer = 0
Dim finald14 As Double = 0
If cb107.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb107.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb107.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb107.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb107.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb107.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
If cb108.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb108.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb108.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb108.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb108.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb108.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
If cb109.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb109.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb109.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb109.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb109.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb109.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
If cb110.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb110.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb110.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb110.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb110.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb110.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
If cb111.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb111.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb111.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb111.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb111.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb111.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
If cb112.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb112.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb112.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb112.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb112.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb112.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
If cb113.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb113.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb113.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb113.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb113.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb113.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
If cb114.SelectedIndex = 0 Then
valued14 = 0
ElseIf cb114.SelectedIndex = 1 Then
valued14 = 1
ElseIf cb114.SelectedIndex = 2 Then
valued14 = 2
ElseIf cb114.SelectedIndex = 3 Then
valued14 = 3
ElseIf cb114.SelectedIndex = 4 Then
valued14 = 4
ElseIf cb114.SelectedIndex = 5 Then
valued14 = 5
Else
d14 = d14 - 1
valued14 = 0
End If
markd14 = markd14 + valued14
finald14 = markd14 / d14
MsgBox(finald14)
End Sub
End Class
Submit an article or tip