《Visual Basic面向对象程序设计〉
第一部分实验大纲
一、学时学分
总学时：116 总学分：6 实验时数：32 实训课时（课程设计）：20
二、实验的地位、作用和目的
实验课是Visual Basic 面向对象程序设计的重要实践环节。通过实验，使学生加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用，通过简单练习和综合实验，发挥学生的想象力和创新能力。
三、实验对象
本实验开设对象为计算机系的信息与管理专业、网络与多媒体专业及组装与维护专业的专科学生，本实验为必修课程。
四、基本原理及课程简介
《Visual Basic 面向对象程序设计》以Visual Basic 6.0中文版为语言背景，通过实验进一步理解程序设计的基本知识，掌握可视化程序设计的基本思想以及会用VB开发工具设计一些实用的应用程序。在本专业的教学计划中，它是一门专业主干课，本课程在教学内容方面着重基本理论、基本知识和基本方法，在培养实践能力方面着重设计构思和设计技能的基本训练，熟练上机操作能力和分析能力，其重点在于学生的编程能力、理论联系实际的能力、程序的调试能力及创新能力。
本实验课程共开设12个实验项目。
五、实验方式与基本要求
实验方式：
1、由任课教师讲清实验的基本目的、方法及要求
2、实验前必须制定好上机步骤，弄清实验目的；
3、实验每人每次一台计算机，每次均为2小时；
实验要求：
1.了解VB“事件驱动”的编程机制。掌握程序设计语言的基本知识，包括数据类型，表达式，数组等。
2. 掌握结构化程序设计的基本知识，包括顺序结构，选择结构，循环结构，过程的程
序设计方法及文件的操作。
3. 掌握面向对象程序设计的概念与方法，具有一定的程序开发能力。
4. 掌握程序的调试方法，具有处理程序错误的能力。
５、要求学生掌握可视化程序设计的基本思想及利用vb设计一些使用的应用程序。
六、考核与报告
1、实验时应将各种问题与结果记录下来，实验内容存入软盘或硬盘；
2、任课教师对每次记录都要进行检查、分析、登记；
3、课程总成绩应为理论考核与实验登记的综合；
其中实验课程成绩占30%，理论课成绩占70%。
实验安排建议
实验一熟悉vb的开发环境、程序设计的基本步骤
[实验目的]
1. 学习怎样启动和退出VB。
2. 掌握建立、编辑、运行一个VB简单例子。
[实验内容]
1. 启动和退出VB
分别用以下几种方式启动VB:
(1) 用”开始”菜单中的”程序”命令。
(2) 用“我的电脑”。
(3) 用“开始”菜单中的“运行”命令。
(4) 用上面建立的快捷方式。
分别用以下几种方式退出VB：
（1）单击主窗口右上角的“关闭”按钮。
（2）执行“文件”菜单中的“退出”命令。
（3）按Alt+Q键。
2. 利用VB集成开发环境编写简单的VB应用程序
（1）按所示界面设计一个留言薄。要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的
内容不能修改。单击“清除”按钮则清楚两个文本框中的内
容。
（2）按所示界面设计一个加法器。
单击“相加”结果显示在“和”中，单击“清除”按钮则清楚三个文本框中的内容。单击“退出”则退出当前的运行环境。
实验二基本控件的使用
[实验目的]
1. 了解创建应用程序的基本步骤
2. 掌握常用控件的常用属性和事件
[实验内容]
1.产生如图所示的电话面板,模仿打电话的过程,按"*"键可清屏，
在“显示”文本框中显示出你所输入的电话号码（使用Print
方法），以便核对。
部分代码提示：
Private Sub Command11_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + Command2.Caption
End Sub
2.制作一个如图所示的登录窗体，当密码不正确时使用MsgBox
函数给出相应的错误提示信息！
主要代码如下：
Private Sub Command1_Click()
If Text1.Text = Text2.Text And Text1.Text <> "" Then MsgBox "密码正确，欢迎进入！！", vbOKOnly, "登陆窗口" Form1.Hide
Else
MsgBox "密码不正确，重新输入", vbOKOnly, "登陆窗口" Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
实验三程序设计结构练习
[实验目的]
1.掌握VB中标准数据类型声明、使用方法。
2.掌握常用内部函数的使用。
3.会使用判定结构和选择结构编制应用程序。
[实验内容]
1.顺序结构（向文本中输入信息）
Private Sub Command1_Click()
Dim i As String * 18
i = InputBox$("请输入文本信息，最多可以输入18个字符", "输入
", "*****", 3000, 3000)
Label1.Caption = i
End Sub
Private Sub Command2_Click()
Dim t As String
t = MsgBox("你真的要退出吗?", 4 + 48 + 0, "退出警告")
If t = 6 Then
End
End If
End Sub
2.选择结构
编制程序，要求输入成绩计算某个学生奖学金的等级，以三门功课成绩M1,M2,M3为评奖依据。标准如下：
一等奖: 符合下列条件之一的可获一等奖：
1) 平均分大于95分者。
2) 有两门成绩是100分，且第三门功课成绩不低于80
分者。
二等奖: 符合下列条件之一的可获二等奖：
1) 平均分大于90分者。
2) 有一门成绩是100分，且另两门功课成绩不低于75
分者。
三等奖: 各门功课成绩不低于70分者。
符合条件者就高不就低，只能获得高的那一项奖学金
窗体如下：：
Private Sub Command1_Click()
Text1 = "": Text2 = "": Text3 = "": Text1.SetFocus: Label1 = "":
Command1.Visible = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub
Private Sub Text1_LostFocus()
Dim p1!, p2!, p3!, p!
p1 = Val(Text1): p2 = Val(Text2): p3 = Val(Text3): p = (p1 + p2 + p3) / 3
If Not IsNumeric(Text1) Or p1 > 100 Or p1 < 0 Then
MsgBox "输入的数据错误，请重新输入！", 46, "提示"
Text1 = "" ': Text1.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub
Private Sub Text2_LostFocus()
p1 = Val(Text1): p2 = Val(Text2): p3 = Val(Text3): p = (p1 + p2 + p3) / 3
If Not IsNumeric(Text2) Or p2 > 100 Or p2 < 0 Then
MsgBox "输入的数据错误，请重新输入！", 46, "提示"
Text2 = "" ': Text2.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim t1 As Boolean, t2 As Boolean, t3 As Boolean, t4 As Boolean, t5 As Boolean, t6 As Boolean
t1 = (p1 = 100 And p2 = 100 And p3 >= 80): t2 = (p2 = 100 And p3 = 100 And p1 >= 80)
t3 = (p1 = 100 And p3 = 100 And p2 >= 80): t4 = (p1 = 100 And p2 >= 75 And p3 >= 75)
t5 = (p2 = 100 And p1 >= 75 And p3 >= 75): t6 = (p3 = 100 And p2 >= 75 And p1 >= 75)
p1 = Val(Text1): p2 = Val(Text2): p3 = Val(Text3): p = (p1 + p2 + p3) / 3
If KeyAscii = 13 Then
If Not IsNumeric(Text3) Or p3 > 100 Or p3 < 0 Then
MsgBox "输入的数据错误，请重新输入！", 46, "提示"
Text3 = "": Text3.SetFocus
ElseIf t1 Or t2 Or t3 Or p > 95 Then Label1 = "恭喜你！你获得了一等奖学金，请再接再厉！": Command1.Visible = True ElseIf t4 Or t5 Or t6 Or p > 90 Then Label1 = "恭喜你！你获得了二等奖学金，请再接再厉！": Command1.Visible = True ElseIf p1 > 70 And p2 > 70 And p3 > 70 Then Label1 = "恭喜
你！你获得了三等奖学金，请再接再厉！": Command1.Visible = True
Else: Label1 = "对不起，你不够获奖学金资格，努力吧！": Command1.Visible = True
End If
End If
End Sub
3.循环结构
计算水仙花个数（一个数的各位的立方和等于这个数本身的数）
提示代码如下：
Private Sub Form_Activate()
Dim a%, b%, c%
a = 1:
b = 0:
c = 0
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
x = 100 * a + 10 * b + c
If x = a ^ 3 + b ^ 3 + c ^ 3 Then
Picture1.Print x & "=" & (a ^ 3) & "+" & (b ^ 3) & "+" & (c ^ 3) End If
Next
Next
Next
End Sub
实验四常用控件
[实验目的]
1. 图片框、图像框、单选钮、复选钮、组合框、列表框的练习和比较
2. 掌握定时器、框架、滚动条的应用
[实验内容]
1.设计程序，利用图片框的属性和方法加载、清除图形。如图所
示
2.定时器
利用定时器显示当前系统时间，同时用图像框显示三个笑脸。
实验五过程的运用
[实验目的]
1.理解子过程的概念，掌握子过程的创建和调用
2.掌握子过程的创建及调用，了解传值和传地址的区别
[实验内容]
1.成绩评定
设计一个程序，根据输入的成绩在评定结果文本框中显示出相应的评定信息。窗体如下图所显示（该例子中过程采用传值形式）。
：
Private Sub shuru(x!)
x = Val(Text1)
End Sub
Public Sub panduan(x!)
Select Case x
Case Is < 0: Text2 = "数据错误"
Case 0
Case Is < 60: Text2 = "不及格"
Case 60 To 100: Text2 = "及格"
Case Else
Text2 = "数据错误"
End Select
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
Private Sub Command1_Click()
Call shuru(x!)
panduan x!
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii
Case 46, 8, 48 To 57
Case 13: Command1.Value = True
Case Else: KeyAscii = 0
End Select
End Sub
实验六菜单程序设计
[实验目的]
1.熟练掌握窗口菜单的规划、设计和使用方法
2.掌握弹出式菜单设计和使用方法
3.多媒体控件的使用
[实验内容]
1．设计一个菜单系统，如下图所示。并在此基础上设计一个弹出式菜单，要求用鼠标右击窗体时能选择调用相应
的菜单项！
2．设计一个类似windows95/98中的媒体播放器，以便能播放多种媒体文件。如下所示：
相应代码提示如下：
Private Sub Command1_Click() '退出程序
https://www.doczj.com/doc/417845164.html,mand = "close" '关闭播放器设备
MMControl1.Shareable = True '允许别人使用播放器
End
End Sub
Private Sub Form_DblClick() '双击退出
https://www.doczj.com/doc/417845164.html,mand = "close" '关闭播放器
MMControl1.Shareable = True '允许别人使用播放器
End
End Sub
Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放时其他人稍等
End Sub
Private Sub Form_Unload(Cancel As Integer) '关闭窗口
https://www.doczj.com/doc/417845164.html,mand = "close" '关闭播放器
MMControl1.Shareable = True '允许别人使用播放器
End Sub
Private Sub Option1_Click()
https://www.doczj.com/doc/417845164.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "waveaudio" 'Wav音频格式
MMControl1.FileName = "e:\music\one.wav" '文件夹中的文件
https://www.doczj.com/doc/417845164.html,mand = "open" '打开设备
https://www.doczj.com/doc/417845164.html,mand = "play" '播放文件
End Sub
Private Sub Option2_Click()
https://www.doczj.com/doc/417845164.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "e:\music\two.mp3" '当前文件夹中的文件
https://www.doczj.com/doc/417845164.html,mand = "open" '打开设备
https://www.doczj.com/doc/417845164.html,mand = "play" '也可以点击播放按钮
End Sub
Private Sub Option3_Click()
https://www.doczj.com/doc/417845164.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName = "e:\music\filemove.avi" '文件夹中的文件https://www.doczj.com/doc/417845164.html,mand = "open" '打开设备
https://www.doczj.com/doc/417845164.html,mand = "play" '也可以点击播放按钮
End Sub
实验七文件管理
[实验目的]
1. 掌握文件管理控件的使用
2. 掌握顺序文件和随即文件的打开、关闭和读写操作。
[实验内容]
1．三种文件管理控件的使用练习（显示指定的文件目录中的文件，并可以根据文件类型分类显示）
Private Sub Command1_Click()
Filvbxx.Pattern = txtftype.Text '改变文件列表矿的显示模式
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '保持与驱动器的同步
End Sub
Private Sub dirvbxx_Change()
Filvbxx.Path = dirvbxx.Path '保持与目录列表框同步
ChDir dirvbxx.Path '将操作系统的当前目录改变到dirvbxx所指定的目录
Filvbxx.Pattern = txtftype.Text
End Sub
Private Sub Drvbxx_Change()
dirvbxx.Path = Drvbxx.Drive '保持与驱动器的同步
End Sub
Private Sub Filvbxx_Click()
txtname.Text = dirvbxx.Path & Filvbxx.FileName '显示选择的文件及其路径
End Sub
Private Sub Form_Load()
Drvbxx.Drive = "d:" '设置启动时的磁盘与目录
dirvbxx.Path = "d:\zxn"
End Sub
2.
完整的程序代码提示如下：
Public lastRec%, CurRec%
Dim p As Boolean, Cj As stuCj
Option Explicit
Private Sub cmdAdd_Click()
lastRec = lastRec + 1
CurRec = lastRec
Lbl(3) = CurRec
Lbl(9) = ""
For i = 0 To 5
Txt(i).Enabled = Tru e: p = True: Txt(i) = ""
Next
cmdPre.Enabled = True
cmdNext.Enabled = True
cmdCount.Enabled = True
p = False
Txt(0).SetFocus
End Sub
Private Sub CmdBack_Click()
Close #1
' Kill "student.txt"
Unload Me
Unload Frm10_6
End Sub
Private Sub cmdCount_Click()
Frm10_6.Show (0)
End Sub
Private Sub cmdNext_Click()
If CurRec < lastRec Then
CurRec = CurRec + 1
Lbl(3) = CurRec
Get #1, CurRec, Cj
p = True
Txt(0) = Cj.sName
Txt(1) = Cj.sGrade
For i = 2 To 5
Txt(i) = Cj.sMark(i)
Next
p = False
Lbl(9) = Cj.sSum
Else
MsgBox "这已经是最后一条记录了", vbOKOnly, "提示" End If
End Sub
Private Sub cmdPre_Click()
If CurRec > 1 Then
CurRec = CurRec - 1
Lbl(3) = CurRec
Get #1, CurRec, Cj
p = True
Txt(0) = Cj.sName
Txt(1) = Cj.sGrade
For i = 2 To 5
Txt(i) = Cj.sMark(i)
Next
p = False
Lbl(9) = Cj.sSum
Else
MsgBox "这已经是第一条记录了", vbOKOnly, "提示" End If
End Sub
Private Sub Form_Load()
Open "student.txt" For Random As #1
lastRec = LOF(1) / Len(Cj)
If lastRec = 0 Then
p = True
For i = 0 To 5
Txt(i) = "": Txt(i).Enabled = False
Next
p = False
Lbl(3) = "无记录"
Lbl(9) = ""
cmdPre.Enabled = False
cmdNext.Enabled = False
cmdCount.Enabled = False
Else
CurRec = 1
Lbl(3) = CurRec
Get #1, CurRec, Cj
p = True
Txt(0) = Cj.sName
Txt(1) = Cj.sGrade
For i = 2 To 5
Txt(i) = Cj.sMark(i)
Next
p = False
第一章 答案： 一、单项选择题 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
VB实验指导与练习题实验部分的参考答案: 实验4 4-1: 2*pi*r Pi*r*r 4-3: chr(64+n) 4-4: x mod 10 x \10 mod 10 x\100 4-5: mid(s,i,1)=Lcase(t) 实验5 5-1: a+b+c+d Sum/4 5-2: (4*h-f)/2 (f-2*h)/2 5-4: sec\3600\24 Sec mod (1& 24*3600) mod 3600 mod 60 5-5: 0、5*g*t*t+v0*t 实验6 6-1: left(text1,text1、selstart) & text2 & right(text1, len(text1) – text1、selstart) 6-2: timer1、enabled=true Timer1、enabled=false
6-3: shape2、left=shape2、left +d *50 6-5: a & check2、caption 6-6: list1、listcount -1 6-7: 1000 List1、list(i) 6-8: text1 实验7 7-1: n=n-3500 n-y text1、setfocus 7-2: a=a & c 7-3: sum +j Sum=1250 7-4: m=n n=r r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1 S2 & mid (s1,k,1) S2=”” 7-7: 2 n\factor
factor+1 7-8: n 7-9: sum=0 s & i & “ +” list1、clear 7-10: mid(text1, i, 1) 实验8 8-1:a(i)=a(16-i) a(16-i)=temp 8-2: a(i-2)+a(i+1)+1 Text2 & vbcrlf 8-3: picture1、print i=1 to 5 sum=sum+a(I,j) next i sum+a(i,j)+a(i,6-i) not ( i>1 and i<5 or j>1 and j<5 ) 8-4: text1 & str(a(i)) If a(i) < min then min=a(i) 8-5: (a(i)\10) * (b(i)\10) “sum=”;sum
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
Matlab实验指导书 河北大学电子信息工程学院 2004年1月
目录 MATLAB实验教学计划 (2) 实验一MATLAB基本操作 (3) 实验二MATLAB图形系统......................................................... . (5) 实验三 MATLAB程序设计 (6) 实验四 MATLAB基本应用领域 (7) 实验五设计性综合实验1---数字信道编译码 (14) 实验六设计性综合实验2---fir滤波器设计................................. . (16) 2
MATLAB实验教学计划 指导教师：郑晓昆薛文玲王竹毅学时数：12学时周4学时2次实验，共3周6次实验，第7—9教学周，每次实验2学时 所用仪器设备：MATLAB7.0实验软件系统 实验指导书：Matlab实验指导书 自编 实验参考书：
实验教材实验一 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) ③
计算机程序设计基础（VB）实验指导书主编：刘华伟 单位：信息工程学院
实验报告要求：每次实验要求写实验报告（word电子版），包括实验名称，实验目的，实验内容，所有主要界面（需把界面图贴上,用截图工具）和所有源程序（将代码复制粘贴到word报告里），每次上机课后的周五理论课对上机题目进行讲解，每次上机实验报告要求在上机内结束前提交，如果没做完最迟当天内提交给教师信箱458007844@https://www.doczj.com/doc/417845164.html, 只能用自己的邮箱在这个时间段提交。 提交格式：邮件名和word文件名均为： 公141班张三000000第1次作业 第一次上机课要做实验指导书中前两次实验的内容，将两次上机的实验报告都写在同一个word文档里提交。以后每次上机均做一次实验的内容。
实验一VB6.0环境和程序设计初步 一、实验目的 1．学会使用VB开发环境。 2．学会建立、编辑、运行一个简单的VB应用程序的全过程。 3．掌握变量的概念及使用。 4．通过程序实践结合课堂例子，理解类、对象的概念，掌握属性、事件、方法的应用。 二、实验内容： 1．熟悉VB开发环境的标题栏、菜单栏、工具栏、窗体窗口、属性窗口、工程资源管理器窗口、代码窗口、立即窗口、窗体布局窗口、工具箱窗口的位置以及用法。（此题不需要写实验报告） 2．编写一个四则运算的功能，在界面上输入两个数，并设置加减乘除四个按钮，点击不同的按钮，显示不同的运算结果。 步骤： （1）建立用户界面的对象。 （2）对象属性的设置。 （3）对象事件过程及编程。 （4）保存和运行程序
实验二选择结构程序设计 一、实验目的 1．掌握逻辑表达式的正确书写形式。 2．掌握单分支与双分支语句的使用。 3．掌握多分支条件语句的使用。 4．掌握情况语句的使用与多分支条件语句的区别。 二、实验内容 1．P272实验C的1，2题，界面按自己思路设计。其中第1题要求用两种方法实现。 2．在界面上输入4个数，求最大值和最小值并显示，要求用两种方法实现。提示：先编写求最大值的程序，然后再编写求最小值的程序。 3．输入三门功课的成绩，评定某个学生是否得奖学金。 评奖学金标准如下： 平均分大于95分或两门100分第三门不低于80分。
实验平台操作及注意事项 一、实验平台基本操作方法 在使用实验平台进行实验时，要按照标准的规范进行实验操作，一般的实验流程包含以下几个步骤： （1）将实验台面整理干净整洁，设备摆放到对应的位置开始进行实验； （2）打开实验箱箱盖，或取下箱盖放置到合适的位置；（不同的实验箱盖要注意不能混淆）； （3）简单检查实验箱是否有明显的损坏；如有损坏，需告知老师，以便判断是否可以进行正常实验； （4）根据当前需要进行的实验内容，由老师或自行更换实验模块；更换模块需要专用的钥匙，请妥善保管； （5）为实验箱加电，并开启电源；开启电源过程中，需要注意观察实验箱电源指示灯（每个模块均有电源指示），如果指示灯状态异常，需要关闭电源，检查原因； （6）实验箱开启过程需要大约20s时间，开启后可以开始进行实验； （7）实验内容等选择需用鼠标操作； （8）在实验过程中，可以打开置物槽，选择对应的配件完成实验； （9）实验完成后，关闭电源，整理实验配件并放置到置物槽中； （10）盖上箱盖，将实验箱还原到位。 二、实验平台系统功能介绍 实验平台系统分为八大功能板块，分别为实验入门、实验项目、低频信号源、高频信号源、频率计、扫频仪、高频故障（实验测评）、系统设置。
1.设备入门 设备入门分为四类，分别是平台基本操作、平台标识说明、实验注意事项、平台特点概述。 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
第五章 实验5-1 知识点 1．数组与普通变量得区别在于数组是一组具有相同类型的有序变量的集合；而变量之间相互独立，没有内在的联系，并与其所在的位置无关。 2．VB中可以通过Dim,private,public,static这几个语句定义数组，他们之间得区别在于所定义的数组作用域不同。Static语句用于过程中，定义静态数组；private语句用于模块的通用声明处，定义模块级数组；public语句用于标准模块的声明处，定义全局数组；Dim 语句既可以用于过程中，定义局部数组，也可以用于模块的通用声明处，定义模块级数组。3．语句option base 1 Dim b(3) as integer 定义了3个数组元素，分别是b(1)，b(2)和b(3)，这两个b(3)的区别在于前者是定义数组使用的数组说明符，后者是数组元素b(3). 4. VB中的二维数组在存放的时候是按列_存储的。 5.常见的数组函数及语句有哪些？他们的功能各是什么？ Lbound函数，用于返回数组某维的维下界的值； Ubound函数，用于返回数组某维的维下界的值； Erase语句，功能有二，一是重新初始化固定大小数组的元素，二是释放动态数组的存储空间 Option base n 语句，用于说明数组的维下界从n开始计数 For-each-next语句，用于数组或对象集合中的每个元素重复执行一组语句。 6.For-each-next语句与For-next语句的区别在于前者专门用于数组或对象集合中的每个元素，而后者多用于普通变量。 课前练习 1.①13 ②6 ③15 ④105 ⑤9 ⑥44 2．option base语句和redim语句。 3.33 4. 12 5 实验5-2 知识点 1.数组元素 2.数组元素的本质是变量，但是与之不同的是数组元素是有序的，通过改变下标就可以访问不同的数组元素。 3.数组元素赋值的方法有： ①用赋值语句给数组元素赋值②通过循环逐一给数组元素赋值③用inputbox函数给数组元素赋值④用array函数给数组赋值 课前练习 1. D 2.LSP HXF BGJ 3. 1 5 9
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
************************ MATLAB上机指导书 ************************ 昆明理工大学机电学院 彭用新 2015年3月
实验三符号计算 一、操作部分：在命令窗口执行命令完成以下运算，记录运算结果。 1.findsym：帮助我们获取系统定义的自变量 f= sym('sin(a*x+b*y)'); findsym(f) 2.numden（获取分子分母）, sym2poly,（获取多项式时系数）poly2sym（根据多项式系 数获得符号表达式） [n,d]=numden(sym('x*x+y')+sym('y^2')) p=sym('2*x^3+3*x^2+4'); sym2poly(p) x=[2,3,0,4]; poly2sym(x) 3. collect ：合并同类项；expand：展开多项式；horner: 分解成嵌套形式；factor：因式 分解；simplify: 对表达式化简 syms x y; collect(x^2*y+y*x-x^2-2*x) collect((x+y)*(x^2+y^2+1), y) syms x y; expand((x-2)*(x-4)) syms x;horner(x^3-6*x^2+11*x-6) syms x;factor(x^3-6*x^2+11*x-6) syms x;simplify((x^2+5*x+6)/(x+2)) 4. finverse ：求得符号函数的反函数。 syms x y; finverse(1/tan(x)) f= x^2+y; finverse(f,y) finverse(f) https://www.doczj.com/doc/417845164.html,pose 求符号函数的复合函数 syms x y; f = 1/(1 + x^2); g = sin(y); compose(f,g) 6. subs :表达式替换。 syms a b;subs(a+b,a,4)
实验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
程序代码 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub 初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口： 自测2 单击还原之后窗口：
Private Sub Command1_Click() Label1 = "visual basic" Text1 = " 程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = " 程序设计题" End Sub 初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = + 30 End Sub = + 20 = 1 初始窗口：
单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4 程序代码 Private Sub Command1_Click() = "VB 学习" Print"简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口：单击显示之后的窗口：单击清除之后的窗口： 自测题5 单击退出之后的窗口：
(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！ ．．．．．．) 实验一：第二章 ⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。 Private sub command1_click() Label1.visible=false Command1.caption=label1.caption End sub ⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框， 名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。 上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub ⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名 称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。
Labview虚拟仪器实验指 导书 宋爱娟 2009．2
目录 实验一 Labview的认识性实验（2学时） (3) 实验二 Labview的基本操作（2学时） (4) 实验三数据操作实验（2学时） (6) 实验四 labview结构在编程中的应用（4学时） (10) 实验五 labview中字符串、数组、簇的实验（2学时） (16) 实验六图表和图形实验（4学时） (23) 实验七专业测试系统的搭建实验（2学时） (28) 实验八创建子VI（2学时） (32) 实验九人机界面交互设计实验（2学时） (35) 实验十波形编辑及频谱分析实验（3学时） (39) 实验十一救援用LED灯实验（4学时选作） (41)
实验一Labview的认识性实验 一、目的 1、熟悉Labview的基本组件 2、熟悉Labview的前面板、程序框图、快捷和下拉菜单 3、掌握Labview的选项板及在线帮助 二、环境 1、WINDOWS2000环境（将显示属性中的分辨率设置为1024*768） 2、Labview8.6软件 三、内容与步骤： [练习1] 启动Labview，查找Labview示例 步骤： 1.打开文件VibrationAnalysis.vi(c:/ProgramFiles/National Instruments/LabVIEW 8.6/examples/apps/demos.llb) 2.单击按钮Run运行该程序 3.改变采样速率 4.改变采样速度，验证希望速度与实际速度是否一致 [练习2] 熟悉前面板与程序框图的切换及观察程序流的执行过程 1.在练习1的基础上，利用快捷方式将前面板切换到程序框图。 2.单击高亮度显示按钮观察代码的数据流向。 [练习3] 熟练打开运行一个VI 1.练习查找所定VI，另用帮助查找含有FILTER的示例，找到其中的Express Filter.VI程序双击打开 2.运行该程序 3.改变仿真频率、仿真幅度和仿真噪声幅度观察指示器的值与图中值是否一致。 4.观察数据流执行过程 [练习4]练习查找运行 1.将上面程序在框图窗口双击程序框图中的Simulate Signal,将正弦信号改为其他信号之后运行程序。 2.熟练查找其他程序并运行 [练习5] 1.在Labview启动界面中选择新建选项 2.打开空VI或VI模板 3.任意打开VI模板并运行。
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
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/417845164.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#
实验一材料硬度测定(综合性) 一、实验内容 1.金属布氏硬度实验。 2.金属洛氏硬度实验。 二、实验目的及要求 该实验的目的是使学生熟悉金属布氏、洛氏、维氏硬度计的使用方法，巩固硬度试验方法的理论知识，掌握各种硬度计的结构原理、操作方法及注意事项。要求学生具有踏实的理论知识，同时也具有严谨、一丝不苟的作风。 三、实验条件及要求 （一）实验条件 1.布氏硬度计、洛氏硬度计和显维硬度计，读数放大镜，标准硬度块。 2.推荐试样用材：灰铸铁、经调质处理的45钢、淬火低温回火的T10钢。 （二）要求 制备试样过程中不得使试样因冷、热加工影响试验面原来的硬度。试验面应为光滑的平面，不应有氧化皮及污物，测布氏硬度、洛氏硬度时试验面的粗糙度Ra≤0.8μm。 试验时，应保证试验力垂直作用于试验面上，保证试验面不产生变形、挠曲和振动。试验应在10～35℃温度范围内进行。 不同硬度试验对试样及试验操作尚有具体要求。 四、实验相关知识点 1.硬度试验原理。 2.对试样的要求。 3.硬度试验方法的选择。 4.各种硬度计的结构原理、操作方法及注意事项。 5.试验数据的获得。 6.不同硬度试验方法的关系。 五、实验实施步骤 （一）金属布氏硬度试验 金属布氏硬度值是单位压痕表面积所承受的外力。
1.试验规范的选择 布氏硬度试验时应根据测试材料的硬度和试样厚度选择试验规范，即压头材料与直径、F/D2值、试验力F及试验力保持时间t。 （1）压头材料与直径的选择压头为硬质合金球。 球体直径D的选择按GB/T231.1-2009《金属布氏硬度试验方法》有五种，即10mm、5mm、2.5mm、2mm和1mm。压头直径可根据试样厚度选择，见压头直径、压痕平均直径与试样最小厚度关系表。选择压头直径时，在试样厚度允许的条件下尽量选用10mm球体作压头，以便得到较大的压痕，使所测的硬度值具有代表性和重复性，从而更充分地反映出金属的平均硬度。 （2）F/D2、试验力F及试验力的选择 F/D2比值有七种：30、15、10、5、2.5、1.25和1，其值主要根据试验材料的种类及其硬度范围来选择。 球体直径D和F/D2比值确定后，试验力F也就确定了。 试验须保证压痕直径d在（0.24～0.6）D范围内，试样厚度为压痕深度的10倍以上。 （3）试验力保持时间t的选择试验力保持时间t主要根据试样材料的硬度来选择。黑色金属：t＝10～15s；有色金属：t＝（30±2）s；<35HBW的材料：t＝（60±2）s。 2.布氏硬度试验过程 （1）试验前，应使用与试样硬度相近的二等标准布氏硬度块对硬度计进行校对，即在硬度块上不同部位测试五个点的硬度，取其平均值，其值不超过标准硬度块硬度值的±3％方可进行试验，否则应对硬度计进行调整、修理。 （2）接通电源，打开电源开关。将试样安放在试验机工作台上，转动手轮使工作台慢慢上升，使试样与压头紧密接触，直至手轮与螺母产生相对滑动。同时应保证试验过程中试验力作用方向与试验面垂直，试样不发生倾斜、移动、振动。 启动按钮开关，在施力指示灯亮的同时迅速拧紧压紧螺钉，使圆盘随曲柄一起回转，直至自动反向转动为止，施力指示灯熄灭。从施力指示灯亮到熄灭的时间为试验力保持时间，转动手轮取下试样。 （3）用读数显微镜在两个互相垂直的方向测量出试样表面的压痕直径d1 。
实验报告二 实验目的 （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语句实现）