VB实验截图,报告可以用哦
VB课程实验报告
山西财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊学院班级＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求：1．掌握条件表达式和分支语句2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用编写以下程序段：求一元二次方程ax2+bx+c=0的根设计一个四则运算计算器实验的详细操作步骤、程序代码及运行截图：一．Private Sub Command1_Click()Dim A As Single, B As Single, C As SingleDim R1 As Single, R2 As SingleA = ValB = ValIf B ^ 2 - 4 * A * C < 0 ThenMsgBox "该方程无解."ElseIf B ^ 2 - 4 * A * C = 0 ThenR1 = -B / 2 / AMsgBox "该方程仅有一个根为" & R1 & "."ElseR1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End IfEnd Sub二．Private Sub cmdCal-Click()Dim x1 As Single,sign As String,x2 As SingleX1=Val(txtA):sign=txtB:x2=Val(txtC)Case “+”=Str(x1+x2)Case”-“=Str(x1-x2)Case”*”=Str(x1*x2)Case“/”If x2<>0 Then=Str(x1/x2)ElseMsgBox”分母不能为0”End IfCase ElseI=MsgBox(“请重新输入运算符：”vbRetryCancel)If I =vbretry Then =”“ Else EndEnd SelectEnd Sub实验中发现的问题及解决方法：表格之间的距离把握不是很准，通过上方调整距离来实现教师评语成山西财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日Private Sub Form-Click()n=1:pi=0:j=1Do while n<=20Pi=pi+j*1/(2*n-1)j=-jn=n+1Looppi=4*piEnd Sub实验中发现的问题及解决方法：For next语句 if then语句运用不是很熟练教师评语成绩山西财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日实验题目3过程选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊＊＊班级＊＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求：1．理解模块和过程的概念和意义，并能够创建和使用模块2．理解传值和引用的概念，并能够正确采用参数传递方式3．理解变量的作用域与生存期，能够正确使用各种变量使用过程求：1！+2！+…+9!,实验的详细操作步骤、程序代码及运行截图：实验中发现的问题及解决方法：Dim 的运用不是很到位，经过学习了解深刻教师评语山西财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日。
VB实验报告(含答案)
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
图1.1实验1-1运行界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then
VB最综版实验报告
学生学号0120811360801 实验课成绩学生实验报告书实验课程名称可视化程序设计A开课学院自动化学院指导教师姓名刘红丽学生姓名朱明学生专业班级自动化0808班2009-- 2010学年第二学期实验课程名称：_可视化程序设计______实验项目名称窗体界面设计和控件的基本操作实验成绩实验者朱明专业班级自动化0808班组别01同组者无实验日期2010 年4 月22 日一部分：实验预习报告（包括实验目的、意义，实验基本原理与方法，主要仪器设备及耗材，实验方案与技术路线等）1、实验的目的和意义1）了解VB可视化编程的基本概念（对象的属性、事件和方法）；2）熟悉VB可视化编程的环境（集成开发环境、控件工具箱、工程窗口、属性窗口、窗体设计器、代码窗口、立即窗口、窗体布局窗口）；3）熟练掌握VB可视化编程的步骤（新建一个工程、添加控件、设置属性、编写代码、运行工程、修改工程、保存工程的编译)；4）熟悉控件的基本操作和控件的画法(在窗体上画一个控件、控件的缩放和移动、控件的复制与删除、控件的布局）。
2、实验的基本内容1）运行窗体时，显示出“欢迎您来到xxx的VB世界! ”；2）要求在“xxx”处添加自己的班级学号和姓名；3）实现显示、隐藏图片和标语的功能。
3、实验仪器设备及耗材计算机一台；打印机及耗材4、实验方案和技术路线（1）分析应用程序需要实现的功能，绘制TOE表：（2）绘制界面草图：（3）编写各控件的程序代码；（4）程序调试和排错；（5）运行结果分析。
程序要实现的功能：点击按钮，实现相应功能，显示“欢迎您来到xxx的VB世界! ”其中，TOE表和界面草图分别为：TOE表任务对象事件显示信息Command1 单击退出Command2 单击以对象为主线界面草图第二部分：实验过程记录（可加页）（包括实验原始数据记录，实验现象记录，实验过程发现的问题等）1、程序代码Private Sub Command1_Click()Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"End SubPrivate Sub Command2_Click()EndEnd Sub2、实验结果（界面运行结果截图）主界面：3、实验过程中出现的问题1、当使用print命令时，按钮点击多少次，语句就会重复出现多少次？解决办法：使用Label控件，Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"2、在加入背景图片后，若将窗口最大化，而图片却局限在某个角落，不能同时最大化？解决办法：图像控件的属性没设好，应该把图像控件的stretch 属性设为true 。
VB实验二 实验报告
实验报告二实验目的（1）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（2）掌握循环嵌套结构（3）掌握素数算法（4）掌握控制结构相关控件（列表框、组合框等）（5）能综合运用循环控制结构解决较复杂的问题实验内容【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。
实验结果：【实验1 代码】【实验1 典型结果】【实验2】将200~300之间的素数输出到列表框中实验结果：【实验2 代码】【实验2 典型结果】【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。
实验结果：【实验3 代码】【实验3 典型结果】【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：【实验4 代码】【实验4 典型结果】【实验5】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。
2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦实验结果：【实验5 代码】【实验5 典型结果】【实验6】编写程序，将随机产生的1000个[1000,99999]范围内的随机整数存入数组，然后分别用“比较交换法”、“选择法”、“冒泡法”进行升序排序实验结果：【实验6 代码】【实验6 典型结果】【选做1】编写程序，输入X，要求计算精度10-6，求sinX ，计算公式如下所示实验结果：【选做1代码】)!1n2(x)1(...!7x!5x!3x1x(x)sin1n21n753--++-+-=--【选做1典型结果】【选做2】任意输入一个或者多个英文句子，统计这些句子中的单词数量实验结果：【选做2代码】【选做2典型结果】【选做3】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。
VB上机实验报告详细易懂
VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。
2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。
2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。
vb实验报告3
For i = 1 To List1.ListCount - 1
If min > List1.List(i) Then min = List1.List(i): j = i
Next i
List1.RemoveItem j
End Sub
Private Sub随机产生_Click()
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i)
Next i
Form2.Text1 = List1.List(n)
Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub
2.源代码如下
Private Sub结束_Click()
End
End Sub
Private Sub删除最大值_Click()
Form2.Show
End Sub
3.源代码如下：
Private Sub experimentG2_Click()
Form2.Show
End Sub
Private Sub experimentG3_Click()
Form3.Show
End Sub
vb实验报告2
Dim h!
Private Sub Command1_Click()
Dim s!
c = Text1.Text
k = Text2.Text
h = Text3.Text
s = (c * k + c * h + k * h) * 2
Text4.Text = s
End Sub
Private Sub Command2_Click()
实验题目2源程序代码及运行界面：
Private Sub Command1_Click()
Text1.FontBold = True
End Sub
Private Sub Command2_Click()
Text1.FontItalic = True
End Sub
Private Sub Command3_Click()
Caption = "装入窗体"
End Sub
实验报告
实验题目2：分析并设计如下图所示的程序：在窗体上添加一个文本框、5个命令按钮，要求文本框能够输入多行文本，并且要求显示水平与垂直滚动条。单击“加粗”命令按钮时，使文本框里的文本加粗，单击“斜体”按钮时，文本框里的文本变为斜体，单击“40磅”时，文本框里的文本字体大小设置为40，单击“隶书”时，文本框里的文本字体变为隶书。（课内：4分）
Dim l!
r = Text1பைடு நூலகம்Text
l = 2 * pi * r
Text2.Text = l
End Sub
6．编写程序求正方体的体积及表面积，界面如下：
说明：内存变量c代表长方体的长,k代表长方体的宽,h代表长方体的高,s代表长方体的表面积,v代表长方体的体积。
VB实验报告
VB实验报告
实验目的：
1.掌握VB6.0的启动与退出
2.了解VB6.0的集成开发环境
3.了解VB6.0应用程序的开发过程，熟悉VB的三种工作模
式
4.理解VB中对象的概念
5.掌握窗体,标签,命令按钮和文本框的基本使用方法
6.了解用VB制作简单动画的过程
实验内容：
实验一：启动VB6.0，并创建一个“标准EXE”工程
实验二：所输代码及实验结果如下图：
实验三所输代码及实验结果如上图
实验四所输代码及实验结果如上图
实验五所输代码及实验结果如上图
实验小结：通过此次实验，我初步及了解了VB6.0的集成开发环境和工作模式,掌握了基本使用方法，希望以后能将学到的知识用于实践。
VB实验报告1-9
实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。
2．熟悉Visual Basic 的集成开发环境。
3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。
4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。
二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。
2、编一程序，计算任意输入的正整数的平方根。
3、编写一个应用程序，界面如图1-1所示。
窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。
（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。
2).程序主要代码。
3).运行结果（输入与输出）。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。
2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。
vb实验报告
报告封面
2014-2015学年第一学期
封面和里边的需要写的内容不要空着学号、姓名、学院、年级、专业班等
实验课程: Visual 程序设计设课形式: 非独立
课程学分: 4
实验一
注: 请大家着重做好“智能计算器”, 并在此基础填写实验报告。
实验二
注: 请大家着重做好“简单游戏设计”, 并在此基础填写实验报告。
实验三
注: 请大家着重做好“设计一个拾色器”, 并在此基础填写实验报告。
实验四
注: 请大家着重做好“选课系统”, 并在此基础填写实验报告。
说明：请大家务必将上述4个实验做完, 并认真按要求撰写实验报告, 每位同学按顺序做好4个实验的实验报告交给班长或学习委员, 班长或学习委员按学号从小到大排序后上交。
VB实验报告(含答案)
标签
Label3
Caption
浮点数
标签
Label4
Caption
整除数
标签
Label5
Caption
余数除
标签
Command1
Caption
执行除法运算
命令按钮
四．实验思考：
1.温度转换中的Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
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
图5-1窗体界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Label1
Caption
10个100到200之间的整数
标签
Label2
Caption
最大值
标签
Label3
Caption
最小值
标签
Label4
Caption
平均值
标签
Command1
Caption
计算
命令按钮
VB实验报告8
台州学院《VB程序设计》实验报告实验八：图形的绘制一、实验目的和要求1．掌握Visual Basic容器坐标系的设计方法；2．熟练掌握Pset、Line和Circle方法的格式及其使用；3．掌握与图形有关的常用属性，方法。
二、实验主要仪器和设备计算机一台，Windows XP操作系统，Visual Basic环境。
三、实验内容实验8.1下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。
要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。
图8-1程序运行时的界面实验8.2（选做）坐标系作图：设置如图8-2所示的运行界面，单击“坐标系”按钮，将图片框的坐标系设置为原点在中央，x轴[-10，10]，y轴[-10，10]，并画出该坐标系；单击“扇形”按钮，在图片框中画出一个圆心在原点，半径为5，圆周为红色，线宽为2，内部为绿色，起始角为30度，终止角为150度的扇形；单击“退出”按钮，结束程序运行。
图8-2“作图”运行界面四、实验原始纪录实验8.1程序的界面设计。
程序代码。
Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As SingleConst pi=3.1415926a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=a+b+cPicture1.Scale(-1.5,1.5)-(1.5,-1.5)Picture1.FillStyle=0Picture1.FillColor=vbRedPicture1.Circle(0,0),1,,-2*pi,-2*pi*a/dPicture1.FillColor=vbGreenPicture1.Circle(0,0),1,,-2*pi*a/d,-2*pi*(a+b)/d Picture1.FillColor=vbBluePicture1.Circle(0,0),1,,-2*pi*(a+b)/d,-2*piEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii<Asc("0")Or KeyAscii>Asc("9")Then KeyAscii=0End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii<Asc("0")Or KeyAscii>Asc("9")Then KeyAscii=0End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii<Asc("0")Or KeyAscii>Asc("9")ThenKeyAscii=0End IfEnd Sub实验8.2（选做）程序的界面设计。
(完整版)《VB程序设计》实验报告
台州学院《VB程序设计》实验报告实验1.1设计一个程序，程序运行的初始界面如图1-1所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
Private Sub Command1_Click() Text1.Text = "欢迎使用VB！"End SubPrivate Sub Command2_Click() Text1.Text = ""End SubPrivate Sub Command3_Click() EndEnd Sub实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。
同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”Private Sub Command1_Click() Label1.Caption = "你好，张三！"Command1.Enabled = False End SubPrivate Sub Command2_Click()Label1.Visible = FalseCommand3.Enabled = TrueCommand2.Enabled = False End SubPrivate Sub Command3_Click() Label1.Visible = TrueCommand2.Enabled = TrueCommand3.Enabled = False End Sub实验2.1 设计一个程序，运行时界面如图2-1所示。
vb实验报告
南京工程学院自动化学院实验报告课程名称 VB语言实验名称实验A、C、D、E、F实验学生班级 K数控111 实验学生姓名周大伟实验学生学号 240111140实验A一、实验目的1了解Visual Basic系统的安装。
2掌握启动与退出Visual Basic的方法。
3掌握建立、编辑和运行一个简单的Visual Basic应用程序全过程。
4掌握基本控件（窗体、文本框、命令按钮）的应用。
二、实验内容5. 命令按钮、字号、内容和格式的复制练习，有关控件和属性参见表格控件名属性Form1 Caption=“实验1.5”Label1 “输入文本复制文本”Text1 Text=“VB功能强大，但要下功夫学才能学好”；Multiline=True；Scrollbar=2Text2 Text=“”Command1 Caption=“隶书25磅”Command1 Caption=“复制=>”;三、源程序代码Private Sub Command1_Click() Text1.FontName = "隶书"Text1.FontSize = 25End SubPrivate Sub Command2_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub四、调试结果实验C一、实验目的1.掌握逻辑表达式的正确书写方式。
2.掌握单分支与双分支条件语句的使用。
3.掌握多分枝条件语句的使用。
4.掌握情况语句的使用及其与多分支条件语句之间差别二、实验内容1.输入一元二次方程ax²＋bx＋c=0的系数a，b，c，计算并输出一元二次方程的两个根x1，x2。
2.提示：求根时要对a、b、c三个系数分别考虑多种情况的处理，即：无实根、重实根或两个实根。
天津商业大学计算机技术基础(VB)实验报告
天津商业大学《计算机技术基础（VB）》实验报告
实验六数组的使用（1）
学院
班级
学号
姓名
实验日期
批次
地点
教师
教师评语
年月日
一、实验目的
1．掌握数组的声明、数组元素的引用。
2．掌握静态数组Байду номын сангаас使用。
3．应用数组解决与数组有关的常用算法。
二、实验内容（你做了哪几个题）
1．必做题：
2．选做题：
三、简述其中一题（写清题号）的具体操作步骤：
计算机技术基础（VB）实验报告——实验六
四、思考并回答
1．请分别写出实验6-1中声明A、B两个数组的语句。
2．实验6-1中共有6个命令按钮，除了指导书中给出的二段代码，请写出其它任意两个按钮中的代码。
五、简述本次实验存在的问题
VB绘制简单图形实验报告
实验目的： 1、掌握 VB 绘图的坐标系设置方法。 2、掌握图形绘制的常用方法和相关属性，学会简单图形的绘制。 3、掌握图片框图像加载和删除的方法和语句。 仪器设备： （包括规格型号）: 电脑一台 实验步骤：1、绘制圆、椭圆、直线等基本图形 （1）在窗体上并排放置 3 个图片框，自左向右分别将其命名为 Picture1、Picture2、Picture3；设置 3 个图片框的宽度与高度均为 3015，在三个图片框中设置坐标系如下：使坐标原点(0,0)位于图片框的集 合中心，左上角点坐标为（-5，5） ，右下角点坐标为（5，-5） 。在三个图片框的鼠标单击事件处理过程 中分别画出如下图形（结果如图实-1 所示） ：
3
4
Picture1.ScaleHeight = -10 Picture1.ScaleLeft = -5 Picture1.ScaleTop= 5 Picture2.DrawWidth = 2 Picture2.Circle (0, 0), 4, vbGreen, , , 2 Picture2.DrawWidth = 3 Picture2.PSet (0, 0), vbBlack End Sub Private Sub Picture3_Click() Picture3.DrawWidth = 2 Picture3.Circle (0, 0), 4, vbRred Picture3.DrawWidth = 3 Picture3.PSet (0, 0), vbBlack End Sub Private Sub Picture4_Click() Picture1.ScaleWidth = 10 Picture1.ScaleHeight = 10 Picture1.ScaleLeft = -5 Picture1.ScaleTop= 5 Picture1.DrawWidth = 2 Picture1.Circle (0, 0), 4, vbBlack Picture1.Line (0, 4)-(4, 0) Picture1.Line (0, 4)-(-4, 0) Picture1.Line (-4, 0)-(0, -4) Picture1.Line (4, 0)-(0, -4) End Sub 运行结果为图 1 2、绘制函数曲线 Private Sub Picture5_Click() Dim x As Single, y As Single Picture5.Line (0, 5)-(0, -5), vbRed Picture5.Line (0, 0)-(6.28, 0), vbRed For x = 0 To 6.28 Step 0.01 y = 4 * Sin(x)