1. This question will ask you to determine the area of a flat piece of metal acc
ID: 1951255 • Letter: 1
Question
1. This question will ask you to determine the area of a flat piece of metal according to the data in the table below. The answer will need to be correctly state as mean value±sm
units, for example Area = 3.2 ± 0.2 cm^2
.
Length (cm) Width (cm)
8.4 6.3
8.6 5.9
8.3 6.2
8.7 6.5
8.5 6.3
8.8 6.1
a.Determine the mean, standard deviation, and the standard deviation of the
mean for the length measurements. Properly report the length and its error.
b. Determine the mean, standard deviation, and the standard deviation of the
mean for the width measurements. Properly report the width and its error.
c. Determine the area of the plate and the error using the error propagation
rules as summarized above. Properly report the area its error.
Explanation / Answer
ignore the numbers they represent lines : 01 Public Class Form1 02 Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=GRADEBOOK.MDB" 03 Dim sqlStr As String 04 Dim dt As New DataTable() 05 06 Public Sub UpdateGrid(ByVal sqlStr) 07 08 Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr) 09 dataAdapter.Fill(dt) 10 dataAdapter.Dispose() 11 dgvDisplay.DataSource = dt 12 End Sub 13 14 Private Sub btnGrades_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrades.Click 15 dt.Clear() 16 UpdateGrid("SELECT firstName,lastName,Students.socSecNumber,firstExam,secondExam,finalExam FROM Students INNER JOIN Grades ON Students.socSecNumber = Grades.socSecNumber") 17 18 End Sub 19 20 Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click 21 Close() 22 End Sub 23 24 Public Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click 25 Dim changes As Integer 26 Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr) 27 Dim commandBuilder As New OleDb.OleDbCommandBuilder(dataAdapter) 28 changes = dataAdapter.Update(dt) 29 dataAdapter.Dispose() 30 If changes > 0 Then 31 MessageBox.Show(changes & "Changes were saved in the database") 32 End If 33 End Sub 34 35 Private Sub btnSA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSA.Click 36 dt.Clear() 37 UpdateGrid("SELECT firstName,lastName,Students.socSecNumber,firstExam,secondExam,finalExam,((firstExam+secondExam+2*finalExam)/4) AS semesterAverage FROM Students INNER JOIN Grades ON Students.socSecNumber = Grades.socSecNumber") 38 39 End Sub 40 End Class
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.