vb实验代码大全
实验31
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim n As Integer
Dim s As Single
s = 0
n = InputBox("请输入n")
For i = 1 To n
s = s + 1 / (i * (i + 1))
Next
MsgBox("s=" & s)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a(10) As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer
x = 0
y = 0
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数")
If i Mod 2 = 0 Then
x = x + a(i)
Else
y = y + a(i)
End If
Next
MsgBox("下标为奇数的元素和为" & y & "下标为偶数的元素和为" & x) End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As String
ys = ""
r = 1
Do While r <= 4
c = 10 - r : s = 1
y(r) = y(r) & Space(c + s)
Do While s <= 2 * r - 1
y(r) = y(r) & "*"
s = s + 1
Loop
r = r + 1
Loop
For j = 1 To 4
ys = ys & y(j) & Chr(10)
Next
MsgBox(ys)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim r As Integer, s As Integer, c As Integer, y(5) As String, ys As String
ys = ""
r = 4
Do While r >= 1
c = 10 - r : s = 1
ys = ys & Space(c + s)
Do While s <= 2 * r - 1
ys = ys & "*"
s = s + 1
Loop
r = r - 1
ys = ys & Chr(10)
Loop
MsgBox(ys)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim a(19) As Integer
Dim s As String
Dim i As Integer
Dim x As Integer
Dim y As Integer
x = 0
y = 0
s = ""
For i = 0 To 19
a(i) = Int(Rnd() * 100)
s = s & a(i) & ","
If a(i) > 50 Then
x = x + 1
ElseIf a(i) < 10 Then
y = y + 1
End If
Next
MsgBox(s & vbCrLf & "50万元以上的业务人数为" & x & ",10万元以下的业务人数为" & y) End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim a(19) As Integer
Dim t As Integer
Dim i As Integer
Dim j As Integer
Dim x As String
Dim y As String
x = ""
y = ""
For i = 0 To 19
a(i) = Int(Rnd() * 100)
x = x & a(i) & ","
Next
For i = 0 To 19
For j = 19 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next
y = y & a(i) & ","
Next
MsgBox(x & vbCrLf & y)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim a As Integer
Dim b(9) As Integer
Dim s As Integer
Dim u As String
Dim i As Integer
Randomize()
a = Int(Rnd() * 90000000 + 10000000)
For i = 0 To 7
s = Mid(a, i + 1, 1)
b(s) = b(s) + 1
Next
u = "8位数为：(" & a & ")" & vbCrLf
For i = 0 To 9
u = u & i & "出现次数：" & b(i) & vbCrLf
Next
MsgBox(u)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim b(19) As Integer
Dim i As Integer
Dim s As String
s = ""
For i = 0 To 19
b(i) = Int(Rnd() * 90000000 + 10000000)
s = s & b(i) & vbCrLf
Next
MsgBox(s)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim i As Integer
Dim t As Single
Dim s As Single
i = 1
t = 1 / (i * (i + 1))
s = 0
Do While t >= 0.000001
s = s + t
i = i + 1
t = 1 / (i * (i + 1))
Loop
MsgBox("s=" & s)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim i As Integer
Dim t As Single
Dim s As Single
i = 1
t = 1 / (i * (i + 1))
s = 0
Do
s = s + t
i = i + 1
t = 1 / (i * (i + 1))
Loop While t >= 0.000001
MsgBox("s=" & s)
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim a() As Integer
Dim i As Integer
Dim n As Integer
Dim x As Integer
Dim y As Integer
x = 0
y = 0
n = InputBox("请输入数组的数量")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("请输入第" & i & "个数")
If i Mod 2 = 0 Then
x = x + a(i)
Else
y = y + a(i)
End If
Next
MsgBox("下标为奇数的元素和为" & y & "下标为偶数的元素和为" & x) End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim s As String
Dim y As String
Dim t As String
Dim a() As String
Dim i As Integer
Dim j As Integer
Dim l As Integer
t = ""
y = ""
s = InputBox("请输入要排序的字符串")
l = Len(s)
ReDim a(l)
For i = 1 To l
a(i) = Mid(s, i, 1)
Next
For i = 1 To l
For j = l To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next
y = y & a(i)
Next
MsgBox(s & vbCrLf & y)
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim s As String
Dim t As String
Dim i_0 As Integer
Dim j_0 As Integer
Dim mfz_bz(9, 9) As String
Dim mfz(9, 9) As String
n = InputBox("请输入魔方阵阶数N")
If n < 3 Or n > 9 Or n Mod 2 <> 1 Then
MsgBox("您输入的魔方阵阶数N 不在范围内，请输入3-9之间的奇数")
Exit Sub
End If
'初始化
For i = 1 To 9
For j = 1 To 9
mfz_bz(i, j) = 0
mfz(i, j) = ""
Next j
Next i
mfz(1, n \ 2 + 1) = 1
mfz_bz(1, n \ 2 + 1) = 1
i_0 = 1
j_0 = n \ 2 + 1
For ysz = 2 To n * n
If mfz(i_0, j_0) > n And (mfz(i_0, j_0) Mod n = 0) Then
i = i_0 + 1
j = j_0
ElseIf i_0 = 1 Then
i = n
j = j_0 + 1
ElseIf j_0 = n Then
i = i_0 - 1
j = 1
Else
i = i_0 - 1
j = j_0 + 1
End If
If mfz_bz(i, j) = 1 Then
i = i_0 + 1
j = j_0
End If
mfz(i, j) = ysz
mfz_bz(i, j) = 1
i_0 = i
j_0 = j
Next ysz
MsgBox("魔方阵排列完毕")
s = ""
For i = 1 To 9
For j = 1 To 9
t = mfz(i, j)
s = s & Format(t, "{0,4}")
Next
s = s & vbCrLf
Next
MsgBox(s)
End Sub
End Class
实验30
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String, b As String, c As String
Dim x1 As Single, x2 As Single
a = InputBox("输入A", "输入数据Y", , 500, 500)
b = InputBox("输入B", "输入数据Y", , 500, 500)
c = InputBox("输入C", "输入数据Y", , 500, 500)
x1 = -b + Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a
x2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a
MsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As Integer
Dim y As Integer
Dim z As Single
x = 5
y = 9
z = (x ^ 3 + x * y + y ^ 3) / (2 * x * y)
MsgBox("(x ^ 3 + x * y + y ^ 3) / (2 * x * y)=" & z)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim x As Single
Dim y As Single
x = InputBox("输入x")
y = Math.Log(20) + Math.Abs(x - 16)
MsgBox("Math.Log(20) + Math.Abs(x - 16)=" & y)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim x As Single
Dim y As Single
x = InputBox("输入x")
y = 0.231 * x + 1.36
MsgBox("0.231 * x + 1.36=" & y)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Const g As Single = 9.81
Dim v As Single, o As Single, t As Single, s As Single
v = InputBox("输入初速度")
o = InputBox("输入角度")
t = 2 * v * Math.Sin(o * Math.PI / 180) / g
s = v * Math.Sin(2 * o * Math.PI / 180) / g
MsgBox("落地所需时间" & t & " 落地时运动的射程" & s)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
x = Int(Rnd() * 100)
If x Mod 2 = 0 Then
MsgBox(x & "是偶数")
Else
MsgBox(x & "是奇数")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As Single, b As Single, c As Single, x As Single, y As Single
a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a > b Then
x = a
y = b
Else
x = b
y = a
End If
If c > x Then
x = c
Else
If c < y Then
y = c
End If
End If
MsgBox("最大数" & x & " 最小数" & y)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim t As Single, f As Single
t = InputBox("请输入t")
If t < 120 Then
f = 0.06 * t + 2
MsgBox("f = 0.06 * t + 2=" & f)
Else
f = 0.06 * t * 0.85
MsgBox("f = 0.06 * t * 0.85=" & f)
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim x As Single
Dim y As String
x = InputBox("请输入成绩")
If x >= 90 Then
y = "A"
ElseIf x >= 80 Then
y = "B"
ElseIf x >= 70 Then
y = "C"
ElseIf x >= 60 Then
y = "D"
Else
y = "E"
End If
MsgBox("成绩" & x & "等级为" & y)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim x As Single, y As Single
x = InputBox("请输入x")
Select Case x
Case Is <= -1
y = x - 1
Case Is <= 2
y = 2 * x
Case Is <= 10
y = x * (x + 2)
Case Else
y = 0
End Select
MsgBox("y=" & y)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim a As String, b As String, c As String
Dim x1 As Single, x2 As Single, x As Single
a = InputBox("输入A", "输入数据Y", , 500, 500)
b = InputBox("输入B", "输入数据Y", , 500, 500)
c = InputBox("输入C", "输入数据Y", , 500, 500)
x = b ^ 2 - 4 * a * c
If x >= 0 Then
x1 = -b + Math.Sqrt(x) / 2 / a
x2 = -b - Math.Sqrt(x) / 2 / a
MsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) Else
x1 = Math.Sqrt(-x) / 2 / a
x2 = -Math.Sqrt(-x) / 2 / a
MsgBox("x1=" & -b / 2 / a & x1 & "i x2=" & -b / 2 / a & x2 & "i")
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim x As Single, y As Single
x = InputBox("请输入x")
If x <= -1 Then
y = x - 1
ElseIf x <= 2 Then
y = 2 * x
ElseIf x <= 10 Then
y = x * (x + 2)
End If
MsgBox("y=" & y)
End Sub
End Class
实验32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer
n = InputBox("请输入需求阶乘之和的任意整数n")
If n Mod 2 = 0 Then
MsgBox("偶数序列" & Str(n) & " 的阶乘之和：" & Str(factorial(n)))
MsgBox("请输入偶数")
End If
End Sub
Public Function factorial(ByVal x) As Integer
Dim s As Integer
Dim t As Integer
Dim i As Integer
Dim j As Integer
s = 0
For i = 1 To x Step 2
t = 1
For j = 1 To i
t = t * j
Next
s = s + t
Next
Return s
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim r As Single
Dim h As Single
r = InputBox("请输入半径：")
h = InputBox("请输入高度：")
Formula(r, h)
End Sub
Public Sub Formula(ByVal r As Single, ByVal h As Single)
Dim x As Single
Dim y As Single
Dim z As Single
x = Math.PI * r ^ 2
y = 2 * Math.PI * r
z = Math.PI * r ^ 2 * h
MsgBox("圆面积：" & x & ",圆周长：" & y & ",圆柱体积：" & z)
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim s As String
s = InputBox("请输入一个字符串")
MsgBox("" & Inverse(s))
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim m As Integer
Dim n As Integer
Dim s As Integer
m = InputBox("请输入一个数m")
n = InputBox("请输入一个数n")
s = cmn(m, n)
MsgBox("该组合数为" & s)
End Sub
Public Function cmn(ByVal m As Integer, ByVal n As Integer) As Integer
If n = 0 Then
Return 1
ElseIf n = 1 Then
Return m
ElseIf n > m / 2 Then
Return cmn(m, m - n)
Else
Return cmn(m - 1, n) + cmn(m - 1, n - 1)
End If
End Function
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim n As Integer
n = InputBox("请输入要计算兔子的月数：")
MsgBox(n & "个月后有：" & f(n) & "个兔子。")
End Sub
Public Function f(ByVal n As Integer) As Integer
If n = 1 Or n = 2 Then
Return 1
Return f(n - 1) + f(n - 2)
End If
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
实验33
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim t As Integer, f As Single, x As String
t = Val(TextBox1.Text)
f = 7.69 * t
x = Str$(f) + "元"
Label2.Text = x
TextBox1.Focus()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TextBox1.Text = ""
Label2.Text = ""
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim x As Integer
If TextBox1.Text = ""Then
TextBox1.Focus() '在文本框1输入身高
MsgBox("请输入身高")
Exit Sub
End If
If TextBox2.Text = ""Then
TextBox2.Focus() '在文本框2输入体重
MsgBox("请输入体重")
Exit Sub
End If
'选择性别
If RadioButton1.Checked = False And RadioButton2.Checked = False Then'此种情况不会发生MsgBox("请选择被检测者性别")
Exit Sub
End If
If RadioButton1.Checked = True Then
x = Val(TextBox1.Text) - 100 '计算男性体重
ElseIf RadioButton2.Checked = True Then
x = Val(TextBox1.Text) - 105 '计算女性体重
End If
'判断体重是否超标，并显示
If Val(TextBox2.Text) > x Then
Label3.Text = "体重超标，请注意饮食与运动！"
Else
Label3.Text = "体重正常"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'清除计算体重和超标提示
Label3.Text = "" : TextBox1.Text = "" : TextBox2.Text = ""
RadioButton1.Checked = False : RadioButton2.Checked = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End'结束工程运行
End Sub
End Class
Public Class Form1
Dim x As Integer, varstring As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox3.Enabled = False
Button1.Enabled = False
TextBox3.Font = New Font("宋体", 10, FontStyle.Regular)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Select Case True
Case CheckBox1.Checked = True And CheckBox2.Checked = False
TextBox3.Font = New Font("宋体", 10, FontStyle.Bold)
Case CheckBox2.Checked = True And CheckBox1.Checked = False
TextBox3.Font = New Font("宋体", 10, FontStyle.Italic)
Case CheckBox1.Checked And CheckBox2.Checked
TextBox3.Font = New Font("宋体", 10, FontStyle.Bold Or FontStyle.Italic)
Case CheckBox1.Checked = False And CheckBox2.Checked = False
TextBox3.Font = New Font("宋体", 10, FontStyle.Regular)
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
TextBox3.Enabled = True
TextBox3.Text = TextBox1.Text & TextBox2.Text
If RadioButton1.Checked = True Then
TextBox3.Text = TextBox3.Text & RadioButton1.Text
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = TextBox3.Text & RadioButton2.Text
End If
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
x = Len(TextBox1.Text)
If x <> 6 Then
Beep()
TextBox1.Text = ""
TextBox1.Focus()
TextBox3.Clear()
TextBox3.Text = "病历号为6位数字"
Else
TextBox3.Clear()
Button1.Enabled = True
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
ListBox1.Items.Add(ComboBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
If ListBox1.SelectedIndex = -1 Then
MsgBox("请选择要删除的书!")
Exit Sub
End If
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
ListBox1.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim num As Integer
num = ListBox1.Items.Count
For i = 0 To num - 1
If ListBox1.Items(i) = "内科学"Or ListBox1.Items(i) = "外科学"Then
MsgBox("您已经借阅了一本期刊,不能再借阅期刊!")
Exit Sub
End If
Next i
If RadioButton1.Checked = True Then
ListBox1.Items.Add("内科学")
ElseIf RadioButton2.Checked = True Then
ListBox1.Items.Add("外科学")
End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add(ComboBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
While ListBox1.SelectedIndex > -1
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End While
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Clear()
End Sub
精选新版2019年大学物理实验完整考试题库200题(含标准答案)
2019年《大学物理》实验题库200题[含参考答案] 一、选择题 1．用电磁感应法测磁场的磁感应强度时，在什么情形下感应电动势幅值的绝对值最大 ( ) A ：线圈平面的法线与磁力线成?90角； B ：线圈平面的法线与磁力线成?0角 ； C ：线圈平面的法线与磁力线成?270角； D ：线圈平面的法线与磁力线成?180角； 答案：（BD ） 2．选出下列说法中的正确者（ ） A ：牛顿环是光的等厚干涉产生的图像。 B ：牛顿环是光的等倾干涉产生的图像。 C ：平凸透镜产生的牛顿环干涉条纹的间隔从中心向外逐渐变密。 D ：牛顿环干涉条纹中心必定是暗斑。 答案：（AC ） 3．用三线摆测定物体的转动惯量实验中，在下盘对称地放上两个小圆柱体可以得到的结果：( ) A ：验证转动定律 B ：小圆柱的转动惯量； C ：验证平行轴定理； D ：验证正交轴定理。 答案：（ＢＣ） 4．测量电阻伏安特性时，用R 表示测量电阻的阻值，V R 表示电压表的内阻，A R 表示电流表的内阻，I I ?表示内外接转换时电流表的相对变化，V V ?表示内外接转换时电压表的相对变化，则下列说法正确的是： ( ) Ａ：当R <
D ：当V V I I ?>?时宜采用电流表外接。 答案：（BC ） 5．用模拟法测绘静电场实验，下列说法正确的是： ( ) A ：本实验测量等位线采用的是电压表法； B ：本实验用稳恒电流场模拟静电场； C ：本实验用稳恒磁场模拟静电场； D ：本实验测量等位线采用电流表法； 答案：（BD ） 6．时间、距离和速度关系测量实验中是根据物体反射回来的哪种波来测定物体的位置。 ( ) A ：超声波； B ：电磁波； C ：光波； D ：以上都不对。 答案：（B ） 7．在用ＵＪ３１型电位差计测电动势实验中，测量之前要对标准电池进行温度修正，这是 因为在不同的温度下：（ ） A ：待测电动势随温度变化； B ：工作电源电动势不同； C ：标准电池电动势不同； D ：电位差计各转盘电阻会变化。 答案：（CD ） 8．QJ36型单双臂电桥设置粗调、细调按扭的主要作用是：（ ） Ａ：保护电桥平衡指示仪（与检流计相当）； Ｂ：保护电源，以避免电源短路而烧坏； Ｃ：便于把电桥调到平衡状态； Ｄ：保护被测的低电阻，以避免过度发热烧坏。 答案：（AC ） 9．声速测定实验中声波波长的测量采用： ( ) A ：相位比较法 B ：共振干涉法； C ：补偿法； D ：；模拟法 答案：（AB ） 10．电位差计测电动势时若检流计光标始终偏向一边的可能原因是： （ ） A ：检流计极性接反了。 B ：检流计机械调零不准
vb实验教程答案
第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j
实验思考题参考答案
实验思考题参考答案 实验Fe(OH)3胶体的制备、破坏、分离 1.常压过滤时滤纸为什么要撕去一角？答：使滤纸紧贴玻璃漏斗，有利于排出滤纸与玻璃漏斗之间气泡，形成液柱。 2.抽滤时剪好的滤纸润湿后略大于布氏漏斗的内径、或剪的不圆周边凸出部分贴在布氏漏斗内壁上，对抽滤有何影响？为什么？答：会造成漏虑。滤纸大于布氏漏斗内径会造成滤纸折叠，不能紧贴布氏漏斗。 3.抽滤时，转移溶液之前为什么要先稍微抽气，而不能在转移溶液以后才开始 抽气？答：使滤纸紧贴布氏漏斗，以免造成漏虑。 4. 沉淀物未能铺满布氏漏斗底部、滤饼出现裂缝、沉淀层疏松不实，对抽干效果有什么影响？为什么？如何使沉淀抽得更干爽？答：固液分离效果不好；漏气使压差变小；用药勺铺平、压实沉淀物再抽滤。 由胆矾精制五水硫酸铜 1.结晶与重结晶分离提纯物质的根据是什么？如果被提纯物质是NaCl 而不是CuSO4·5H2O，实验操作上有何区别？ 答：根据物质溶解度随温度变化不同。NaCl 的溶解度随温度变化很小不能用重结晶的办法提纯，要用化学方法除杂提纯。 2.结晶与重结晶有何联系和区别？实验操作上有何不同？为什么？ 答：均是利用溶解度随温度变化提纯物质；结晶浓缩度较高（过饱和溶液），重结晶浓缩度较低（饱和溶液），且可以进行多次重结晶。结晶一般浓缩到过饱和溶液，有晶膜或晶体析出，冷却结晶；重结晶是在近沸状态下形成饱和溶液，冷却结晶，不允许浓缩。
3.水浴浓缩速度较慢，开始时可以搅拌加速蒸发，但临近结晶时能否这样做？ 答：搅拌为了加快水分蒸发；对于利用晶膜形成控制浓缩程度，在邻近结晶时不能搅拌。否则无法形成晶膜。 4.如果室温较低，你准备采用什么措施使热过滤能顺利进行？答：预热漏斗、 分批过滤、保温未过滤溶液。 5.浓缩和重结晶过程为何要加入少量H2SO4？答：防止防止Fe3+水解。 粗盐提纯 1.为什么说重结晶法不能提纯得到符合药用要求的氯化钠？为什么蒸发浓缩时 氯化钠溶液不能蒸干？ 答：NaCl 的溶解度随温度变化很小不能用重结晶的办法提纯，药用氯化钠不仅要达到纯度要求，还要符合药用要求。不能浓缩至干NaCl 溶液，是为了除去KCl。 2.用化学法除去SO42-、Mg2+ 、Ca2+的先后顺序是否可以倒置过来？为什么？ 答：不能，除杂要求为除去杂质引入的离子必须在后续的除杂过程中除去，先除去Mg2+ 、Ca2+后除SO42-，无法除去Ba2+。 3.用什么方法可以除去粗盐中不溶性杂质和可溶性杂质？依据是什么？ 答：不溶性杂质用过滤方法；可溶性杂质用化学方法除杂。依据：溶度积。 醋酸解离度和电离常数测定 1.不同浓度的HAc 溶液的溶解度α是否相同？为什么？用测定数据说明弱电解质解离度随浓度变化的关系。 答：不同，因K a,θ AH 。c↑,α↓。 c 2.测定不同浓度的HAc 溶液的pH 值时，为什么按由稀到浓的顺序？答：平衡块，减小由于润洗不到位而带来的误差。
大物实验题及答案-1
一、选择题（每个小题只有一个答案是正确的，请将正确的答案填到前面的表格内。共8小题， 1、某一长度的一次测量值为2.3467cm，该长度的测量仪器为： A、米尺 B、10分度游标卡尺 C、螺旋测微计 D、20分度游标卡尺 2、下列各种因素都可以造成误差，其中属于偶然误差的是： 用游标卡尺测量长度时，零点读数造成的误差分量 用米尺测量长度时，由人的眼睛灵敏程度造成的误差分量 自由落体测量重力加速度时，空气阻力造成的误差分量 天平称量物体质量时，天平两臂不等长造成的误差分量 3、用比重瓶法测量铜丝密度时，在放入铜丝时铜丝表面附着的小气泡造成铜丝的密度： A .偏大 B. 偏小 C. 不会造成影响 D. 会有影响，偏大偏小无法确定 4、下列论述中正确的是 A．多次测量取平均值可以减小偶然误差 B. 多次测量取平均值可以消除系统误差 C. 多次测量取平均值可以减小系统误差 D. 以上三种说法都不正确 5、下列测量结果正确的表达式是： A、金属管高度L=23.68±0.03 mm B、电流I=4.091±0.100 mA C、时间T=12.563±0.01 s D、质量m=(1.6±0.1) 6、在计算数据时，当有效数字位数确定以后，应将多余的数字舍去。设计算结果的有效数字取4位，则下列不正确的取舍是： A、4.32850→4.328； B、4.32750→4.328 C、4.32751→4.328 D、4.32749→4.328 7.用劈尖干涉法测纸的厚度实验中，如果在原来放头发丝的位置像远离劈尖楞的方向移动，干涉条纹密度如何变化？ A、密度增加； B、密度减小； C、密度不变。 D、无法确定 8、用螺旋测微计测量长度时，测量值 = 末读数—零点读数，零点读数是为了消除 A、系统误差 B、偶然误差 C、过失误差 D、其他误差
vb程序设计实验教程习题答案
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
大学化学试验思考题答案
实验一络合滴定法测定水的硬度 一、思考题及参考答案： +，而在络合滴定中应保持酸度不变，H故需加因为EDTA与金属离子络合反应放出1、入缓冲溶液稳定溶液的pH值。若溶液酸度太高，由于酸效应，EDTA的络合能力降低，若溶液酸度太低，金属离子可能会发生水解或形成羟基络合物，故要控制好溶液的酸度。 2、铬黑T在水溶液中有如下： 2-3-－（pKa＝6.3 In pKa＝11.55）HIn ? HIn ?322紫红兰橙 从此估计，指示剂在pH<6.3时呈紫红色，pH>11.55时，呈橙红色。而铬黑T与金属离子形成的络合物显红色，故在上述两种情况下，铬黑T指示剂本身接近红色，终点变色不敏锐，不能使用。根据实验结果，最适宜的酸度为pH 9～10.5，终点颜色由红色变为蓝色，变色很敏锐。 3+3+2+2+2+有干扰。、、CuNi、3、Al、FeCo2+2+2+，加入三乙醇胺掩蔽Ni掩蔽Cu、、CoS在碱性条件下，加入Na或KCN23+3+。、AlFe实验二原子吸收法测定水的硬度 一、思考题参考答案： 1.如何选择最佳的实验条件？ 答：通过实验得到最佳实验条件。 （1）分析线：根据对试样分析灵敏度的要求和干扰情况，选择合适的分析线。试液浓度低时，选最灵敏线；试液浓度高时，可选次灵敏线。 （2）空心阴极灯工作电流的选择：绘制标准溶液的吸光度—灯电流曲线，选出最佳灯电流。（3）燃助比的选择：固定其他实验条件和助燃气流量，改变乙炔流量，绘制吸光度—燃气流量曲线，选出燃助比。 （4）燃烧器高度的选择：用标准溶液绘制吸光度—燃烧器高度曲线，选出燃烧器最佳高度。（5）狭缝宽度的选择：在最佳燃助比及燃烧器高度的条件下，用标准溶液绘制吸光度—狭缝宽度曲线，选出最佳狭缝宽度。 2.为何要用待测元素的空心阴极灯作光源？ 答：因为空心阴极灯能够发射出待测元素的特征光谱，而且为了保证峰值吸收的测量，能发射出比吸收线宽度更窄、强度大而稳定、背景小的线光谱。 3+含量测定Fe 硫酸亚铁铵的制备及实验三 四、思考题及参考答案 1、本实验在制备FeSO的过程中为什么强调溶液必须保证强酸性？4答：如果溶液的酸性减弱，则亚铁盐(或铁盐)的水解度将会增大，在制备2+(NH)S0·FeSO·6HO的过程中，为了使Fe不被氧化和水解，溶液需要保持足够的酸22444度。 2 、在产品检验时，配制溶液为什么要用不含氧的去离子水？除氧方法是怎样的？ 2+3+，影响产品Fe使用不含氧的去离子水配溶液，是为了防止水中溶解的氧将Fe氧化为供参考．质量。水中除去氧的方法是：在烧杯中将去离子水加热煮沸10分钟，用表面皿盖好杯口，冷却后使用。 3、在计算硫酸亚铁和硫酸亚铁铵的理论产量时，各以什么物质用量为标准?为什么? 答：计算FeSO的理论产量时，以Fe屑的参加反应量为标准。4计算(NH)SO·FeSO·6HO的理论产量时，应以(NH)SO的用量为标准。42442244决定计算标准的原则是，以反应物中不足量者为依据。(详见讲解与示范中的3)。
大物实验练习题库合集(内附答案)剖析
使用说明： 该习题附答案是我整理用以方便大家学习大学物理实验理论知识的，以网上很多份文档作为参考 由于内容很多，所以使用时，我推荐将有疑问的题目使用word的查找功能（Ctrl+F）来找到自己不会的题目。 ——啥叫么么哒 测定刚体的转动惯量 1 对于转动惯量的测量量，需要考虑B类不确定度。在扭摆实验中，振动周期的B类不确定度应该取（） A. B. C. D. D 13 在测刚体的转动惯量实验中，需要用到多种测量工具，下列测量工具中，哪一个是不会用到的( ) A.游标卡尺 B.千分尺 C.天平
D.秒表 C 测定刚体的转动惯量 14 在扭摆实验中，为了测得圆盘刚体的转动惯量，除了测得圆盘的振动周期外，还要加入一个圆环测振动周期。加圆环的作用是（） A.减小测量误差 B.做测量结果对比 C.消除计算过程中的未知数 D.验证刚体质量的影响 C 测定刚体的转动惯量 15 转动惯量是刚体转动时惯性大小的量度，是表征刚体特性的一个物理量。转动惯量与物体的质量及其分布有关，还与（）有关 A.转轴的位置 B.物体转动速度 C.物体的体积 D.物体转动时的阻力 A 测定刚体的转动惯量 16
在测转动惯量仪实验中，以下不需要测量的物理量是（） A.细绳的直径 B.绕绳轮直径 C.圆环直径 D.圆盘直径 A 测定刚体的转动惯量 17 在扭摆实验中，使圆盘做角谐振动，角度不能超过（），但也不能太小。 A.90度 B.180度 C.360度 D.30度 B 测定刚体的转动惯量 测定空气的比热容比 2 如图，实验操作的正确顺序应该是： A.关闭C2，打开C1，打气，关闭C1，打开C2
VB程序设计教程(第3版)课后实验答案最新版2
1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5
VB课后实验6答案
实验6 数组 6-1 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10) As Integer, t As Integer Print "交换前数据：" For i = 1 To 10 a(i) = ……‘生成20-80之间的随机数 Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值， ‘如不用分号和逗号，则分行输出各数组元素的值。 Next i Print ‘输出空行,表示后面的输出换到新的一行。 For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一' 个和最后一个的交换，第二个和第九个的交换，以此类推） ‘以下实现数据交换，必须通过第三个变量实现两两数据交换 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next i Print "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上 面循环只有5次，只能输出5个元素。 For i = 1 To 10 Print ……; Next i End Sub 6-2 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, aver As Integer Dim max As Integer, imax As Integer Dim min As Integer, imin As Integer, sum As Integer Print "输入评委的评分" ‘①输入数组元素 For i = 1 To 10 a(i) =…… if a(i)<5 or a(i)>10 then ‘出错信息 ‘i控制变量作何处理？ endif
生化实验思考题参考答案[1].
生化实验讲义思考题参考答案 实验一淀粉的提取和水解 1、实验材料的选择依据是什么？ 答：生化实验的材料选择原则是含量高、来源丰富、制备工艺简单、成本低。从科研工作的角度选材，还应当注意具体的情况，如植物的季节性、地理位置和生长环境等，动物材料要注意其年龄、性别、营养状况、遗传素质和生理状态等，微生物材料要注意菌种的代数和培养基成分的差异等。 2、材料的破碎方法有哪些？ 答：(1) 机械的方法：包括研磨法、组织捣碎法； (2) 物理法：包括冻融法、超声波处理法、压榨法、冷然交替法等； (3) 化学与生物化学方法：包括溶胀法、酶解法、有机溶剂处理法等。 实验二总糖与还原糖的测定 1、碱性铜试剂法测定还原糖是直接滴定还是间接滴定？两种滴定方法各有何优缺点？ 答: 我们采用的是碱性铜试剂法中的间接法测定还原糖的含量。间接法的优点是操作简便、反应条件温和，缺点是在生成单质碘和转移反应产物的过程中容易引入误差；直接法的优点是反应原理直观易懂，缺点是操作较复杂，条件剧烈，不易控制。 实验五粗脂肪的定量测定─索氏提取法 （1）本实验制备得到的是粗脂肪，若要制备单一组分的脂类成分，可用什么方法进一步处理？ 答：硅胶柱层析，高效液相色谱，气相色谱等。 （2）本实验样品制备时烘干为什么要避免过热? 答：防止脂质被氧化。 实验六蛋白质等电点测定 1、在等电点时蛋白质溶解度为什么最低？ 请结合你的实验结果和蛋白质的胶体性质加以说明。
蛋白质是两性电解质，在等电点时分子所带净电荷为零，分子间因碰撞而聚沉倾向增加，溶液的粘度、渗透压减到最低，溶解度最低。结果中pH约为4.9时，溶液最浑浊，达到等电点。 答： 2、在分离蛋白质的时候，等电点有何实际应用价值？ 答: 在等电点时，蛋白质分子与分子间因碰撞而引起聚沉的倾向增加，所以处于等电点的蛋白质最容易沉淀。在分离蛋白质的时候，可以根据待分离的蛋白质的等电点，有目的地调节溶液的pH使该蛋白质沉淀下来，从而与其他处于溶液状态的杂质蛋白质分离。 实验七氨基酸的分离鉴定－纸层析法 1、如何用纸层析对氨基酸进行定性和定量的测定？ 答: 将标准的已知氨基酸与待测的未知氨基酸在同一张层析纸上进行纸层析，显色后根据斑点的Rf值，就可以对氨基酸进行初步的定性，因为同一个物质在同一条件下有相同的Rf 值；将点样的未知氨基酸溶液和标准氨基酸溶液的体积恒定，根据显色后的氨基酸斑点的面积与点样的氨基酸质量成正比的原理，通过计算斑点的面积可以对氨基酸溶液进行定量测定。 3、纸层析、柱层析、薄层层析、高效液相层析各有什么特点？ 答:
vb实验作业参考答案
VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)
作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width
江苏大学物理实验考试题库及答案完整版
大学物理实验A(II)考试复习题 1．有一个角游标尺，主尺的分度值是0.5°，主尺上29个分度与游标上30个分度等弧长，则这个角游标尺的最小分度值是多少？ 30和29格差1格，所以相当于把这1格分成30份。这1格为0.5°=30′，分成30份，每份1′。 2．电表量程为：0～75mA 的电流表，0～15V 的电压表，它们皆为0.5级，面板刻度均为150小格，每格代表多少？测量时记录有效数字位数应到小数点后第几位(分别以mA 、V 为记录单位)？为什么？ 电流表一格0.5mA 小数点后一位 因为误差0.4mA, 电压表一格0.1V 小数点后两位,因为误差0.08V ，估读一位 ***3．用示波器来测量一正弦信号的电压和频率，当“Y 轴衰减旋钮”放在“2V/div ”档，“时基扫描旋钮”放在“0.2ms/div ”档时，测得波形在垂直方向“峰－峰”值之间的间隔为8.6格，横向一个周期的间隔为9.8格，试求该正弦信号的有效电压和频率的值。 f=1/T=1÷(9.8×0.0002)=510.2 U 有效=8.6÷根号2=6.08V ***4.一只电流表的量程为10mA ，准确度等级为1.0级；另一只电流表量程为15mA ，准确度等级为0.5级。现要测量9mA 左右的电流，请分析选用哪只电流表较好。 量程为10mA ，准确度等级为1.0级的电流表最大误差0.1mA,量程为15mA ，准确度等级为0.5级,最大误差0.075mA,所以选用量程为15mA ，准确度等级为0.5级 5. 测定不规则固体密度时，，其中为0℃时水的密度，为被测物在空气中的称量质量，为被测物完全浸没于水中的称量质量，若被测物完全浸没于水中时表面附 有气泡，试分析实验结果 将偏大还是偏小？写出分析过程。 若被测物浸没在水中时附有气泡，则物体排开水的体积变大，物体所受到的浮力变大，则在水中称重结果将偏小，即m 比标准值稍小，可知0ρρm M M -=将偏小 6．放大法是一种基本的实验测量方法。试写出常用的四种放大法，并任意选择其中的两种方法，结合你所做过的大学物理实验，各举一例加以说明。 累计放大法 劈尖干涉测金属丝直径的实验中，为了测出相邻干涉条纹的间距 l ，不是仅对某一条纹测量，而是测量若干个条纹的总间距 Lnl ，这样可减少实验的误差。
VB程序设计教程第四版课后答案
vb 课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述 VB 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动 VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题
1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 1） (1+y/x)/(1-y/x) （2） x^3+3*x*y/(2-y) （3） sqr(abs(a*b-c^3)) （ 4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（ 1） 13 （ 2） 17 （3） #1999-11-12# （ 4） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub
分析实验实验报告思考题答案
分析实验实验报告思考题 答案 This manuscript was revised on November 28, 2020
实验一、NaOH和HCl标准溶液的配制及比较滴定 和NaOH标准溶液能否用直接配制法配制为什么 答：由于NaOH固体易吸收空气中的CO2和水分，浓HCl的浓度不确定，固配制HCl和NaOH标准溶液时不能用直接法。 2.配制酸碱标准溶液时，为什么用量筒量取HCl，用台秤称取NaOH（S）、而不用吸量管和分析天平 答：因吸量管用于标准量取需不同体积的量器，分析天平是用于准确称取一定量的精密衡量仪器。而HCl的浓度不定， NaOH易吸收CO2和水分，所以只需要用量筒量取，用台秤称取NaOH即可。 3.标准溶液装入滴定管之前，为什么要用该溶液润洗滴定管2～3次而锥形瓶是否也需用该溶液润洗或烘干，为什么 答：为了避免装入后的标准溶液被稀释，所以应用该标准溶液润洗滴管2～3次。而锥形瓶中有水也不会影响被测物质量的变化，所以锥形瓶不需先用标准溶液润洗或烘干。 4.滴定至临近终点时加入半滴的操作是怎样进行的 答：加入半滴的操作是:将酸式滴定管的旋塞稍稍转动或碱式滴定管的乳胶管稍微松动，使半滴溶液悬于管口，将锥形瓶内壁与管口接触，使液滴流出，并用洗瓶以纯水冲下。 实验二、NaOH溶液的配制及食用白醋总酸度的测定 1.如何计算称取基准物邻苯二甲酸氢钾或Na2CO3的质量范围称得太多或太少对标定有何影响 答：在滴定分析中，为了减少滴定管的读数误差，一般消耗标准溶液的体积应在20—25ml之间，称取基准物的大约质量应由下式求得： 如果基准物质称得太多，所配制的标准溶液较浓，则由一滴或半滴过量所造成的误差就较大。称取基准物质的量也不能太少，因为每一份基准物质都要经过二次称量，如果每次有±的误差，则每份就可能有±的误差。因此，称取基准物质的量不应少于，这样才能使称量的相对误差大于1‰。 2.溶解基准物质时加入20～30ml水，是用量筒量取，还是用移液管移取为什么 答：因为这时所加的水只是溶解基准物质，而不会影响基准物质的量。因此加入的水不需要非常准确。所以可以用量筒量取。 3.如果基准物未烘干，将使标准溶液浓度的标定结果偏高还是偏低 答：如果基准物质未烘干，将使标准溶液浓度的标定结果偏高。 4.用NaOH标准溶液标定HCl溶液浓度时，以酚酞作指示剂，用NaOH滴定HCl，若NaOH 溶液因贮存不当吸收了CO2，问对测定结果有何影响 答：用NaOH标准溶液标定HCl溶液浓度时，以酚酞作为指示剂，用NaOH滴定HCl，若NaOH溶液因贮存不当吸收了CO2，而形成Na2CO3，使NaOH溶液浓度降低，在滴定过程中虽然其中的Na2CO3按一定量的关系与HCl定量反应，但终点酚酞变色时还有一部分NaHCO3末反应，所以使测定结果偏高。 5.如果NaOH溶液吸收了空气中的CO2,对食用白醋总酸度的测定有何影响、为什么、 答：NaOH吸收了空气中的CO2，使标准溶液中的氢氧化钠浓度变小，用来滴定未知醋酸的浓度，会使测得的浓度偏大 6.本实验中为什么选用酚酞做指示剂其选择原则是什么根据选择原则选用其他指示剂可以吗如果可以请举例说明。
VB程序设计学习与实验指导答案
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.360docs.net/doc/a14692246.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
大学物理实验理论考试题及答案
一、 选择题（每题4分，打“ * ”者为必做，再另选做4题，并标出选做记号“ * ”，多做不给分，共40分） 1* 某间接测量量的测量公式为4323y x N -=，直接测量量x 和y 的标准误差为x ?和y ?,则间接测 量量N 的标准误差为？B N ?= ； 4 322 (2) 3339N x x y x x x ??-= =?=??， 333 4 (3) 2248y N y y y y x ??= =-?=-??- ( ) ( ) []2 1 2 3 2 2 89y x N y x ? +?=? 2*。 用螺旋测微计测量长度时，测量值=末读数—初读数（零读数），初读数是为了消除 ( A ) （A ）系统误差 （B ）偶然误差 （C ）过失误差 （D ）其他误差 3* 在计算铜块的密度ρ和不确定度ρ?时，计算器上分别显示为“8.35256”和“ 0.06532” 则结果表示为：（ C ） (A) ρ=（8.35256 ± 0.0653） （gcm – 3 ）， (B) ρ=（8.352 ± 0.065） （gcm – 3 ）， (C) ρ=（8.35 ± 0.07） （gcm – 3 ）， (D) ρ=（8.35256 ± 0.06532） （gcm – 3 ） (E) ρ=（20.083510? ± 0.07） （gcm – 3 ）， (F) ρ=（8.35 ± 0.06） （gcm – 3 ）， 4* 以下哪一点不符合随机误差统计规律分布特点 （ C ） （A ） 单峰性 （B ） 对称性 （C ） 无界性有界性 （D ） 抵偿性 5* 某螺旋测微计的示值误差为mm 004.0±，选出下列测量结果中正确的答案：（ B ） A ． 用它进行多次测量，其偶然误差为mm 004.0； B ． 用它作单次测量，可用mm 004.0±估算其误差； B = ?==? C. 用它测量时的相对误差为mm 004.0±。 100%E X δ= ?相对误差：无单位；=x X δ-绝对误差：有单位。 6* 在计算数据时，当有效数字位数确定以后，应将多余的数字舍去。设计算结果的有效数字取4位，
VB实验二 实验答案
实验报告二 实验目的 （1）掌握分支结构（if、if else、select case）语句 （2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句 （3）掌握循环嵌套结构 （4）掌握素数算法 （5）能综合运用循环控制结构解决较复杂的问题 实验内容 一、选择结构程序设计 【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求： ①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。 ②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。 ③密码输入时，屏幕上不能显示输入字符，以“*”代替。 ④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。 ⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。 图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用 实验结果： 【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】 【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求 纳税程序界面 掌握多分支if语句的使用，可自行用select语句改写。 实验结果： 【请将你的代码粘贴到下面】 【请将你的典型结果的截图粘贴到下面】 【实验3-3】猜数游戏 程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）
Vb上机实验答案
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.360docs.net/doc/a14692246.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()