呼伦贝尔学院计算机科学与技术学院
实 验 报 告
课程名称 __________________＿＿＿
班 级___________________＿＿＿
姓 名__________ 学号________ _
实验地点___________________＿＿＿
指导教师____________成绩_______＿
实验一 VB环境和创建一个简单的VB程序
一．实验目的：
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
图1.1 实验1-1 运行界面
三．实验结果：对象属性设置
四．实验思考：
1.标签label控件设置的属性代码有哪些？
Label1.Caption=“ 请输入姓名”
Label1.fontsize=24
Label1.fontbold=True
2.两个按钮所使用的是什么事件？代码分别是什么？
Private Sub Command1_Click()
Text1.text=“自己的姓名”
End Sub
Private Sub Command2_Click()
Text1.text=””
End Sub
实验二 简单程序设计数据类型及常用内部函数的简单应用
一．实验目的：
1．掌握Visual Basic数据类型的基本概念。
2．掌握用Visual Basic的各种运算符及表达式。
3．学习使用Visual Basic内部函数和数据输入、输出方法。
4．掌握命令按钮、文本框和标签。
5．设计顺序程序。
二．实验内容：
1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。
2.用三种除法运算（/ 、\、Mod）做计算。
要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
图2-1
图2-2
三．实验结果：对象属性设置
1.温度转换
2. 三种除法运算（/ 、\、Mod）做计算
四．实验思考：
1.温度转换中的Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim C!,F!
F=val(inputbox(“输入华氏温度”))
C=5/9*（F-32）
Msgbox “对应的摄氏温度为：” & C
End Sub
2. 用三种除法运算（/ 、\、Mod）做计算，说明三种除法的区别？
/：两个数相除
\：两个数整除
Mod：两个数相除，得余数
3. 三种除法运算（/ 、\、Mod）做计算，Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!,b!
a=val(text1.text)
b= val(text2.text)
text3.text=a/b
text4.text=a\b
text5.text=a mod b
End Sub
实验三 选择程序设计
一．实验目的：
1.掌握单分支与双分支条件语句的使用。
2.掌握多分支条件语句（If … Then … ElseIf）的使用。
3.掌握Select Case语句的使用及与多分支条件语句的区别。
4.熟练掌握时间过程的编写方法。
二．实验内容：
1.设计一个模拟简易计算器的程序，界面如图3-1所示。要求：①输入两个操作数和一个操作符，根据操作符决定所进行的计算；②如果除数为0，用msgbox提示出错信息；③用if语句和selecet case语句两种结构实现。
2.通过单选按钮和复选框控制文字的显示，程序窗口如图3-2所示。
图3-1
图3-2
三．实验结果：对象属性设置
1.模拟简易计算器
2.单选框与复选框
四．实验思考：
1. 模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
a = Val(Text1.Text)
b = Val(Text3.Text)
c = Text2.Text
Select Case c
Case “+”
Text4.Text = a + b
Case “-”
Text4.Text = a - b
Case “*”
Text4.Text = a * b
Case “/”
If b = 0 Then
MsgBox “除数为0.”
Else
Text4.Text = a / b
End If
End Select
End Sub
2. 模拟简易计算器Command2命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
a = Val(Text1.Text)
b = Val(Text3.Text)
c = Text2.Text
If c = “+” Then
Text4.Text = a + b
ElseIf c = “-” Then
Text4.Text = a - b
ElseIf c = “*” Then
Text4.Text = a * b
ElseIf c = “/” Then
If b = 0 Then
MsgBox “除数为0.”
else
Text4.Text = a / b
End If
End If
End Sub
3. 通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么
Private Sub Command1_Click()
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then
Label1.FontName = “华文仿宋”
ElseIf Option3.Value = True Then
Label1.FontName = “黑体”
Else
Label1.FontName = “楷体_GB2312”
End If
If Option5.Value = True Then
Label1.FontSize = 24
ElseIf Option6.Value = True Then
Label1.FontSize = 16
Else
Label1.FontSize = 8
End If
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
If Check3.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub
实验四 循环程序设计
一．实验目的：
1．理解循环程序设计的特点。
2．掌握常用的循环语句。
3．掌握常用的循环算法。
4．掌握图片框、图像框和计时器。
二．实验内容：
1．求
2．设计一条滚动的广告字幕。
三．实验结果：对象属性设置
1． 求和结果要求窗体载入时直接显示，设置窗体的某个属性。
2． 滚动字幕。
四．实验思考：
1．求和的窗体载入事件的程序代码是什么？
Private Sub Form_Load()
Dim k%, s!
s = 0
For k = 1 To 100
s = s + 1 / k
Next k
For k = 1 To 50
s = s + k
Next k
Print s
End Sub
2．滚动字幕的触发时钟控件的程序代码是什么？。
Private Sub Timer1_Timer()
If Label1.Left > Form1.Width Then
Label1.Left = 0
Else
Label1.Left = Label1.Left + 100
End If
End Sub
实验五 数组程序设计
一．实验目的：
1．熟练掌握固定数组。
2．掌握动态数组。
3．掌握列表框和组合框。
4．了解直线控件和形状控件。
二．实验内容：
1．设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生10个100到200之间的整数，在文本框中显示结果信息。界面如图5-1所示。
图5-1 窗体界面
三．实验结果：对象属性设置
四．实验思考：
1．数组应在过程内还是过程外定义，定义的语句是什么？
过程外定义
Dim a(10) As Integer
2．在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？
Private Sub Form_Load()
Dim i%
For i = 1 To 10
a(i) = Int(Rnd * 101 + 100)
List1.AddItem a(i)
Next i
End Sub
3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？
Private Sub Command1_Click()
Dim i As Integer, max%, min%, avg!
max = a(1)
min = a(1)
avg = 0
For i = 1 To 10
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
avg = avg + a(i)
Next i
avg = avg / 10
Text1.Text = max
Text2.Text = min
Text3.Text = avg
End Sub
实验六 过程程序设计
一．实验目的：
1．掌握子过程的定义和调用方法。
2．掌握函数过程的定义和调用方法。
3．理解作用域和生存期。
4. 掌握滚动条。
二．实验内容：
1.写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。要求从文本框中输入两个数。界面如图6-1所示。
图6-1
2.设计一个用滚动条改变图片背景色的程序。界面如图6-2所示
图6-2
三．实验结果：对象属性设置
1．结果要求单击命令按钮分别显示，设置对象的属性。
2．设置滚动条主要属性值。
四．实验思考：
1．单击子过程命令按钮，在文本框Text3中显示结果信息，子过程的程序代码是什么？
Private Sub Command1_Click()
Dim m As Integer, n As Integer, r As Integer
m = Text1.Text
n = Text2.Text
If m < n Then
t = m: m = n: n = t
End If
Call gys(m, n, r)
Text3.Text = r
End Sub
Private Sub gys(ByVal m%, ByVal n%, r%)
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
r = n
End Sub
2．单击函数过程命令按钮，在文本框Text4中显示结果信息，函数过程的程序代码是什么？
Private Sub Command2_Click()
Dim m As Integer, n As Integer, p As Integer
m = Text1.Text
n = Text2.Text
p = m * n
If m < n Then
t = m: m = n: n = t
End If
p = p / gbs(m, n)
Text4.Text = p
End Sub
Private Function gbs(m As Integer, n As Integer) As Integer
Dim r As Integer
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
gbs = n
End Function
3. 拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出HScroll1的事件过程。
Dim r As Integer, g As Integer, b As Integer
Private Sub HScroll1_Change()
r = HScroll1.Value
g = HScroll2.Value
b = HScroll3.Value
Text1.BackColor = RGB(r, g, b)
End Sub
实验七 界面设计
一．实验目的：
1．掌握多窗体程序设计的方法。
2．掌握下拉式菜单。
3．了解通用对话框。
二．实验内容：
1.编写密码登录系统。在窗体1输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自
行设计操作内容；如果密码不正确，弹出信息框，显示”用户名或密码错误，请重新输入”，回到
窗体1继续输入用户名和密码。密码输入有三次机会，超过三次就弹出第三个窗口，显示”对不起，
你不能使用该系统！”（注：凡是文字提示内容可自行设计，不要求与题目一样。三个窗体界面可参照图7-1 图7-2 图7-3所示。）
图7-1
图7-2
图7-3
2.利用通用对话框设计一个简单的文本编辑器，具有打开、保存、字体、颜色功能。要求用菜单实现，
有”文件”和”格式”两个菜单，”文件”菜单下包含”打开”、”保存”和”退出”三项。”格式”
菜单下包含”字体”和”颜色”两项，打开文件显示在文本框中。（窗体界面可参照图7-4 所示。）
图7-4
三．实验结果：对象属性设置
1．设置三个窗体的控件及其属性。
2．设置窗体控件及属性值。
四．实验思考：
1．下列程序为实验内容1的部分程序代码，单击确定命令按钮的程序代码是什么？
Private Sub Form_Load()
Text2.PasswordChar = “*”
Text2.Text = ““
Text1.Text = ““
End Sub
Private Sub Command1_Click()
Static i As Integer
i = i + 1
If i >= 3 Then
Form1.Hide
Form3.Show
Exit Sub
End If
If Text1.Text = “abc” And Text2.Text = “123” Then
Form1.Hide
Form2.Show
Else
MsgBox “用户名或密码错误，请重新输入”
Text2.Text = ““
Text1.Text = ““
Text1.setfoucs
End Sub
第二篇：VB编程实验报告答案 完整版
实验一：
一、选择
1.D 2.D 3.B 4.A 5.B
6.C 7.CD 8.D 9.D 10. BC
11. A 12.D 13. D 14. C 15. A
二、填空
1.windows 2. 中断 3.工具箱 4.代码 5.分类
6.form2.show 7. 出现语法错误 8. 错 9. 事件 10. 面向对象 11.工程文件结构 12. 工程 13. 设计程序代码 14. 双击窗体 15. C:\Program Files\Microsoft Visual Studio\VB98 或者 VB的安装文件夹 16.属性 17.方法 18.font 19. form_load()
20.对象
实验二：
一、选择
1.B 2.C 3. B 4.C 5.C
6.C 7.B 8.B 9.D 10. A
11. C 12.C 13. C 14. B 15. A
16.C 17.B 18.D 19.C 20. C
二、填空
1. Form_Click() 2. Interval、5000 3..vbp .frm
4.left top Height、Width twip 5.picture
6.load 7. locked 8. font Alignment
9. GotFocus() LostFocus() 10. 属性窗口 程序代码
实验三：
一、选择
1.A 2.BC 3.BC 4.A 5.A
6.A 7.BCD 8.D 9.B 10. B
11. B
二、判断题
不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、
1、abs(x+y)
2. (3+x*y)^2
3. (-b+sqr(b^2-4*a*c))/(2*a)
4.sin(30*3.14/180)+exp(2)
四、
1. int(rnd* 71+20) 或int(rnd* 71)+20
2. x<0 and y>0 or x>0 and y<0 或者x*y<0
3. x mod 3=0 or x mod 7=0
或 x/3=x\3 or x/7=x\7
4. x>=10 and x<20
5. x>="A" and x<="Z"
6. left(s,3)
实验四：
一、选择
1.C 2.D 3. C 4.D 5.A
6.D 7.B 8.B 9.A 10. C
二、填空
1. 48.71E-01, -4.8712 2. 关系、逻辑、算术
3. 900，100，mid(s,2,1)
4.m、1,2,3 、print m & "月是第二季度"、三、
1. X=4 y=13
2. 10
实验五
一、选择
B C B A C
二、填空
（1）for x=2 to 10 end select
s*(1-1/x)
(2) 1 t>1E-6
(3) j t
(4) 5 11 5
实验六
一、选择
B C C C D D D D C A
实验七
一、选择
1C 2C 3D 4A 5B 6D 7AB
二、填空
（1）n！
（2）1+1+2+3+4+……+n
（3）n是否是素数
（4）冒泡排序
（5）递归调用产生斐波那契数列
（6）求最大公约数和最小公倍数
9A 8A 10A
第八页编程
2-1
Private Sub Command1_Click()
Label3 = Val(Text1) * Val(Text2) End Sub
Private Sub Command2_Click()
Label3 = Val(Text1) / Val(Text2) End Sub
2-2
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("d:\tu1.jpg") End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("d:\tu2.jpg") End Sub
Private Sub Command3_Click()
Picture1.Visible = False
End Sub
2-5
Private Sub Form_Load()
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg") End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Image1_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub
第11页编程
2-3
Private Sub Command1_Click()
Dim x%, y%
x = Int(Rnd * 900 + 100)
Print "产生的随机数："; x
y = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100 Print "反序数："; Format(y, "000")
End Sub
Private Sub Command2_Click()
Dim x%, y As String
x = Int(Rnd * 900 + 100)
Print "产生的随机数："; x
y = Trim(Str(x))
Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1) End Sub
Private Sub Form_Load()
End Sub
2-4
Private Sub Command1_Click()
Dim m%, n%
Randomize
m = Val(Text1): n = Val(Text2)
x = Int(Rnd * (n - m + 1) + m)
y = Int(Rnd * (n - m + 1) + m)
z = Int(Rnd * (n - m + 1) + m)
Label3 = m & "到" & n & "之间的
Space(3) & y & Space(3) & z
End Sub
Private Sub Form_Load()
End Sub 3个随机数为: " & x &
2-5
Private Sub Command1_Click()
Label1.Caption = Date
End Sub
Private Sub Command2_Click()
Label2.Caption = Time
End Sub
Private Sub Command3_Click()
Label3.Caption = WeekdayName(Weekday(Date)) End Sub
Private Sub Form_Load()
End Sub
第十五页
2-1
方法一
Private Sub Command1_Click()
Dim x!, a!, aa%, b!, bb%, c!, cc$
x = Val(Text1)
a = x * 180 / 3.14
aa = Int(a)
b = (a - aa) * 60
bb = Int(b)
c = (b - bb) * 60
cc = Format(c, "#.000")
Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"
End Sub
方法二
Private Sub Command1_Click()
x = InputBox("请输入弧度数值", "弧度转换", 0)
xx = Val(x)
a = x * 180 / 3.14
aa = Int(a)
b = (a - aa) * 60
bb = Int(b)
c = (b - bb) * 60
cc = Format(c, "#.000")
MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒"
End Sub
2-2
Private Sub Command1_Click()
Dim x%
x = Val(Text1)
If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then
Label2 = Text1 & "年是闰年"
Else
Label2 = Text1 & "年不是闰年"
End If
End Sub
2-3
方法二
Private Sub Command1_Click()
Dim x%, y%, z%
x = InputBox("输入第一个数")
y = InputBox("输入第二个数") z = InputBox("输入第三个数") If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, z
End Sub
Private Sub Form_Load()
End Sub
方法一
Private Sub Command1_Click() Dim x%, y%, z%
x = Val(Text1)
y = Val(Text2)
z = Val(Text3)
If x > y Then t = x: x = y: y = t If y > z Then
t = y: y = z: z = t
If x > y Then
t = x: x = y: y = t
End If
End If
Label1 = x & Space(5) & y & Space(5) & z End Sub
2-4
方法一
Private Sub Command1_Click()
x = Val(InputBox("请输入上网时间:")) If x <> -1 Then
Select Case x
Case Is < 10
fei = 25
Case 10 To 50
fei = x * 2
Case 50 To 100
fei = x * 1.5
Case Is >= 100
fei = x * 1
End Select
MsgBox "上网费用为:" & fei & "元" End If
End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Form_Load()
End Sub
方法二
Private Sub Command1_Click()
Do
x = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 Then
Select Case x
Case Is < 10
fei = 25
Case 10 To 50
fei = x * 2
Case 50 To 100
fei = x * 1.5
Case Is >= 100
fei = x * 1
End Select
zongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为" Else
Exit Do
End If
Loop
End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Form_Load()
End Sub
2-5
第18页
2-3
Private Sub Command1_Click()
n = 0
Do
If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Do
n = n + 1
Loop
Print n
End Sub]
2-5
Private Sub Command1_Click()
x = Val(Text1)
y = x * 4
n = 0
Do While x <= y
x = x * (1 + 0.1)
n = n + 1
Print x
Loop
Print x, n
End Sub
2-6
Private Sub Command1_Click()
n = Val(InputBox("输入计算到第几项:", , 0)) For i = 1 To n
s = s + (-1) ^ (i + 1) * i
Next
Print n, s
End Sub
Private Sub Form_Load()-8
End Sub
2-8
Private Sub Command1_Click()
Dim s As Double, pi As Double
n = 1: s = 0
Do While 1 / (2 * n - 1) >= 0.0001
s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)
n = n + 1
Loop
pi = 4 * s
Print pi
End Sub
2-9
Private Sub Command1_Click()
For n = 100 To 999
k = Trim(Str(n))
If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print n
Next
End Sub
2-11
Private Sub Command1_Click()
s = 0: Max = 0: Min = 1000
For i = 1 To 20
Randomize
x = Int(Rnd * 50 + 51)
Print x;
If x > Max Then Max = x
If x < Min Then Min = x
s = s + x
Next i
aver = s / 20
Print "max="; Max, "min="; Min, "aver="; aver End Sub
Private Sub Form_Load()
End Sub