(完整版)《VB程序设计》实验报告
台州学院
《VB程序设计》实验报告
实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
Private Sub Command1_Click() Text1.Text = "欢迎使用VB！"
End Sub
Private Sub Command2_Click() Text1.Text = ""
End Sub
Private Sub Command3_Click() End
End Sub
实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求：
（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；
（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；
（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”
Private Sub Command1_Click() Label1.Caption = "你好，张三！"
Command1.Enabled = False End Sub
Private Sub Command2_Click()
Label1.Visible = False
Command3.Enabled = True
Command2.Enabled = False End Sub
Private Sub Command3_Click() Label1.Visible = True
Command2.Enabled = True
Command3.Enabled = False End Sub
实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、“右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。Private Sub Command1_Click() Label1.Left = Label1.Left - 100
End Sub
Private Sub Command2_Click() Label1.Left = Label1.Left + 100
End Sub
Private Sub Command3_Click() Label1.Top = Label1.Top - 100
End Sub
Private Sub Command4_Click() Label1.Top = Label1.Top + 100
End Sub
实验2.2 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。
Private Sub Command1_Click() Label1.Caption = "百位数：" + Left(Text1.Text, 1) + " 十位数：" + Mid(Text1.Text, 2, 1) + " 个位数：" + Right(Text1.Text, 1)
End Sub
实验2.3 设计一个程序，实现简单计算的功能、
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a + b
Label1.Caption = "+"
Text3.Text = c
End Sub
Private Sub Command2_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a - b
Label1.Caption = "-"
Text3.Text = c
End Sub
Private Sub Command3_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a * b
Label1.Caption = "*"
Text3.Text = c
End Sub
Private Sub Command4_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a / b
Label1.Caption = "/"
Text3.Text = c
End Sub
Private Sub Command5_Click() Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command6_Click() End
End Sub
实验2.4 设计一个程序，单击“输入”按钮可弹出一个输入对话框，提示用户输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”，然后将区号和电话号码在消息对话框中显示出来，运行界面如图2-4所示。
Private Sub Command1_Click() Dim c As String
c = InputBox("输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”：")
MsgBox ("区号：" + Left(c, 4) + Chr(13) + Chr(10) + "号码：" + Right(c, 8))
End Sub
实验 3.1 在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。
Private Sub Command1_Click() Dim a As Single, b As Single, m As Single
a = Text1.Text
b = Text2.Text
If a < b Then
m = a
Else
m = b
End If
MsgBox "较小值是" & m
End Sub
实验3.2 输入三个实数，计算其中的最大值，运行界面如图3-1所示。采用变量m来存放中间过程和结果Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, m As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a > b Then '将a，b的较大值存入m
m = a
Else
m = b
End If
If c > m Then m = c '再将m与c比较，得到最大值
Text4.Text = m
End Sub
注：比较a，b部分可以写成单行
If结构：
If a > b Then m = a Else m = b 实验 3.3 用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。
Private Sub Command1_Click()
Dim x As Single, y As Single x = InputBox("请输入x的值：",0)
If x > 10 Then
y = Sqr(x) + Sin(x)
ElseIf x < 10 Then
y = 2 * x ^ 3 + 6 '注意：乘号不能省略
Else
y = 0
End If
Print "y的值是" & y
End Sub
实验3.4 由键盘输入（1～7）范围内的整数，试编程将其转换为中文表示的星期几，运行界面如图3-2所示。
Private Sub Command1_Click() Dim n As Integer, w As String '注意：w的类型必须为String
n = Text1.Text
If n = 1 Then
w = "星期一"
ElseIf n = 2 Then
w = "星期二" ElseIf n = 3 Then
w = "星期三"
ElseIf n = 4 Then
w = "星期四"
ElseIf n = 5 Then
w = "星期五"
ElseIf n = 6 Then
w = "星期六"
ElseIf n = 7 Then
w = "星期日"
Else
w = "错误的输入"
End If
Text2.Text = w
End Sub
实验3.5（选做）由键盘输入3个数，试编程将它们的中间数打印出来
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, m As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a >= b And b >= c Then m = b
ElseIf a >= c And c >= b Then m = c
ElseIf b >= a And a >= c Then m = a
ElseIf b >= c And c >= a Then m = c
ElseIf c >= a And a >= b Then m = a
Else
m = b
End If
Text4.Text = m
End Sub
实验 4.1 编写过程Commandl_Click，显示对话框输入n（n>0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。Private Sub Command1_Click() Dim n As Integer, i As Integer, a As Integer, s As Integer
Randomize '初始化随机数 n = InputBox("请输入n：") For i = 1 To n
a = Int(Rnd * 90) + 10 '随机生成一个两位数存于变量a中 Print a; '显示在屏幕上，以便校对（实际编程可以省略） If a Mod 2 = 0 Then s = s + a '判断是否为偶数
Next i
Label1.Caption = s
End Sub
说明：随机生成两位数也可以用
a=(Int(Rnd*9)+1)*10+Int(Rnd*10 )
实验 4.2 编写过程Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer, n3 As Integer, CJ As Integer
For i = 1 To 10
CJ = InputBox("请输入成绩(一共10个成绩)：")
If CJ >= 85 And CJ <= 100 Then
n1 = n1 + 1
ElseIf CJ >= 60 And CJ <= 84 Then
n2 = n2 + 1
ElseIf CJ < 60 Then
n3 = n3 + 1
End If
Next i
Label1.Caption = n1
Label2.Caption = n2
Label3.Caption = n3
End Sub
实验 4.3 编制事件程序Command1_Click，执行该过程时输入n，并计算下列表达式的值，然后将计算结果在文本框控件Text1中显示。
Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Single
n = InputBox("请输入n：") s = 1
For i = 2 To n
s = s + i / ((i + 1) * (i + 2))
Next i
Text1.Text = s
End Sub
实验4.4 打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数。例如，153是一水仙花数，因为
程序1：用3个数字组合成百位数的办法，生成所有的三位数进行判断。
Dim a As Integer, b As Integer, c As Integer 'a代表百位数字，b十位，c各位
Dim s As Integer 's存放组合成的三位数
For a = 1 To 9 '百位数字取值范围是1-9
For b = 0 To 9 '十位数字取值范围是0-9
For c = 0 To 9 '个位数字取值范围是0-9
s = a * 100 + b * 10 + c '组合成的三位数
If s = a * a * a + b * b * b + c * c * c Then '判断是否水仙花数
Print s
End If
Next c
Next b
Next a
---
程序2：将百位数拆分出每一位，来判断是否水仙花数。
Dim i As Integer '存放循环取值的三位数
Dim a As Integer, b As Integer, c As Integer 'a存放百位数字，b十位，c各位
For i = 100 To 999
a = Int(i/100)
b = Int((i - a * 100) / 10)
c = i Mo
d 10
If i = a * a * a + b * b * b + c * c * c Then '判断是否水仙花数
Print i
End If
Next i
实验4.5 用近似公式求值，当时不再累加。
Private Sub Command1_Click()
Dim i As Integer, s As Single, t As Single
t = 1
Do
i = i + 1
s = s + 1 / i ^ 2
Loop Until 1 / i ^ 2 < 10 ^ -5
Print Sqr(6 * s)
End Sub
实验 4.6（选做）一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的
正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。
Private Sub Form_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer
m = InputBox("")
n = (m Mod 10) * 10 + m \ 10 For i = 10 To 99
j = (i Mod 10) * 10 + i \ 10
If i + m = j + n Then Print m, i
Exit For
End If
Next i
End Sub
实验5.1 输入10个数给x数组，找出其中值为最大的元素并将其与第一个元素互换，找出值最小的元素并将其与最后一个元素互换，其他元素不动。如
原来： 8，7，9，15，0，3，-8，19，31， 5 输出：31，7，9，15，0，3， 5，
19， 8，-8
Private Sub Form_Click()
Dim x(10) As Integer, i
As Integer
Dim Max As Integer, m As
Integer, Min As Integer, n As
Integer 'Max、m存最大值和最大
值位置；Min、n存最小值和最小值
位置
For i = 1 To 10
x(i) =
InputBox("请输入第" & i & "个数：
")
Print x(i); '显示在窗体Next i
Print '显示换行
Max = x(1)
Min = x(1)
m = 1
n = 1
For i = 1 To 10
If Max < x(i)
Then
Max = x(i) m = i
'记录最大值位置 End If
If Min > x(i)
Then
Min =
x(i) n = i
'记录最小值位置 End If
Next i
If m > 1 Then '如果最
大元素不是第一个，则与第一个交换 x(m) = x(1) x(1) = Max
End If
If n < 10 Then '如果最
小元素不是第10个，则与第10个交换 x(n) = x(10) x(10) = Min
End If
For i = 1 To 10 '在窗体上显示结果
Print x(i); Next i
End Sub
注意：如果第一个为最小元素，则结果出错，因为最小值被最大值调换了。
可以这么改：在最后一个If 前添加
一行“If n = 1 Then n = m”可以设定新的最小值所在位置。
==================== 实验5.2 编写事件过程
Command1_Click ，完成下列运算： （1）输入10个数到整型数组a ； （2）将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到
b(2)、...、a(10)各位数字和赋值到b(10)；
（3）在窗体上以一行输出a 数组各元素值（保持原输入值不变）； （4）在窗体上以一行输出b 数组各元素值。
Private Sub Command1_Click()
Dim a(10) As Integer,
b(10) As Integer, i As Integer '下面完成（1）：
For i = 1 To 10
a(i) =
InputBox("请输入第" & i & "个数：")
Next i
'（1）完成，下面完成（2）：
For i = 1 To 10
t = a(i) '取元素
While t > 0 '分解t的每一位，并加入到b(i)中
b(i) = b(i) + （t Mod 10) '取出t的个位数，加入b(i)中
t = t \ 10 ’t缩小十倍，去掉原来的个位
Wend
Next i
'（2）完成，下面完成（3）：
For i = 1 To 10
Print a(i);
Next i
'（3）完成，下面完成（4）：
For i = 1 To 10
Print b(i);
Next i
End Sub
====================
实验5.3 利用随机函数产生30个不同的三位正整数，打印出这30
个数，然后将它们按从大到小的次序排序，并打印出排序后的结果。（完全可以参照：书上实例，可以用冒泡排序法，也可以用选择排序法）
====================
实验5.4（选做）输入n后，再输入n个数a1,a2,…，an,按照下列公式计算s的值并显示。
公式1：v=(a1+a2+...+an)/n
公式2：
s=Sqr((a1-v)^2+(a2-v)^2+...+(a n-v)^2))/n
Private Sub Form_Click()
Dim a() As Single, n As Integer, i As Integer
Dim sum As Single, v As Single, s As Single
n = InputBox("请输入元素个数：") ReDim a(n) For i = 1 To n
a(i) =
InputBox("请输入第" & i & "个数：") Print a(i);
'显示在窗体上 Next i
Print '显示换行 '求出v ： For i = 1 To n sum = sum + a(i) Next i v = sum / n '求出s ： sum = 0
For i = 1 To 10
sum = sum + (a(i) - v) ^ 2 Next i
s = Sqr(sum) / n '显示结果：
Print v, s
End Sub
==================== 实验6.1 编写一个求三个数最大值的函数max(x ，y ，z)，然后调用此函数求下列表达式的值，首先在文本框中输入a,b,c 三个数，然后单击“计算”按钮，在文本框中输出表达式的值m 。表达式为：
'功能：返回x,y,z 的最大值
Function max(ByVal x As Single, ByVal y As Single, ByVal z As Single) As Single max = x
If max < y Then max = y If max < z Then max = z End Function
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, m As Single a = Text1.Text b = Text2.Text c = Text3.Text
m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c)) Text4.Text = m End Sub
====================
实验6.2 编一求素数的函数过程Prime(x)，若x是素数返回True，否则返回False。主调程序调用Prime(x)函数输出100之内的所有素数。
'功能：判断整数x是否素数，如果是返回True，否则返回False Function Prime(ByVal x As Integer) As Boolean
Dim i As Integer
If x < 2 Then Exit Function '当x<2返回False
For i = 2 To Sqr(x)
If x Mod i = 0 Then Exit Function '如果x被i整除，说明x不是素数，立刻返回
Next i
Prime = True 'x是素数
End Function
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 100
If Prime(i) Then Print i; Next i
End Sub
===================
实验6.3（选做）编一过程
Find(S1,S2)，用于在字符串S1中查找子串S2，并用消息框输出结果：未找到或找到的个数。（提示：利用Mid函数反复在字符串S1找
S2子串。）
'功能：在字符串S1中查找子串S2，返回找到的个数，未找到返回0 Function Find(S1 As String, S2 As String) As Integer
Dim i As Integer, j As Integer, L1 As Integer, L2 As Integer
L1 = Len(S1)
L2 = Len(S2)
For i = 1 To L1 - L2 + 1 If Mid(S1, i, 1) =
Left(S2, 1) Then '如果S1中第i个字母与S2的首字母是否相同，进行下面的判断
For j = 2 To L2 '判断S1中第i+1个开始的字母序列
与S2中第2个开始的字母序列是否相同
If Mid(S1, i + j - 1, 1) <> Mid(S2, j, 1) Then Exit For
Next j
If j > L2 Then Find = Find + 1 '找到相同的子串，子串计数+1
End If
Next i
End Function
Private Sub Form_Click()
Dim S1 As String, S2 As String, n As Integer
S1 = Input("请输入一个字符串：")
S2 = Input("请输入要查找的子串：")
n = Find(S1, S2)
If n > 0 Then
MsgBox "找到" & n & "个子串。"
Else
MsgBox "未找到。" End If
End Sub
实验7.1 设计一个字体修饰的程序，界面如图7-1所示。要求：框架1中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签Label1的文字内容为“Visual Basic 程序设计”，宋体，常规，三号；文字对齐方式为居中。
Private Sub Check1_Click()
If Check1.Value = 1 Then Label1.FontBold = True Else
Label1.FontBold = False End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Option1_Click() Label1.FontName = "宋体" End Sub
Private Sub Option2_Click() Label1.FontName = "楷体
_GB2312"
End Sub
实验7.2 设计一个点菜的程序，界面如图7-2所示。要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来。
Private Sub Check1_Click()
If Check1.Value = 0 Then Text1.Text = ""
Text1.Enabled = False Else
Text1.Enabled = True End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 0 Then Text2.Text = ""
Text2.Enabled = False Else
Text2.Enabled = True End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 0 Then Text3.Text = ""
Text3.Enabled = False Else
Text3.Enabled = True End If
End Sub
Private Sub Command1_Click() Dim s As Single
If Check1.Value = 1 Then s = 13 * Val(Text1.Text)
If Check2.Value = 1 Then s = s + 18 * Val(Text2.Text)
If Check3.Value = 1 Then s = s + 25 * Val(Text3.Text)
MsgBox "总价" & s & "元" End Sub
Private Sub Form_Load()
Text1.Text = ""
Text1.Enabled = False
Text2.Text = ""
Text2.Enabled = False
Text3.Text = ""
Text3.Enabled = False
End Sub
Private Sub
Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text2_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text3_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
实验7.3 设计一密码修改程序，要求：
1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。2）比较“新密码(N) ”和“新密码(S) ”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。
3）当单击“取消”按钮后，程序终止执行。
Private Sub Command1_Click() If Text1.Text = "admin" And Text2.Text = "admin" Then
If Text3.Text =
Text4.Text Then
MsgBox "密码修改成功。"
End
Else
MsgBox "输入的新密码不一致，请重新输入。"
End If
Else
MsgBox "用户名或密码错误，请重新输入。"
End If
End Sub
Private Sub Command2_Click() End
End Sub
实验7.4（选做）设计一个拨号盘的程序。界面如图7-4所示。要求：命令按钮数组构成数字键，单击数字键按钮，将拨号的内容显示在文本框Text1中；单击“重拨”按钮，再现原来的拨号过程；
（提示：再现过程由定时器实现）定时器的时间间隔为0.5秒；设置文本框最多接受10个字符。
Dim Number As String
Dim n As Integer
Private Sub
Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
End Sub
Private Sub Command2_Click() Number = Text1.Text
Text1.Text = ""
n = 0
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Text1.MaxLength = 10
End Sub
Private Sub Timer1_Timer()
If n < Len(Number) Then
n = n + 1
Text1.Text = Text1.Text & Mid(Number, n, 1)
Else
Timer1.Enabled = False End If
End Sub
实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single
Const pi = 3.
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = a + b + c
Picture1.Scale (-1.5,
1.5)-(1.5, -1.5) '设置图片框的坐标，左上角为(-1.5,1.5)，右下角为(1.5,-1.5)
Picture1.FillStyle = 0 '设置填充方式为实心（原来默认为1，透明）
Picture1.FillColor = vbRed Picture1.Circle (0, 0), 1, , -2 * pi, -2 * pi * a / d
Picture1.FillColor = vbGreen
Picture1.Circle (0, 0), 1, , -2 * pi * a / d, -2 * pi * (a + b) / d
Picture1.FillColor = vbBlue Picture1.Circle (0, 0), 1, , -2 * pi * (a + b) / d, -2 * pi End Sub
Private Sub
Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text3_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
实验8.2（选做）坐标系作图：设置如图8-2所示的运行界面，单击“坐标系”按钮，将图片框的坐标系设置为原点在中央，x轴[-10，10]，y轴[-10，10]，并画出该坐标系；单击“扇形”按钮，在图片框中画出一个圆心在原点，半径为5，圆周为红色，线宽为2，内部为绿色，起始角为30度，终止角为150度的扇形；单击“退出”按钮，结束程序运行。
Private Sub Command1_Click()
Picture1.Scale (-10,
10)-(10, -10) '设置图片框的
坐标系
Picture1.Line (-10, 0)-(10, 0)
Picture1.Line (0, 10)-(0,
-10)
Picture1.CurrentX = 0 'CurrentX, CurrentY 指示当前输
入位置
Picture1.CurrentY = -0.3
Picture1.Print "(0,0)"
End Sub
Private Sub Command2_Click()
Picture1.DrawWidth = 2 '画图的线粗为2
Picture1.FillColor = vbGreen
Picture1.FillStyle = 0 '填充方式为实心
Picture1.Circle (0, 0), 5, vbRed, -3.14159 / 6, -3.14159 * 5 / 6
End Sub
Private Sub Command3_Click() End
End Sub
实验9.2 某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：（1）用通用对话框控件Commondialog1选择该文件；
（2）在Label1(0)～Label1(1)显示总分最高的学生之学号、总分。
文本文件格式
“”,78,89
“”,83,79
……
Private Sub Form_Click()
Dim xh As String, cj1 As Integer, cj2 As Integer
Dim topxh As String, topcj As Integer
CommonDialog1.ShowOpen Open
CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, xh, cj1, cj2 If cj1 + cj2 > topcj Then topcj = cj1 + cj2 topxh = xh
End If
Loop
Close #1
Label1(0).Caption = topxh Label1(1).Caption = topcj End Sub
java实验报告完整版
实验报告 （计算机与信息工程学院实验中心） 学期： 2014-2015 课程名称：《Java程序设计实验》 班级：信息1202 姓名：方逸梅 学号： 31 指导老师：费玉莲
《Java程序设计》 独立实验教学安排 一、实验的教学方式、安排及实验环境 （一）教学方式 对照本课程的实验教材，实验一至实验十一，由教师提示实验原理、方法、步骤等内容，在教师的指导下，学生独立完成程序设计及调试工作。实验十二的内容由学生自行设计完成。 （二）教学安排 学时数：30课时 学时安排：每次实验3学时，从学期第五周开始，共十次上机实验。 （三）实验环境 实验环境为JDK 。 （四）具体安排 地点：信息大楼实验室。 辅导：每个班次一名辅导老师，原则上由任课老师担任。 登记：实验完成，由辅导老师登记实验纪录。 学生：实验做完，完成实验报告内容，并在学期末上交实验册。 老师：批改实验，成绩与平时成绩一起占期末的30%。 二、实验的具体内容和要求 见实验报告。
浙江工商大学 计算机与信息工程学院实验报告（1）日期：地点：成绩： ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 实验目的、实验原理和内容： 一、实验目的：熟悉Java开发环境及简单程序Java设计。 二、实验原理：SDK 的下载与安装，设置环境变量，安装java 虚拟机，使用Eclipse，编译Java 源程序，运行Java 程序。 三、实验内容及要求： 1．下载、安装并设置Java SDK 软件包。 2．熟悉Eclipse 编辑软件。 3．掌握运行Java 程序的步骤。 4．分别编写Application和Applet程序，显示字符串”Hello Java!欢迎使用！”。 要求：请同学把预备知识、步骤、程序框图、调试好的程序及存在的问题写在下面（不够可以附页）。 程序一 public class hello { public static void main(String[] args) { for(int i=0;i<=4;i++) { "Hello java! 欢迎使用!"); } }
文丘里流量计实验实验报告
文丘里流量计实验实验报告 实验日期：2011.12.22 一、实验目的： 1、学会使用测压管与U 型压差计的测量原理； 2、掌握文丘里流量计测量流量的方法和原理； 3、掌握文丘里流量计测定流量系数的方法。 二、实验原理： 流体流径文丘里管时，根据连续性方程和伯努利方程 Q vA =（常数） H g v p z =++22 γ（常数） 得不计阻力作用时的文丘里管过水能力关系式（1、2断面） h K p z p z g d d d Q ?=?????????? ??+-???? ? ?+???? ??-=γγπ221141222214 1 由于阻力的存在，实际通过的流量Q '恒小于Q 。引入一无量纲系数Q Q '=μ（μ称为流量系数），对计算所得的流量值进行修正。 h K Q Q ?=='μμ h K Q ?' =μ 在实验中，测得流量Q '和测压管水头差h ?，即可求得流量系数μ，μ一般在0.92～0.99之间。 上式中 K —仪器常数 g d d d K 214 141222???? ??-=π h ?—两断面测压管水头差 ??? ? ??+-???? ??+=?γγ2211p z p z h h ?用气—水多管压差计或电测仪测得，气—水多管压差计测量原理如下图所示。
1h ? 2h ? H 3 1H 2H 1z 2z 气—水多管压差计原理图 根据流体静力学方程 γγ22231311 p H h H h H H p = +?-+?--- 得 221121H h h H p p -?+?++=γγ 则 )()(222211212211γγγγp z H h h H p z p z p z +--?+?+++=??? ? ??+-???? ?? + 212211)()(h h H z H z ?+?++-+= 由图可知 )()(4321h h h h h -+-=? 式中，1h 、2h 、3h 、4h 分别为各测压管的液面读数。 三、实验数据记录及整理计算（附表） 文丘里流量计实验装置台号：2 d1=1.4cm d2=0.7cm 水温t=13.1℃ v=0.01226cm 2/s 水箱液面标尺值▽0=38cm 管轴线高程标尺值▽=35.7cm 实验数据记录表见附表 四、成果分析及小结： 经计算 K=17.60cm 2.5/s u=1.064 由实验计算结果看各组数据的相差较大，可以判断实验的精密度不高，实验 与理论值有偏差。误差来源主要有实验测量值的不准确，人为造成的主管因素较大。 五、问题讨论： 为什么计算流量Q 理论与实际流量Q 实际不相等？ 答：因为实际流体在流动过程中受到阻力作用、有能量损失（或水头损失），而计算流量是假设流体没有阻力时计算得到的，所以计算流量恒大于实际流量。
大学物理实验报告书(共6篇)
篇一：大学物理实验报告1 图片已关闭显示，点此查看 学生实验报告 学院：软件与通信工程学院课程名称：大学物理实验专业班级：通信工程111班姓名：陈益迪学号：0113489 学生实验报告 图片已关闭显示，点此查看 一、实验综述 1、实验目的及要求 1．了解游标卡尺、螺旋测微器的构造，掌握它们的原理，正确读数和使用方法。 2．学会直接测量、间接测量的不确定度的计算与数据处理。 3．学会物理天平的使用。 4．掌握测定固体密度的方法。 2 、实验仪器、设备或软件 1 50分度游标卡尺准确度=0.02mm 最大误差限△仪=±0.02mm 2 螺旋测微器准确度=0.01mm 最大误差△仪=±0.005mm 修正值=0.018mm 3 物理天平 tw-0.5 t天平感度0.02g 最大称量 500g △仪=±0.02g 估读到 0.01g 二、实验过程（实验步骤、记录、数据、分析） 1、实验内容与步骤 1、用游标卡尺测量圆环体的内外径直径和高各6次； 2、用螺旋测微器测钢线的直径7次； 3、用液体静力称衡法测石蜡的密度； 2、实验数据记录表 （1）测圆环体体积 图片已关闭显示，点此查看 （2）测钢丝直径 仪器名称：螺旋测微器(千分尺)准确度=0.01mm估读到0.001mm 图片已关闭显示，点此查看 图片已关闭显示，点此查看 测石蜡的密度 仪器名称：物理天平tw—0.5天平感量： 0.02 g 最大称量500 g 3、数据处理、分析 （1）、计算圆环体的体积 1直接量外径d的a类不确定度sd ,sd=○ sd=0.0161mm=0.02mm 2直接量外径d的b类不确定度u○ d. ud,= ud=0.0155mm=0.02mm 3直接量外径d的合成不确定度σσ○ σd=0.0223mm=0.2mm 4直接量外径d科学测量结果○ d=(21.19±0.02)mm d = 5直接量内径d的a类不确定度s○
数据库系统实验报告 实验三 数据控制(安全性)..
《数据库系统概论》实验报告 题目：实验三数据控制（安全性） 班级姓名学号日期2014年6月6日 一、实验目的 1.通过SQL对数据库进行安全性控制 2.完成教材中例题的上机练习 二、实验平台 微软SQL Server 2000或以上版本。 对于SQL Server 2000，使用查询分析器运行SQL语句，对于SQL Server 2005以上的版本，使用SQL Server Management Studio运行SQL语句。 三、实验内容和要求 使用SQL对数据进行安全性控制，包括授权和权力回收。 操作完成后，查看授权用户是否真正具有所授予的数据操作权利，在权力回收操作之后，用户是否确实丧失了所回收的数据操作权力。 在前几次实验中已经建立了实验数据库，继续在此数据库上进行实验所要求的各项操作。认真填写实验报告，记录所有的实验用例。 四、实验步骤 1.以管理员sa登录数据库，新建DB数据库，然后运行如下SQL语句，创建 我们前几次实验所建立的表。 CREATE TABLE course ( Cno char(4) NOT NULL, Cname char(40) DEFAULT NULL, Cpno char(4) DEFAULT NULL, Ccredit smallint DEFAULT NULL, PRIMARY KEY (Cno) ) ; -- -- 转存表中的数据'course' -- INSERT INTO course (Cno, Cname, Cpno, Ccredit) V ALUES ('1', '数据库', '5', 4); INSERT INTO course (Cno, Cname, Cpno, Ccredit) V ALUES ('2', '数学', NULL, 2);
化学实验报告完整版
化学实验报告 HUA system office room 【HUA16H-TTMS2A-HUAS8Q8-HUAH1688】
化学实验报告 化学是一门以实验为基础的学科。化学上的许多理论和定律都是从实验中发现归纳出来的。同时，化学理论的应用、评价也有赖于实验的探索和检验。虽然到了近代乃至现代，化学的飞速进步已经产生了各种新的研究方法，但是，实验方法仍然是化学不可缺少的研究手段。新课程改革将科学探究作为突破口，科学探究不但是一种重要的学习方式，同时也是中学化学课程的重要内容，它对发展学生的科学素养具有不可替代的作用。而化学实验是科学探究的重要形式。 用化学实验的方法学习化学，既符合化学的学科特点也符合学生学习化学的认识特点，是化学教学实施素质教育的基本手段。新课程标准提倡学生独立进行或合作开展化学实验研究。通过化学实验能激发学生的学习兴趣，帮助学生通过使用探究形成化学概念、理解化学基础理论、掌握化学知识和技能，培养学生的科学态度和价值观，帮助学生发展思维能力和训练实验技能，从而达到全面提高学生的科学素养的目的。 一、对新课程标准下的中学化学实验的认识 《普通高中化学课程标准》明确了高中化学课程的基本理念：立足于学生适应现代生活和未来发展的需要，着眼于提高21世纪公民的科学素养，构建“知识与技能”、“过程与方法”、“情感态度与价值观”相融合的高中化学课程目标体系。“知识与技能”即过去的“双基”；“过程与方法”是让学生掌握学习的方法，学会学习；“情感态度与价值观”是人文关怀的体现。所以新的课程理念的核心是“让学生在知识探索的过程中，在知识、学法、人文等方面得到发展。”其中第5条特别强调：“通过以化学实验为主的多种探究活动，使学生体验科学研究的过程，激发学习化学的兴趣，强化科学探究的意识，促进学习方式的转变，培养学生的创新精神和实践能力。”[1]高中化学课程由2个必修模
SQL 数据库实验报告3
一、实验内容 （1）掌握在SQL Server管理平台中对表进行插入、修改和删除数据操作的方法。 （2）掌握使用Transact-SQL语句对表进行插入、修改和删除数据操作的方法。 二、实验器材（设备、元器件） Window7操作系统，SQL Server软件 三、实验步骤 （1）启动SQL Server管理平台，在对象资源管理器中展开studentsdb数据库文件夹。 （2）在studentsdb数据库中包含有数据表student_info、curriculum、grade，这些表的数据结构如图所示在studentsdb数据库中包含有数据表student_info、curriculum、grade，这些表的数据结构如图所示 （3）在SQL Server管理平台中创建student_info、curriculum表。 学生基本情况表student_info 课程信息表curriculum
①启动SQL Server管理平台，在对象资源管理器中展开studentsdb数据库文件夹。 ②在SQL Server管理平台中创建student_info表。 ③在SQL Server管理平台中创建curriculum表。 （4）使用Transact-SQL语句CREATE TABLE在studentsdb数据库中创建表 学生成绩表grade
①新建查询，输入Transact-SQL语句，点击执行 ②出现如下界面，学生成绩表grade建立成功 （5）在SQL Server管理平台中，将student_info表的学号列设置为主键，非空。
（6）student_info、curriculum、grade表中的数据如图所示。 student_info的数据 curriculum的数据 grade的数据 （7）在SQL Server管理平台中为student_info表添加数据
实验三多态性实验报告
浙江理工大学信息学院 实验指导书 实验名称：类的多态性的实现学时安排：3 实验类别：设计性实验实验要求：1人1组 学号：姓名： ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 一、实验目的 1.理解重载运算符的意义。 2.掌握使用成员函数、友员函数重载运算符的特点。 3.掌握重载运算符函数的调用方法。 4.掌握动态联编的概念。 5.掌握虚函数和纯虚函数的使用方法。 二、实验原理介绍 设计性实验 具体原理请见实验内容和步骤 实现对抽象类的继承，通过operator函数调用的形式,实现运算符的重载 三、实验设备介绍 软件需求: windows或linux下的c++编译器 硬件需求: 对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以上的内存，200MB的自由硬盘空间、CD-ROM驱动器、能支持24位真彩色的显示卡、彩色显示器、打印机。 四、实验内容 某公司的员工有经理Manager、技术人员Technicist和营销人员SalsePerson，他们的薪金计算方法如下： 经理按月计酬，方法是：基本工资+奖金；技术人员按月计酬，方法是：基本工资；营销人员按月计酬，方法是：基本工资+销售利润*5%。 每类人员都有职工编号、姓名、性别、入职时间、职位、基本工资等数据；各类人员
使用统一接口get_pay()计算各类人员的月薪，重载<<运算符实现员工信息的输出。其次，设计一个统计并输出该公司员工当月薪金情况的报表类Report，该类提供insert接口向Report类的容器中添加员工信息，并提供print接口用于展示以职位为单位的每个员工的职工编号、姓名、性别、入职时间以及当月该员工的薪酬，并统计出该职位员工薪酬的最高值和最低值。为了提供更方便的查找功能，请为Report类重载[]运算符，下标值为职位，能根据职位信息查找出所有符合该职位的员工。在主函数中对实现的类进行测试，首先，创建各类人员对象，通过Report类的insert接口向报表中添加这些人员信息，然后通过Report类的print接口输出当月员工薪酬情况报表。存储员工对象的容器请选用合适的STL容器。 五程序清单 ormat("ddd")<<"\t"; cout<<(*it)->getbasicmoney()<<"\t"<<"\t"; cout<<(*it)->getpay(month) << endl; } } void Report::insert(Employee* p) { (p); } Report::~Report(){ list
(完整版)初中生物实验报告单.docx
实验报告单 实验时间年月日（星期）班级学生姓名 实验内容练习使用显微镜 说出显微镜的主要结构的名称和用途。 实验目的练习使用显微镜，学会规范操作显微镜。 尝试使用低倍镜观察到清晰的物像。 实验器材显微镜、写有“上”字的玻片、擦镜纸、纱布。 实验报告单实验时间年月日（星期）班级学 实验内容观察人和动物细胞的基本 学会制作人口腔上皮细胞临时装片。 实验目的用显微镜观察动物细胞的形态结构。 初步学会画细胞结构图。 显微镜、载玻片、盖玻片、0.9%生理盐水、碘液、 实验器材 吸水纸、其他动物细胞的永久装片。 实验步骤 1、取镜安放实 2、对光 3、放置玻片验 标本 步 4、观察 骤 实验步骤 5、收放 结 论 实验过程讨论分析 取显微镜时，左手握 显微镜是贵重仪器，双手取镜是为了。 住，右手托 安放显微镜略偏左的目的是： 住。安放显微镜应略 。 偏。 转动转换器，使低倍物镜对准当外界光源暗时，应选用光圈对准通光孔，同时选 孔。用反光镜。 把要观察的玻片放在 尽量使要观察的标本正对通光孔中央，这样物像容易 上，尽量使要观察的标本正对 在中找到。 中央。 转动粗准焦螺旋，使镜筒缓缓 眼睛应从侧面注视的目的是：避免 。 降，直至为 镜筒上升切忌太快，因为只有在 止，眼睛应从侧面注 位置上，物象才清晰。若镜筒上升太快，极易错过 视。 焦距。 时针转动粗准焦螺旋， 要将视野右下方的物像移到视野中央，则推移装片的 使镜简缓缓上升直到看清物像为 方向是。 止。再转动 “上”字装片在显微镜下呈图像。说明显微镜成像 准焦螺旋，使物像更清晰。 是。 实验过程讨论分析 实验后，把显微镜擦拭干净。 转动转换器使两个物镜。镜 筒降至处，反光镜放在 实 验 成 绩 实验步骤实验过程 为什 ①擦干净载玻片和盖玻片。 ②在载玻片中央，滴一滴 碎屑 实浓度一般是。 抹要均 1、制作人口腔 ③用消毒牙签的一端在口腔 侧壁轻刮几下。 验上皮细胞临时装避免 片。 ④把牙签上附有碎屑的一端， 放在载玻片的水滴中涂抹几下。 步⑤盖上盖玻片。 气泡与 ⑥在盖玻片一侧加在 骤 另一侧用吸水纸吸。 2、是微镜观察 人口腔上皮细胞 实验步骤实验过程讨论分 按生物绘图要求，画出人体口腔上皮细胞的结构 结图，并注明各部分结构的名称。实 验 成 论绩 指导教师： _________________实验教 指导教师： _________________实验教师：_______________
水力学实验报告思考题答案(想你所要)..
实验二不可压缩流体恒定流能量方程（伯诺利方程）实验 成果分析及讨论 1.测压管水头线和总水头线的变化趋势有何不同？为什么？ 测压管水头线（P-P）沿程可升可降，线坡J P可正可负。而总水头线（E-E）沿程只降不升，线坡J 恒为正，即J>0。这是因为水在流动过程中，依据一定边界条件，动能和势能可相互转换。测点5至测点7，管收缩，部分势能转换成动能，测压管水头线降低，Jp>0。测点7至测点9，管渐扩，部分动能又转换成势能，测压管水头线升高，J P<0。而据能量方程E1=E2+h w1-2, h w1-2为损失能量，是不可逆的，即恒有h w1-2>0，故E2恒小于E1，（E-E）线不可能回升。(E-E) 线下降的坡度越大，即J越大，表明单位流程上的水头损失越大，如图2.3的渐扩段和阀门等处，表明有较大的局部水头损失存在。 2.流量增加，测压管水头线有何变化？为什么？ 有如下二个变化： （1）流量增加，测压管水头线（P-P）总降落趋势更显著。这是因为测压管水头 ，任一断面起始时的总水头E及管道过流断面面积A为定值时，Q增大， 就增大，则必减小。而且随流量的增加阻力损失亦增大，管道任一过水断面上的总水头E相应减 小，故的减小更加显著。 （2）测压管水头线（P-P）的起落变化更为显著。 因为对于两个不同直径的相应过水断面有 式中为两个断面之间的损失系数。管中水流为紊流时，接近于常数，又管道断面为定值，故Q增大，H亦增大，（P-P）线的起落变化就更为显著。 3.测点2、3和测点10、11的测压管读数分别说明了什么问题？ 测点2、3位于均匀流断面（图2.2），测点高差0.7cm，H P=均为37.1cm（偶有毛细影响相差0.1mm）， 表明均匀流同断面上，其动水压强按静水压强规律分布。测点10、11在弯管的急变流断面上，测压管水头差为7.3cm，表明急变流断面上离心惯性力对测压管水头影响很大。由于能量方程推导时的限制条件之一是“质量力只有重力”，而在急变流断面上其质量力，除重力外，尚有离心惯性力，故急变流断面不能选作能量方程的计算断面。在绘制总水头线时，测点10、11应舍弃。 4.试问避免喉管（测点7）处形成真空有哪几种技术措施？分析改变作用水头（如抬高或降低水箱的水位）对喉管压强的影响情况。 下述几点措施有利于避免喉管（测点7）处真空的形成： （1）减小流量，（2）增大喉管管径，（3）降低相应管线的安装高程，（4）改变水箱中的液位高度。
数据库原理实验报告(3)实验三数据表的创建与管理实验
数据库原理实验报告(3)实验三数据表的创建与 管理实验 南京晓庄学院 《数据库原理与应用》 课程实验报告 实验三数据表的创建与管理实验 所在院(系): 数学与信息技术学院班级： 学号： 姓名： 1.实验目的 (1) 理解SQL Server 20xx常用数据类型和表结构的设计方法。理解主键、外键含义，掌握 建立各表相关属性间参照关系的方法。 (2) 熟练掌握使用SQL Server Management Studio图形工具创建表，删除表，修改表结构，插入及更新数据的方法。 (3) 熟练掌握使用Transact-SQL语句创建表，删除表，修改表结构，插入及更新数据的方 法。 2.实验要求 基本实验：
(1) 在实验二所创建的“TM”数据库中合理设计以下各表逻辑结构： 学生信息（学号，姓名，性别，籍贯，出生日期，民族，学院/系别号，班级号） 课程信息（课程号，课程名称，课程所属模块，课程类别，学分，学时） 学习信息（学号，课程号，考试成绩，平时成绩） 院系信息（院系号，院系名称） 要求确定各个字段的名称、类型、是否有默认值，是否主键等信息。 (2) 依据你所设计的表结构，使用SQL Server Management Studio图形工具在“TM”数据 库中创建学生信息表和课程信息表，并试验在图形界面中修改表结构，删除数据表，输入并更新数据的方法。 (3) 依据你所设计表结构，使用Transact-SQL语句创建学习信息表和院系信息表，并试验 使用T-SQL语句修改表结构，删除数据表，插入和更新数据的方法。 (4) 找出已创建各表之间相关属性的参照关系，并在相关表中增加引用完整性约束。 (5) 按要求完成实验报告。 扩展实验： (1) 在“TM”数据库中补充设计以下各表结构：
流体力学实验 文丘里实验报告单
文丘里流量计实验 一、实验目的和要求 1．通过测定流量系数，掌握文丘里流量计量测管道流量的技能； 2．掌握气一水多管压差计量测压差的技能； 3．通过实验与量纲分析，了解应用量纲分析与实验结台研究水力学问题的途径，进而掌握文丘里流量计水力特征。 二、实验原理 根据能量方程式和连续性方程式，可得不计阻力作用时的文丘里管过水能力关系式 h K p Z p Z g d d d q V ?=+-+-= )]/()/[(21 )( 422114 2 12 1 γγπ ‘ (6-9) 1)/(/ 24 4 212 1 -= d d g d K π )()(2 21 1γ γ p Z p Z h + -+ =? 式中：h ?为两断面测压管水头差,m 。 由于阻力的存在，实际通过的流量V q 恒小于' V q 。今引入一无量纲系数’ V V q q =μ (μ称为流量系数)，对计算所得的流量值进行修正。 即 h K q q V V ?=' =μμ (6-10) 另外由水静力学基本方程可得气—水多管压差计的h ?为 4321h h h h h -+-=? 三、实验装置 本实验的装置如图6-10 所示。 在文丘里流量计的两个测量断面上，分别有4个测压孔与相应的均压环连通，经均压环均压后的断面压强由气-水多管压差计9测量（亦可用电测仪量测）。
1.自循环供水器； 2.实验台 3.可控硅无级调速器 4.恒压水箱 5.有色水水管 6.稳水孔板 7.文丘里实验管段 8.测压计气阀 9.测压计10.滑尺11.多管压差计12.实验流量调节阀 图6—10文丘里流量计实验装置图 四、实验方法与步骤 1.测记各有关常数。 2.开电源开关，全关阀12，检核测管液面读数 4321h h h h -+-是否为0，不为0时，需查出原因并予以排除。 3.全开调节阀12检查各测管液面是否都处在滑尺读数范围内？否则，按下列步骤调节：拧开气阀8，将清水注入测管2、3，待2432≈=h h cm ，打开电源开关充水，待连通管无气泡，渐关阀12，并调开关3至5.2821≈=h h cm ，即速拧紧气阀8。 4.全开调节阀门，待水流稳定后，读取各潮压管的液面读数1h 、2h 、3h 、4h ，并用秒表、量筒测定流量。 5.逐次关小调节阀，改变流量7～9次，重复步骤4，注意调节阀门应缓慢。 6.把测量值记录在实验表格内，并进行有关计算。 7.如测管内液面波动时，应取时均值。 8.实验结束，需按步骤2校核压差计是否回零。 五、实验结果处理及分析 1.记录计算有关常数。 实验装置台号No____ =1d m ， =2d m ， 水温=t ℃， =ν m 2/s ， 水箱液面标尺值=?0 cm ， 管轴线高程标尺值=? cm 。 2 整理记录计算表6-9 6-10
实验三 打靶实验报告
实验三打靶实验报告 14级软件工程班候梅洁14047021 【目的要求】 物体间的碰撞是自然界中普遍存在的现象，单摆运动和平抛运动是运动学中的基本内容，能量守恒和动量守恒是力学中的重要概念，本实验研究球体的碰撞及碰撞前后的单摆运动和平抛运动，应用已学到的力学定律去解决打靶的实际问题；特别是从理论分析和实践结果的差别上，研究实验过程中能量损失的来源，自行设计实验来分析能量损失的相对大小，从而更深入地理解力学原理，提高分析问题解决问题的能力。 【仪器道具】 碰撞打靶实验仪、米尺、物理天平等。 碰撞打靶实验仪示意图：
的运动状态。测量两球的能量损失。 1.用天平测量被撞球(直径与材料均与碰撞相同）的质量m，并以此作为撞击球的质量。本实验经过重复测量得m=3 2.80g。 2.调整导轨水平（如果不水平可调节导轨上的两只调节螺钉） 3.采用仪器的初始值，使被撞球的高度为仪器可设定的最小值Y=16cm，分别设定5组撞击球高的值h 。然后每组中分别进行4次碰撞，测量4次靶心距离X，多次测量求平均值，并与用设定撞击球 高的值计算出的靶心距离理论值X 相比较。 （根据mgh 0=1/2mv2、X=vt和Y=1/2gt2可得X=Y 4h ） 4.计算E 1、E 2 ：E 1 =mgh ，E 2 =1/2mv2=mgX2/4Y
设定被撞球的高度Y=16cm一定时， 靶心距 离理论 值 X 0/cm 撞击球 高的理 论值 h0/cm 靶心距 离测量 值X/cm 靶心距 离测量 值的平 均值 /cm 理论能 量E 1 实际能 量E 2 能量损 失△E 1 2 3 4
大学计算机实验报告范例(完整版)
报告编号：YT-FS-1587-65 大学计算机实验报告范例 (完整版) After Completing The T ask According To The Original Plan, A Report Will Be Formed T o Reflect The Basic Situation Encountered, Reveal The Existing Problems And Put Forward Future Ideas. 互惠互利共同繁荣 Mutual Benefit And Common Prosperity
大学计算机实验报告范例(完整版) 备注：该报告书文本主要按照原定计划完成任务后形成报告，并反映遇到的基本情况、实际取得的成功和过程中取得的经验教训、揭露存在的问题以及提出今后设想。文档可根据实际情况进行修改和使用。 一、实验题目 文件和文件夹的管理 二、实验目的 1.熟悉Windows XP的文件系统。 2.掌握资源管理器的使用方法。 3.熟练掌握在Windows XP资源管理器下，对文件 （夹）的选择、新建、移动、复制、删除、重命名的 操作方法。 三、实验内容 1.启动资源管理器并利用资源管理器浏览文件。 2.在D盘创建文件夹 3.在所创建文件夹中创建Word文件。 4.对所创建文件或文件夹执行复制、移动、重命
名、删除、恢复、创建快捷方式及设置共享等操作。 四、实验步骤 （一）文件与文件夹管理 1.展开与折叠文件夹。右击开始，打开资源管理器，在左窗格中点击“+”展开，点击“—”折叠 2.改变文件显示方式。打开资源管理器/查看，选择缩略、列表，排列图标等 班/王帅、王鹏 3.建立树状目录。在D盘空白处右击，选择新建/文件夹，输入经济贸易学院，依次在新建文件夹中建立经济类1103 4..创建Word并保存。打开开始/程序/word，输入内容。选择文件/另存为，查找D盘/经济贸易学院/1103班/王帅，单击保存 5.复制、移动文件夹 6.重命名、删除、恢复。右击文件夹，选择重命名，输入新名字；选择删除，删除文件 7.创建文件的快捷方式。右击王帅文件夹，选择
数据库实验报告1
1.使用系统存储过程(sp_rename)将视图“V_SPJ”更名为“V_SPJ_三建”。（5分） exec sp_rename v_spj, v_spj_三建; 2.针对SPJ数据库，创建并执行如下的存储过程：（共计35分） (1)创建一个带参数的存储过程—jsearch。该存储过程的作用是：当任意输入一个工 程代号时，将返回供应该工程零件的供应商的名称(SNAME)和零件的名称(PNAME) 以及工程的名称(JNAME)。执行jsearch存储过程，查询“J1”对应的信息。（10 分） create proc jsearch @jno char(2) as select sname, pname, jname from s,p,j,spj where s.sno=spj.sno and p.pno=spj.pno and j.jno=spj.jno and spj.jno=@jno; 执行： exec jsearch 'J1'
(2)使用S表，为其创建一个加密的存储过程—jmsearch。该存储过程的作用是：当执 行该存储过程时，将返回北京供应商的所有信息。（10分） 创建加密存储过程： create proc jmsearch with encryption as select * from s where s.city='北京'; sp_helptext jmsearch; (3)使用系统存储过程sp_helptext查看jsearch, jmsearch的文本信息。（5分） 用系统存储过程sp_helptext查看jsearch： exec sp_help jsearch; exec sp_helptext jsearch;
实验三实验报告
实验三实验报告 1、简易计算器 （1）问题描述 由键盘输入一算术表达式，以中缀形式输入，试编写程序将中缀表达式转换成一棵二叉表达式树，通过对该的后序遍历求出计算表达式的值。 （2）基本要求 a．要求对输入的表达式能判断出是否合法。不合法要有错误提示信息。 b．将中缀表达式转换成二叉表达式树。 c．后序遍历求出表达式的值 （3）数据结构与算法分析 一棵表达式树，它的树叶是操作数，如常量或变量名字，而其他的结点为操作符。 a．建立表达式树。二叉树的存储可以用顺序存储也可用链式存储。当要创建二叉树时，先从表达式尾部向前搜索，找到第一个优先级最低的运算符，建立以这个运算符为数据元素的根结点。注意到表达式中此运算符的左边部分对应的二叉绔为根结点的左子树，右边部分对应的是二叉绔为根结点的右子树，根据地这一点，可用递归调用自己来完成对左右子树的构造。 b．求表达式的值。求值时同样可以采用递归的思想，对表达式进行后序遍历。先递归调用自己计算左子树所代表的表达式的值，再递归调用自己计算右子树代表的表达式的值，最后读取根结点中的运算符，以刚才得到的左右子树的结果作为操作数加以计算，得到最终结果。 （4）需求分析 程序运行后显示提示信息，输入任意四则运算表达式，倘若所输入的表达式不合法程序将报错。 输入四则运算表达式完毕，程序将输出运算结果。 测试用的表达式须是由+、-、*、/运算符，括号“(”、“)”与相应的运算数组成。运算数可以是无符号浮点型或整型，范围在0～65535。 （5）概要设计 二叉树的抽象数据类型定义 ADT BinaryTree{ 数据对象：表达式运算数{ num | 0< num < 65535 } 表达式运算符{ opr | + , - , * , / } 数据关系：由一个根结点和两棵互不相交的左右子树构成，且树中结点具有层次关系。根结点必须为运算符，叶子结点必须为运算数。 基本操作： InitBiTree(&T , &S) 初始条件：存在一四则运算前缀表达式S。 操作结果：根据前缀表达式S构造相应的二叉树T。 DestroyBiTree(&T) 初始条件：二叉树T已经存在。 操作结果：销毁T。 Value(&T) 初始条件：二叉树T已经存在。 操作结果：计算出T所表示的四则运算表达式的值并返回。
java实验报告完整版
实验报告 (计算机与信息工程学院实验中心) 学期: 2014-2015 课程名称: 《Java程序设计实验》 班级: 信息1202 姓名: 方逸梅 学号: 1212100231 指导老师: 费玉莲 《Java程序设计》 独立实验教学安排 一、实验的教学方式、安排及实验环境 (一)教学方式 对照本课程的实验教材,实验一至实验十一,由教师提示实验原理、方法、步骤等内容,在教师的指导下,学生独立完成程序设计及调试工作。实验十二的内容由学生自行设计完成。 (二)教学安排 学时数:30课时 学时安排:每次实验3学时,从学期第五周开始,共十次上机实验。 (三)实验环境 实验环境为JDK 1、6。
(四)具体安排 地点:信息大楼实验室。 辅导:每个班次一名辅导老师,原则上由任课老师担任。 登记:实验完成,由辅导老师登记实验纪录。 学生:实验做完,完成实验报告内容,并在学期末上交实验册。 老师:批改实验,成绩与平时成绩一起占期末的30%。 二、实验的具体内容与要求 见实验报告。
浙江工商大学 计算机与信息工程学院实验报告(1)日期:地点:成绩: ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━实验目的、实验原理与内容: 一、实验目的:熟悉Java开发环境及简单程序Java设计。 二、实验原理:SDK 的下载与安装,设置环境变量,安装java 虚拟机,使用Eclipse,编译Java 源程序,运行Java 程序。 三、实验内容及要求: 1. 下载、安装并设置Java SDK 软件包。 2. 熟悉Eclipse编辑软件。 3.掌握运行Java 程序的步骤。 4．分别编写Application与Applet程序,显示字符串”Hello Java!欢迎使用！”。 要求:请同学把预备知识、步骤、程序框图、调试好的程序及存在的问题写在下面(不够可以附页)。 程序一 public class hello { public static void main(String[] args) { for(int i=0;i<=4;i++) { System、out、println("Hello java! 欢迎使用!"); } } } 结果示意图1
数据库道理实验报告3
实验三数据表的创建与管理实验 所在院(系):数学与信息技术学院 班级： 学号： 姓名：
1.实验目的 (1)理解SQL Server 2005常用数据类型和表结构的设计方法。理解主键、外键含义，掌握 建立各表相关属性间参照关系的方法。 (2)熟练掌握使用SQL Server Management Studio图形工具创建表，删除表，修改表结构， 插入及更新数据的方法。 (3)熟练掌握使用Transact-SQL语句创建表，删除表，修改表结构，插入及更新数据的方 法。 2.实验要求 基本实验： (1)在实验二所创建的“TM”数据库中合理设计以下各表逻辑结构： 学生信息（学号，姓名，性别，籍贯，出生日期，民族，学院/系别号，班级号） 课程信息（课程号，课程名称，课程所属模块，课程类别，学分，学时） 学习信息（学号，课程号，考试成绩，平时成绩） 院系信息（院系号，院系名称） 要求确定各个字段的名称、类型、是否有默认值，是否主键等信息。 (2)依据你所设计的表结构，使用SQL Server Management Studio图形工具在“TM”数据 库中创建学生信息表和课程信息表，并试验在图形界面中修改表结构，删除数据表，输入并更新数据的方法。 (3)依据你所设计表结构，使用Transact-SQL语句创建学习信息表和院系信息表，并试验 使用T-SQL语句修改表结构，删除数据表，插入和更新数据的方法。 (4)找出已创建各表之间相关属性的参照关系，并在相关表中增加引用完整性约束。 (5)按要求完成实验报告。 扩展实验： (1)在“TM”数据库中补充设计以下各表结构： 教师信息（教师号，姓名，性别，出生日期，学历，学位，入职时间，职称，院系号） 授课信息（教师号，课程号，学期） 班级信息（班级号，班级名称，专业号） 专业信息（专业号，专业名称，学制，学位） 图书信息(图书号，书名，作者，出版社，出版日期，册数，价格，分类) 借书偏息（学号，图书号，借出时间，归还时间） 奖励信息（学号，奖励类型，奖励金额） (2)设计并实现各表之间相关属性的参照关系。 (3)使用SQL Management Studio图形界面或Transact-SQL在“TM”数据库中创建前述各 表，并插入部分数据，要求所插入数据合理有效。 3.实验步骤、结果和总结实验步骤/结果
流体力学实验文丘里实验报告单
文丘里流量计实验 一、实验目的与要求 1.了解文丘里流量计的构造与原理,掌握用文丘里流量计量测管道流量的方法与应用 气一水压差计测压差的技术。掌握测定文丘里流量计的流量系数μ的方法。 2.通过测量与计算,掌握用方格纸绘制Q-Δh 与Re-μ曲线(分别取Δh 、μ为纵坐标 的方法) 3.比较体积法与文丘里流量计测流量的精度。 二、实验原理 根据能量方程式与连续性方程式,可得不计阻力作用时的文丘里流量计理论流量计算式: h K p Z p Z g d d d Q ?=+-+-= )]/()/[(21)(4'221142 12 1γγπ 1)/(/24 42121-= d d g d K π )()(2 21 1γ γp Z p Z h + -+ =? 式中:h ?为两断面测压管水头差,m 。d ?、d ?为喉部收缩前后管道的内径。 由于阻力的存在,实际通过的流量Q 恒小于'Q 。今引入流量系数’ Q =μ (μ称为流量系数),对计算所得的流量值进行修正。 即: h K Q Q ?=' =μμ 另外由水静力学基本方程可得气—水多管压差计的h ?为 4321h h h h h -+-=? 三、实验装置 本实验的装置如图所示。 在文丘里流量计的两个测量断面上,分别有4个测压孔与相应的均压环连通,经均压环均压后的断面压强由气-水多管压差计9测量(亦可用电测仪量测)。
1、自循环供水器; 2、实验台 3、可控硅无级调速器 4、恒压水箱 5、有色水水管 6、稳水孔板 7、文丘里实验管段8、测压计气阀9、测压计10、滑尺11、多管压差计12、实验流量调节阀 文丘里流量计实验装置图 四、实验步骤 1、打开无极调速器向恒压水箱中注水至满,全关流量调节阀12,检核测管液面读数 4321h h h h -+-就是否为0,不为0时,需查出原因并予以排除。 2、全开调节阀12检查各测管液面就是否都处在滑尺读数范围内。否则,按下列步骤调节:拧开气阀8,将清水注入测管2、3,待2432≈=h h cm,打开电源开关充水,待连通管无气泡,渐关阀12,并调开关3至5.2821≈=h h cm,即速拧紧气阀8。 3、全开调节阀门,待水流稳定后,读取各潮压管的液面读数1h 、2h 、3h 、4h ,并用秒表、量筒测定流量。 4、逐次关小调节阀,改变流量7～9次,重复步骤(4),注意调节阀门应缓慢。 5、把测量值记录在实验表格内,并进行有关计算。 6、如测管内液面波动时,应取时均值。 7、实验结束,需按步骤2校核压差计就是否回零。 五、实验结果处理及分析 1、记录计算有关常数。 =1d m, =2d m, 水温=t ℃, =ν m 2/s, 水箱液面标尺值=?0 cm, 管轴线高程标尺值=? cm 。 2、实验数据记录 记录表
实验三选数据选择器实验报告
实验三选数据选择器实 验报告 集团公司文件内部编码：（TTT-UUTT-MMYB-URTTY-ITTLTY-
实验三、八选一数据选择器 一、实验目的： 1.熟悉Quartus II6.0软件的使用和FPGA设计流程 2.用VHDL语言进行八选一数据选择器的设计 二、实验步骤： 一．建立文件夹：在D盘“xingming”的文件夹下建立一个名为“choice8”的文件夹。 二．建立新工程 1.双击桌面上Quartus II6.0 的图标，启动该软件。 2.通过File => New Project Wizard… 菜单命令启动新项目向导。在 随后弹出的对话框上点击Next按钮，在 What is the working directory for this project 栏目中设定新项目所使用的路径：D:\xingming\choice8；在 What is the name of this project 栏目中输入新项目的名字:choice8，点击 Next 按钮。在下一个出现的对话框中继续点击Next,跳过这步。 3.为本项目指定目标器件：选择器件系列为ACEX1K ,选择具体器件为 EP1K30TC144-3 1728 24576 ,再点击Next。在弹出的下一对话框中继续点击Next ，最后确认相关设置，点击Finish按钮，完成新项目创建。 三．设计输入 1.建立一个VHDL文件。通过 File => New 菜单命令，在随后弹出的对 话框中选择 VHDL File选项，点击 OK 按钮。通过 File => Save As 命令，将其保存，并加入到项目中。 2.在VHDL界面输入8选1数据选择器程序，然后通过File => Save
实验报告要求和格式完整版
编号：TQC/K633 实验报告要求和格式完整 版 Daily description of the work content, achievements, and shortcomings, and finally put forward reasonable suggestions or new direction of efforts, so that the overall process does not deviate from the direction, continue to move towards the established goal. 【适用信息传递/研究经验/相互监督/自我提升等场景】 编写：________________________ 审核：________________________ 时间：________________________ 部门：________________________
实验报告要求和格式完整版 下载说明：本报告资料适合用于日常描述工作内容，取得的成绩，以及不足，最后提出合理化的建议或者新的努力方向，使整体流程的进度信息实现快速共享，并使整体过程不偏离方向，继续朝既定的目标前行。可直接应用日常文档制作，也可以根据实际需要对其进行修改。 实验报告要求 1. 认真完成实验报告，报告要用中国海洋大学实验报告纸，作图要用坐标纸。 2. 报告中的电路图、光路图、表格必须用直尺画，数据使用钢笔、圆珠笔不得使用铅笔。 3. 应在理解的基础上简单扼要的书写实验原理，不提倡大段抄书。 4. 应结合具体的实验现象和问题进行讨论。 实验报告格式