实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。
程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
图1.1 实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption 我的第一个vb程序窗体Form1caption 请输入姓名标签Label1text ““文本框Text1caption 显示命令按钮Command1caption 清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption=“请输入姓名”Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：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.温度转换对象属性属性值说明Form1 Caption Inputbox与msgbox应用窗体Command1 Caption 温度转换命令按钮实验三选择程序设计一．实验目的：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.模拟简易计算器对象属性属性值说明Label1 Caption 输入数1 标签Label2 Caption 运算器标签Label3 Caption 输入数2 标签Label4 Caption 结果标签Command1 Caption Case结构命令按钮Command2 Caption if结构命令按钮实验五数组程序设计一．实验目的：1．熟练掌握固定数组。
2．掌握动态数组。
3．掌握列表框和组合框。
4．了解直线控件和形状控件。
二．实验内容：1．设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。
在列表框中随机产生10个100到200之间的整数，在文本框中显示结果信息。
界面如图5-1所示。
图5-1 窗体界面三．实验结果：对象属性设置对象属性属性值说明Label1 Caption 10个100到200之间的整数标签Label2 Caption 最大值标签Label3 Caption 最小值标签Label4 Caption 平均值标签Command1 Caption 计算命令按钮Text1—Text4 Text ““文本框四．实验思考：1．数组应在过程内还是过程外定义，定义的语句是什么？过程外定义Dim a(10) As Integer2．在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？Private Sub Form_Load()Dim i%For i = 1 To 10a(i) = Int(Rnd * 101 + 100)List1.AddItem a(i)Next iEnd Sub实验六过程程序设计一．实验目的：1．掌握子过程的定义和调用方法。
2．掌握函数过程的定义和调用方法。
3．理解作用域和生存期。
4. 掌握滚动条。
二．实验内容：1.写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。
要求从文本框中输入两个数。
界面如图6-1所示。
图6-12.设计一个用滚动条改变图片背景色的程序。
界面如图6-2所示图6-2三．实验结果：对象属性设置1．结果要求单击命令按钮分别显示，设置对象的属性。
对象属性属性值说明Label1 caption m 标签Label2 caption n 标签Label3 caption 最大公约数标签Label4 caption 最小公倍数标签Text1- Text4 text ”“文本框Command1 caption 子过程命令按钮Command2 caption 函数过程命令按钮End Function3. 拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出HScroll1的事件过程。
Dim r As Integer, g As Integer, b As IntegerPrivate Sub HScroll1_Change()r = HScroll1.Valueg = HScroll2.Valueb = HScroll3.ValueText1.BackColor = RGB(r, g, b)End Sub实验七界面设计一．实验目的：1．掌握多窗体程序设计的方法。
2．掌握下拉式菜单。
3．了解通用对话框。
二．实验内容：1.编写密码登录系统。
在窗体1输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自行设计操作内容；如果密码不正确，弹出信息框，显示”用户名或密码错误，请重新输入”，回到窗体1继续输入用户名和密码。
密码输入有三次机会，超过三次就弹出第三个窗口，显示”对不起，你不能使用该系统！”（注：凡是文字提示内容可自行设计，不要求与题目一样。
三个窗体界面可参照图7-1 图7-2 图7-3所示。
）图7-1图7-2图7-32.利用通用对话框设计一个简单的文本编辑器，具有打开、保存、字体、颜色功能。
要求用菜单实现，有”文件”和”格式”两个菜单，”文件”菜单下包含”打开”、”保存”和”退出”三项。
”格式”菜单下包含”字体”和”颜色”两项，打开文件显示在文本框中。
（窗体界面可参照图7-4 所示。
）图7-4三．实验结果：对象属性设置1．设置三个窗体的控件及其属性。
对象控件名称属性属性值Form1Form1 Caption Form1 Form2Form2 Caption Form2 Form3Form3 Caption Form32．设置窗体控件及属性值。
对象控件名称属性属性值窗体Form1 Caption Form1文本框1 Text1 Text Text1打开OpenCaption打开保存SaveCaption保存退出ExitCaption退出字体FontCaption字体颜色ColorCaption颜色四．实验思考：1．下列程序为实验内容1的部分程序代码，单击确定命令按钮的程序代码是什么？Private Sub Form_Load()Text2.PasswordChar = “*”Text2.Text = ““Text1.Text = ““。