zucc-vb实验报告
浙江大学城市学院实验报告
课程名称VB程序设计基础与实验
实验项目名称实验一、程序设计初步
实验成绩指导老师（签名）日期
一. 实验目的和要求
1. 熟悉VB开发环境，掌握VB程序设计步骤。
2. 理解基本概念：工程、窗体、属性、事件、方法。
3. 熟悉立即窗口的使用。
4. 掌握Print、赋值语句的正确书写规则。
二. 实验内容和原理
【练习1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个VB实验”；双击窗体时，清除窗体上显示的所有信息。研究下面的代码段，考虑应填入什么内容？
Private Sub Form_Click
Print”这是我的第一个VB实验”
End Sub
Private Sub Form_DblClick
Cls
End Sub
上机实践
调试运行以上程序，在同一文件夹下保存工程MyProject.vbp和窗体文件MyProject.frm。
【练习1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶书”和“黑体”，当程序运行后，在文本框中输入“欢迎光临VB世界”，是用粗体、18号、宋体、红色字显示(通过窗体加载事件完成)；单击“隶书”按钮文本框中显示内容的字体是隶书，单击“黑体”按钮文本框中显示内容的字体是黑体。文本框属性的设置在Form_load事件中设置，研究下面的代码段，考虑应填入什么内容？
练习1-2 运行界面
Private Sub Form_Load()
Text1.FontName = "宋体"
Text1.FontBold = True
Text1.FontSize = 18
Text1.ForeColor = vbRed
End Sub
Private Sub Command1_Click()
Text1.FontName =__”隶书”_____
End Sub
Private Sub Command2_Click()
Text1.FontName =”黑体”__________________
End Sub
上机实践
调试运行以上程序。
请你思考
文本框属性的设置如改在属性窗口中设置，以上代码会怎样？
【练习1-3】编程，窗体界面设计如下图1，分别有三个命令按钮command1、command2、command3，命令按钮的Caption属性分别为“改变位置”、“还原”和“退出”。窗体加载后，运行Form_Load 事件，使窗体定位在（2000，2000）坐标值上，运行效果如下图2。
图1 图2 Private Sub Form_Load()
Form1.Left = 2000
Form1.Top = 2000
Command2.Enabled = False
End Sub
点击命令按钮command1后，使窗体定位在（100，100）坐标值上，运行效果如图3：
图 3
Private Sub Command1_Click()
Form1.Left = 100
Form1.Top = 100
Command1.Enabled = False
Command2.Enabled = True
End Sub
点击命令按钮command2，窗体又重回图2的情况。请写出另外两个命令按钮事件的内容。Private Sub Command2_Click()
Form1.Left = 2000
Form1.Top = 2000
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
End
End Sub
上机实践
调试运行以上程序。
请你思考
怎样用move方法来改变窗体位置，完成此题？
【练习1-4】在窗体上建立5个命令按钮Command1、Command2、Command3、Command4和Command5，运行界面如下图。
要求：
（1）命令按钮的Caption属性分别为“窗体变大”、“窗体变小”、“窗体左移”、“窗体右移”和“关闭窗体”。
（2）每单击Command1按钮和Command2按钮一次，窗体变大或变小1/4倍。
（3）单击Command3按钮和Command4按钮一次，窗体左移或右移200缇。
（4）单击Command5按钮退出。
练习1-4 运行界面
以下是两个命令按钮的事件过程，写出另外三个命令按钮的事件过程。
Private Sub Command1_Click()
Form1.Height = Form1.Height * 1.25
Form1.Width = Form1.Width * 1.25
End Sub
Private Sub Command3_Click()
Form1.Left = Form1.Left - 200
End Sub
Private Sub Command2_Click()
Form1.Height = Form1.Height / 1.25
Form1.Width = Form1.Width / 1.25
End Sub
Private Sub Command4_Click()
Form1.Left = Form1.Left + 200
End Sub
Private Sub Command5_Click()
End
End Sub
上机实践
调试运行以上程序。
【练习1-5】在窗体上建立4个命令按钮，command1、command2、command3、command4，要求：
1．命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。
2．每单击按钮command1和command2一次，字体变大或变小2个单位（提示：改变的是Form1.fontsize属性值）。
3．单击command3时，字体变粗；单击command4时，字体又由粗体变标准；（提示：改变的是Form1.fontbold属性值）。
4．4个按钮每单击一次，都在窗体上显示“欢迎使用VB”。
5．双击窗体后清除窗体内容。
研究下面的代码段，考虑应填入什么内容？
Private Sub Command1_Click() '字体变大
Form1.FontSize = Form1.FontSize + 2
Print "欢迎使用VB"
End Sub
Private Sub Command2_Click() '字体变小Form1.FontSize = Form1.FontSize - 2
Print "欢迎使用VB"
________________________________
______________
End Sub
Private Sub Command3_Click() '字体加粗Form1.FontBold = True
Print "欢迎使用VB"
End Sub
Private Sub Command4_Click() '字体不加粗Form1.FontBold = ___ False _______
Print "欢迎使用VB"
End Sub
Private Sub Form_DblClick()
_____ Cls________
End Sub
上机实践
调试运行以上程序，运行界面参考如上图。
浙江大学城市学院实验报告课程名称VB程序设计基础与实验
实验项目名称实验二、程序设计基础1
实验成绩指导老师（签名）日期
一. 实验目的和要求
1. 掌握运算符的使用。
2. 掌握表达式的正确书写规则。
3. 掌握常用函数的使用。
4. 掌握InputBox、MsgBox函数的使用。
5. 熟悉掌握赋值语句的使用。
6. 掌握顺序结构的应用程序的编程过程。
二. 实验内容和原理
【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：（一行一行地输入，不能粘贴）
? 35 /5 mod 13 \2+5^2
Print Not("bad">"bed")
BirthDay = #5/18/1980#
Birth$ = "出生日期：" & BirthDay
Print Birth$
a = 10
b = 15
c = -9
Print a > 2 ^ 3 And (b = 13 Or Not c = 0)
Print len(str(a))
Print len(str(c))
Print Chr(Asc("A") + 3)
Print Trim(" a b ") & "cde"
Print " a b " & "cde"
Print Left("Visual Basic 6.0", 7)
Print Mid("Visual Basic 6.0", 8, 5)
Print Instr("Visual Basic 6.0",” Ba”)
Print Len("VB程序设计")
Print UCase("Hello!")
Print "浙江" & Space(2) & "杭州
"
Print Date, Date+7
Print hour(Time)
Print 345 / 7347, Format(345 / 7347, "#0.0000")
Print Sqr(9)
Print Abs(-25)
Print Rnd, Rnd
Print Sin(30 * 3.1415926 / 180)
Print Int(-3.4), Int(3.8)
【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如下所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。
提示：
(1)可以参考教材中两个变量值交换的例子
(2)可以定义中间交换变量Dim c as string
(3)赋值语句的”=”的前后项不要写颠倒
上机实践
编写、调试运行以上程序。
Private Sub Form_Click()
Dim c As String
c = Text1.Text
Text1.Text = Text2.Text
Text2.Text = c
End Sub
【练习2-3】设计一个程序，在文本框内输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小。
下图是窗体的设计界面和经过放大操作后的运行效果。要求：
(1)单击“放大”按钮，将文本框中的字符串放大（字体放大），放大的倍数通过随机函数Rnd产生，范围在1～5倍。为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize语句。
(2)同样，单击“缩小”按钮进行缩小，缩小的倍数也通过上述方式产生。
(3)单击“还原”按钮，字体大小恢复成初始状态（12磅）。
(4)程序启动时，文本框中的字体大小为12磅。
程序界面设计
根据题目的要求，在界面上拖放1个标签、1个文本框和3个命令按钮，并按下表设置对象的相关属性。
Private Sub Command1_Click()
Dim n As Integer
Randomize
n = Int(Rnd * 5) + 1
Text1.FontSize = Text1.FontSize * n
End Sub
Private Sub Command2_Click()
Dim n As Integer
Randomize
n = Int(Rnd * 5) + 1
Text1.FontSize = Text1.FontSize / n
End Sub
Private Sub Command3_Click()
Text1.FontSize = 12
End Sub
Private Sub Form_Load()
Text1.FontSize = 12
End Sub
表2.？上机练习一之3题的属性设置表
部分事件代码
Private Sub Command1_Click()
Dim n As Integer
Randomize
n = Int(Rnd * 5) + 1
Text1.FontSize = Text1.FontSize * n
End Sub
【练习2-4】设计一个根据摄氏温度求对应的华氏温度的程序。下图是设计窗体，窗体上有2个标签框作提示使用；2个文本框Text1和Text2分别作输入和显示；3个命令按钮，名称分别是Command1、Command2、Command3，标题分别是“计算”、“清除”、“退出”。
在Text1中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击“清除”按钮使得2个文本框的内容被清除；单击“退出”按钮结束程序运行。
计算公式：F=9C/5+32，其中C表示摄氏温度，F表示华氏温度。（提示：清除文本框T ext1中的文字信息用语句Text1.Text=””）
上机实践
编写、调试运行以上程序。
【练习2-5】两个窗体的运行界面如下，两窗体标题分别为“启动窗体”、“第二个窗体”，启动窗体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮“下一窗体”，
显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮“返回”，关闭第二个窗体，显示出启动窗体。
练习1-6 运行界面
命令按钮“返回”的事件过程如下，写出启动窗体命令按钮的事件过程。
Private Sub Command1_Click()
Form2.Hide
Form1.Show
End Sub
上机实践
编写、调试运行以上程序，运行界面参考上图。
请你思考
在这个练习中要考虑怎样在同一工程中建立多个窗体，以及多个窗体的保存。在此题中保存了几个文件？先后次序分别是什么？