vb实验报告样本1
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实验报告册
实验报告一(循环与数组)实验目的：通过学习，要求掌握选择语句结构if 语句、 Select case 语句、While wend 语句 、For Next 语句，do while (until ) loop 语句的基本书写格式，以及要掌握累和与累乘以及杨辉三角的算法进行演算。
实验要求：1．编辑，输入X 值，按下式计算并输出Y 的值Y=f(x)=2．计算下式的和，变量X 与N 的数据值用输入对话框输入)!1(............!4!3!232+++++=n x x x x s n3．用近似公式求自然对数据的底数E 的值，直到前后两项之差小于10-4为止。
E ≈!1..............31!21!111n ++++ 4．编程，输入n(n 为1位整数)，输出n+1层的杨辉三角形。
如n 为6时，输出结果如下所示。
11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 1实验步骤：实验体会：x+3 x>3 x 2 1<=x<= 3Sqr(x) 0<x<1 0 x<=0实验目的：通过学习，要求熟练掌握常用控件：textbox commandbox labelbox 控制的用法；掌握optionbox 与listbox的方法，属性及事件，对于定时器与滚动条的基本用法要学会运用与操作。
实验要求：1.编制一个用于进制转换的应用程序，运行时的界面如图2．编制一个“偶数迁移”程序设计，运行界面如图：具体要求为：窗体的标题为“偶数迁移”，单击“产生”按钮，计算机随机产生10个两位正整数放入列表框里list1中，同时清空列表框list2中的内容。
单击“- ”按钮，将列表框list1中所有的偶数迁移到列表框list2中。
3．设计一个字幕推出程序。
标签的字号在定时时器的控制下每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件，字号放大的速度由水平滚动条控制。
2019-vb实验报告格式-推荐word版 (6页)
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！== 本文为word格式，下载后可方便编辑和修改！ ==vb实验报告格式篇一：vb实验报告范本.doc福建农林大学计算机与信息学院课程名称：姓名：系：专业：年级：学号：指导教师：职称：（程序设计类课程）实验报告Visual Basic程序设计教程洪景泉计算机与信息学院计算机应用技术 05级 051893067 黄红兵讲师 201X年 6月 2 日实验项目列表系：计算机与信息学院专业：计算机应用技术年级： 05级姓名：洪景泉学号：051893067 计算机号 67 实验时间： 201X、3、28 实验地点：综南附307 指导教师签字：黄红兵实验一 Visual Basic环境和程序设计的初步一、实验目的和要求1、了解Visual Basic系统对计算机软件、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、熟悉Visual Basic的集成开发环境（IDE）。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
二、实验内容和原理1、熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”，然后执行如下操作：（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。
（2）单击“文件”—“生成工程”并退出。
在windows环境下运行该工程。
用户界面：实验代码：Private Sub Command1_Click() Text1.Text = "" End Sub3、创建一个“标准EXE”类型的应用程序。
要求：程序运行时在屏幕上显示“欢迎您的到来！”，并输入您的名字。
当按回车键时弹出对话框如下所示：用户界面：代码：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenMsgBox "欢迎" + Text1.Text + "的到来" End If End Sub4、创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。
VB实验报告书一
课程名称 实验项目名称 实验者 邵佳 学号 信息系统程序设计 VB 简单的 VB 程序设计 20525811127 专业班级 实验成绩 批阅教师 经管 2111 刘星星 实验日期
一、实验预习报告（实验目的、内容，主要设备、仪器，基本原理、实验步骤等） 一、实验目的
1、掌握启动与退出 VB 的方法； 2、掌握建立、编辑和运行一个简单的 VB 应用程序的过程。 3、掌握常用控件的应用。
二、实验主要仪器设备及耗材
实验室计算机。
三、实验内容
1、教材 301 页实验一：实验 每个学生独立完成一份实验报告， 将实验报告结果编辑成文档上交， 只须交电子版， 做好后请先交学习委员， 学习委员再统一交给我。请将实验报告更名成如下形式：学号+姓名，如华川同学须将每一次实验报告更名 为：01 华川.DOC。 2、 实验报告要求在实验过程记录部分用截图的形式， 记下实验内容中每一个实验的代码截图及运行后的屏幕截 图。 3、实验报告要求在实验分析与总结部分回答问题。 4、若交上来的实验报告有发现完全雷同或绝大部分雷同，将视这些报告全部未交。请保护自己的产权，也给别 人一个好好学习的机会。
注：1、因不允许上网，故请每位同学自备 U 盘或其它移动存储设备，或与其他同学共用。 2、没有网络的情况下截图： ①抓取全屏：直接按一下 PrintScreen 键，系统会自动将当前全屏画面保存到剪贴板中，只要打开 任意一个编辑软件然后粘贴后就可以看到了，当然还可以另存或编辑。 提示：PrintScreen 键一般位于 F12 的右侧。 ②抓取当前窗口：按住 Alt 键再按下 PrintScreen 键就可只将当前的活动窗口抓下了。
二、实验过程记录（包括实验过程、数据记录、实验现象等）
VB实验报告示例
《VB程序设计》实验报告一、实验目的及要求（见实验书，要求手填）：二、实验完成情况：实验完成情况表：三、界面设计与程序代码要求：给出界面设计示意图，在属性窗口修改过的对象属性需列出，列出方式如下：1、步骤：①界面设计②程序代码Public Class Form1Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.LoadMe.Text = "装入窗体"Me.BackgroundImage = Image.FromFile("tongji.bmp") '当前目录为Bin的DebugEnd SubPrivate Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.ClickMe.Text = "单击窗体"Me.BackgroundImage = Image.FromFile("tongji-2.bmp") End SubPrivate Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.DoubleClick Me.Text = "双击窗体"Me.MaximizeBox = FalseMe.MinimizeBox = FalseMe.BackgroundImage = NothingEnd SubPrivate Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeMe.Size = New Size(264 + 10, 256 + 30) '图片大小为×Me.FormBorderStyle =Windows.Forms.FormBorderStyle.Fixed3DEnd SubEnd Class程序要求注释，要求按缩格方式书写，要求变量定义。
VB实验报告一2024
VB实验报告一（二）引言概述：VB（VisualBasic）是一种面向对象的程序设计语言，广泛应用于Windows操作系统中的软件开发。
本实验报告旨在详细介绍VB实验一（二）的内容与实验结果，并对其进行分析和总结。
正文内容：一、实验目的1.1学习VB语言的基本语法和开发环境的使用；1.2熟悉VB的界面设计和事件处理；1.3掌握VB语言中的数据类型、循环结构和条件语句。
二、实验步骤2.1搭建VB开发环境2.1.1并安装VisualStudio；2.1.2配置VB开发环境。
2.2界面设计2.2.1创建一个新的WindowsForms应用程序；2.2.2在设计窗口中添加控件，如按钮、文本框等；2.2.3设置控件的属性和事件。
2.3事件处理2.3.1编写相应按钮的Click事件处理程序；2.3.2实现按钮的功能，如计算、跳转等。
2.4数据类型的应用2.4.1声明和初始化变量；2.4.2使用不同数据类型进行计算和赋值。
2.5循环结构和条件语句2.5.1使用For循环和While循环实现特定功能；2.5.2利用条件语句实现条件判断。
三、实验结果3.1搭建VB开发环境成功；3.2界面设计符合预期，控件添加和属性设置正确；3.3事件处理程序编写无误，按钮功能正常；3.4数据类型的应用正确，计算和赋值结果准确；3.5循环结构和条件语句的实现正确。
四、分析与讨论4.1在搭建VB开发环境的过程中，可能会遇到版本兼容性问题，需要根据实际情况进行相应的配置和调整；4.2界面设计的合理布局与控件的正确设置对用户体验起到重要作用；4.3事件处理程序的编写需要注意语法的正确性和逻辑的严谨性；4.4在应用不同数据类型进行计算和赋值时，要注意数据类型的转换和溢出的问题；4.5循环结构和条件语句的合理运用能够简化程序的逻辑结构，提高代码的可读性和可维护性。
五、总结通过本次VB实验一（二）的学习和实践，我对VB语言的基本语法和开发环境的使用有了更加深入的了解。
VB实验报告
实验一：常用标准控件（一）实验1.1 标签的使用(一)实验1.3 文本框的使用T2.text=t1.text实验1.4 命令按钮的使用(一)c1.width=c1.width+100实验1.5 命令按钮的使用(二)实验1.7 命令按钮与文本框的使用(一)Text2.Text= Text1.Text实验1.8 命令按钮与文本框的使用(二)Text1.Left=0实验1.9 命令按钮与文本框的使用(三)Text1.FontBold = TrueText1.Font.Italic = True实验二：常用标准控件（二）实验2.1 选项按钮的使用Private Sub Option1_Click()Text1.Alignment = 0End SubPrivate Sub Option2_Click()Text1.Alignment = 2End SubPrivate Sub Option3_Click()Text1.Alignment = 1End SubPrivate Sub Option4_Click()Text1.FontName = “宋体”End SubPrivate Sub Option5_Click()Text1.FontName = “黑体”End Sub实验2.3 图像的使用Private Sub Cmd1_Click()Image1.Picture = LoadPicture(“c:\vb\sy02\图片1.jpg”) End SubPrivate Sub Cmd2_Click()Image1.Picture = LoadPicture()End Sub实验2.4 图片框和滚动条的使用Private Sub Command1_Click()VScroll1.Min = 100VScroll1.Max = 2400rgeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Scroll()Picture1.Height=Vscroll1.ValueEnd Sub实验2.5 滚动条的使用Private Sub Form_Activate()Hscroll1.setfocusEnd SubPrivate Sub HScroll1_Change()Text1.Text=Hscroll1.ValueEnd SubShape1.Shape=L1.TextEnd Sub实验2.7 图形的使用(二)Shape1.Shape=3End SubPrivate Sub Command2_Click()Shape1.BorderColor = Shape1.Bordercolor=&HFF&End SubLabel1.Caption=NowEnd Sub实验三：选择结构实验3.1 汽车移动Private Sub Command1_Click()’Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()'Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture("C:\VB\Sy03\CARS.ICO") End SubPrivate Sub Timer1_Timer()Picture1.Left = Picture1.Left + 100If Picture1.Left + Picture1.Width >= Form1.Width Then Picture1.Left = 0End IfEnd Sub实验3.2 爱好选择Dim s As StringPrivate Sub Check1_Click()If Check1.Value = 1 ThenFrame1.Enabled = TrueElseFrame1.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenFrame2.Enabled = TrueElseFrame2.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()If Check1.Value = 1 ThenIf Option1.Value = True Thens = "古典音乐"Elses = "流行音乐"End IfEnd IfIf Check2.Value = 1 ThenIf Option3.Value = True Thens = s & "篮球"Elses = s & "羽毛球"End IfEnd IfLabel2.Caption = sEnd SubPrivate Sub Form_Load()Check1.Value = 1Check2.Value = 1End Sub实验3.3 圆的运动Dim d As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()d = 1End SubPrivate Sub Timer1_Timer()If Option1 ThenShape2.Top = Shape2.Top + d * 50If Shape2.Top <= Shape1.Top Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Thend = -dEnd IfElseIf Option2 ThenShape2.Left = Shape2.Left + d * 50If Shape2.Left <= Shape1.Left Or Shape2.Left + Shape2.Width >= Shape1.Left + Shape1.WidthThend = -dEnd IfEnd IfEnd Sub实验3.4 交通工具和目的地选择Private Sub Form_Click()'学生编写If Op1.Value = True ThenIf Op3.Value ThenLab1.Caption = "坐飞机去广州"ElseIf Op4.Value ThenLab1.Caption = "坐飞机去昆明"End IfElseIf Op3.Value ThenLab1.Caption = "坐火车去广州"ElseIf Op4.Value ThenLab1.Caption = "坐火车去昆明"End IfEnd IfEnd Sub实验3.5 交换与连接Private Sub Form_Click()'学生编写If Op1.Value Thent = Text1.TextText1.Text = Text2.TextText2.Text = tLab1.Caption = "交换成功"ElseLab1.Caption = Text1.Text + Text2.TextEnd IfEnd Sub实验3.6 大小写转换Dim n As IntegerPrivate Sub Text1_Change()Dim ch As Stringch = Right$(Text1.Text, 1)If ch >= "A" And ch <= "Z" ThenLabel1.Caption = LCase(ch)n = n + 1ElseIf ch >= "a" And ch <= "z" ThenLabel1.Caption = UCase(ch)n = n + 1ElseLabel1.Caption = chEnd IfLabel2.Caption = nEnd Sub实验四：循环结构实验4.1 分解单词Private Sub Command1_Click()Dim S1 As String, S2 As StringDim I1 As IntegerS1 = Text1.TextI1 = 1DoDo While Mid(S1, I1, 1) <> “” And I1 <= Len(S1) S2 = S2 & Mid(S1, I1, 1)I1 = I1 + 1LoopList1.AddItem S2S2 = “”I1 = I1 + 1Loop While I1 <= Len(S1)End Sub实验4.2 列表框内容移动Private Sub C1_Click()Dim k As Integerk = 0While (k < List2.ListCount)If List2.Selected(k) = True ThenList1.AddItem List2.TextList2.RemoveItem kEnd Ifk = k + 1WendEnd SubPrivate Sub C2_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd Sub实验4.3 图案输出Private Sub Form_Click()For i = 1 To 5For j = 1 To 6 - iPrint " ";Next jFor j = 1 To 2 * i - 1Print "*";Next jPrintNext iFor i = 1 To 4For j = 1 To i + 1Print " ";Next jFor j = 1 To 2 * (5 - i) - 1Print "*";Next jPrintNext iEnd Sub实验4.4 因子个数Private Sub Command1_Click()Dim m As Integer, s As IntegerClsm = InputBox("请输入一个整数")s = 0For k = 1 To Abs(m) / 2If m Mod k = 0 Thens = s + 1Print kEnd IfNext kPrint "因子数="; SEnd Sub实验4.5 城市选择Private Sub Command1_Click()Dim k As IntegerFor k = List1.ListCount - 1 To 0 Step -1If List1.Selected(k) = True ThenList2.AddItem List1.List(k)List1.RemoveItem kEnd IfNext kEnd SubPrivate Sub Command2_Click()Dim k As IntegerText1 = "已经选中的城市有："For k = 0 To List2.ListCount - 1 Step 1Text1 = Text1 & " " & List2.List(k)Next kEnd Sub实验4.6 产生数列Private Sub Command1_Click()Text4 = ""a = Val(Text1)b = Val(Text2)n = Val(Text3)Text4 = Text4 & a & " " & bk = 2Do While k < nc = a * bk = k + 1If c < 10 ThenText4 = Text4 & " " & ca = bb = cElsed = c \ 10Text4 = Text4 & " " & da = dk = k + 1If k <= n Thend = c Mod 10Text4 = Text4 & " " & db = dEnd IfEnd IfLoopEnd Sub实验4.7 添加或删除列表框中内容Private Sub Command1_Click()Text1.Text = InputBox("请输入要添加的项目")List1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Text1.Text = InputBox("请输入要删除的项目")For i = 0 To List1.ListCount - 1If List1.List(i) = Text1.Text ThenList1.RemoveItem iEnd IfNext iEnd Sub实验五：数组与字符串实验5.1 查找Option Base 1Dim a(10)Private Sub Command1_Click()Text1.Text = "": Text2.Text = ""For i = 1 To 10a(i) = Fix(Rnd * 90 + 10)For j = 1 To i - 1If a(i) = a(j) Theni = i - 1Exit ForEnd IfNext jNext iFor i = 1 To 10Text1.Text = Text1.Text + Str(a(i)) + Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim num As Integer, i As Integernum = InputBox("请输入待查找的数")For i = 1 To 10If a(i) = num ThenText2.Text=Str(num)+"是数组中的第"+Str(i)+"个值"Exit ForEnd IfNext iIf i > 10 ThenText2.Text = Str(num) + "不存在于数组中"End IfEnd Sub实验5.2 选手得分Private Sub Command1_Click()Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0).Text)s = ab = aFor k=1 to 5s = s + Val(Text1(k).Text)If a < Val(Text1(k).Text) Thena = Val(Text1(k).Text)End IfIf b > Val(Text1(k).Text) Thenb = Val(Text1(k).Text)End IfNext ks = (s - a - b) / 4s = s * 3 * Val(Text2.Text)Text3.Text = Int(s * 100) / 100End Sub实验5.3 统计Option Base 1Dim a(20) As Integer, b(20) As IntegerPrivate Sub Cmd1_Click()Text1.Text = "": Text2.Text = "": Text3.Text = ""For i = 1 To 20a(i) = Fix(Rnd * 9 + 1)b(i) = 1Text1.Text = Text1.Text + Str(a(i)) + Space(2)Next iEnd SubPrivate Sub Cmd2_Click()fmax = 0For i = 1 To 20For j = i + 1 To 20If a(i) = a(j) Thenb(i) = b(i) + 1End IfNext jIf b(i) > fmax Then fmax = b(i)Next iFor i = 1 To 20If b(i) = fmax ThenText2.Text = Text2.Text + Str(a(i)) + Space(2) End IfNext iText3.Text = fmaxEnd SubPrivate Sub Cmd3_Click()EndEnd Sub实验5.4 循环显示Dim arrPrivate Sub Form_Load()arr = Array("第一项", "第二项", "第三项", "第四项") Label1.Caption = arr(0)Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Static i As IntegerLabel1.Caption = arr(i)If i = 3 Theni = 0Elsei = i + 1End IfEnd Sub实验5.5 最大值Private Sub Command1_Click()Dim arrN(30) As IntegerDim Max As IntegerRandomizeFor i = 1 To 30arrN(i) = Int(Rnd * 999) + 1Next iMax = arrN(1)For i = 2 To 30If arrN(i) > Max ThenMax = arrN(i)End IfNext iPrint MaxEnd Sub实验5.6 素数Option ExplicitOption Base 1Private Sub Command1_Click()Dim a() As Integer, n As Integer, i As IntegerDim flag As Boolean, k As Integerk = 0For n = 2 To 100flag = TrueFor i = 2 To n - 1If n Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Thenk = k + 1ReDim Preserve a(k)a(k) = nEnd IfNext nFor i = 1 To UBound(a)Print Right(Space(3) & a(i), 4);If i Mod 5 = 0 Then PrintNext iEnd Sub实验5.7 加密Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As StringFor k = 0 To 2If Op1(k).Value Thenn = Val(Op1(k).Caption)End IfNext km = Len(Text1.Text)a = ""For k = 1 To mc = Mid$(Text1.Text, k, 1)c = String(1, Asc(c) + n)If c > "z" Or c > "Z" And c < "a" Thenc = String(1, Asc(c) - 26)End Ifa = a + cNext kText2.Text = aEnd Sub1.6 子程序过程与函数过程实验6.1 求和2.程序代码Private Sub Command1_Click()Dim i As IntegerFor i = 0 To 1If Option1.Item(i) = True ThenCall calc(i)Label2.Caption = Option1(i).CaptionEnd IfNextEnd SubPrivate Sub calc(c As Integer)Dim i As Integerresult = 0x = Val(Text1.Text)If c = 0 ThenFor i = 1 To xIf i Mod 2 = 1 Thenresult = result + iEnd IfNextElseFor i = 1 To xIf i Mod 2 = 0 Thenresult = result + iEnd IfNextEnd IfLabel3.Caption = resultEnd Sub实验6.2 最大值2.程序代码Option Base 1Private Function FindMax(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart = LBound(a)Finish = UBound(a)Max = a(Start)For i = Start To FinishIf a(i) > Max Then Max = a(i)Next iFindMax = MaxEnd FunctionPrivate Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(Text1), Val(Text2), Val(Text3), Val(Text4)) For i = 1 To 4arr2(i) = CInt(arr1(i))Next iM = FindMax(arr2())Print "最大值是: "; MEnd Sub实验6.3 哥德巴赫猜想2.程序代码Private Function IsPrime(ByVal x As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(x)If x Mod i = 0 ThenIsPrime = FalseExit FunctionEnd IfNextIsPrime = TrueEnd FunctionPrivate Sub Command1_Click()'学生编写程序开始'======================================x = Val(Text1.Text)If x < 4 Or x Mod 2 <> 0 ThenText1.Text = "输入有误"ElseFor i = 2 To xIf IsPrime(i) And IsPrime(x - i) ThenLabel1.Caption = iLabel2.Caption = x - iExit ForEnd IfNext iEnd If'========================================='学生编写程序结束Open App.Path & "\out3.dat" For Output As #1Print #1, Text1.Text, Label1.Caption, Label2.CaptionClose #1End Sub实验6.4 阶乘和2.程序代码Private Sub Command1_Click()Dim m As Integer, n As IntegerDim s As Long, i As Integerm = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = m To nt = f(i)s = s + tNextlblResult.Caption = sEnd SubPrivate Function f(ByRef x As Integer) As LongDim t As Longt = 1For i = 1 To xt = t * iNextf = tEnd Function实验6.5 选择图形2.程序代码Private Sub C1_Click()Dim k As IntegerFor k = 0 To 2If Op1(k).Value = True ThenCall draw(k)End IfNext kEnd SubSub draw(a As Integer)P1.Print "选择了" & Op1(a).CaptionEnd Sub实验6.6 对象参数2.程序代码Private Sub Form_Load()Label1.Caption = "AABB"Label2.Caption = 10End SubPrivate Sub Command1_Click()Dim a As Integera = Val(Label2.Caption)Call fun1(Label1, a)Label2.Caption = aCall fun2(Form1)End SubPrivate Sub fun1(L As Label, b As Integer) L.Caption = "ABCD"b = b * bEnd SubPrivate Sub fun2(F As Form)F.Caption = "程序"End Sub1.7 简单应用实验7.1 图形控件2.程序代码Dim left0 As IntegerConst blue_color = &HFF0000, red_color = &HFF&Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()left0 = Shape1.LeftEnd SubPrivate Sub Timer1_Timer()If Shape1.FillColor = blue_color ThenIf Shape1.Left > 0 ThenShape1.Height = Shape1.Height + 100Shape1.Width = Shape1.Width + 100Shape1.Left = Shape1.Left - 50Shape1.Top = Shape1.Top - 50ElseShape1.FillColor = red_colorEnd IfEnd IfIf Shape1.FillColor = red_color ThenIf Shape1.Left < left0 ThenShape1.Height = Shape1.Height - 100Shape1.Width = Shape1.Width - 100Shape1.Left = Shape1.Left + 50Shape1.Top = Shape1.Top + 50ElseShape1.FillColor = blue_colorEnd IfEnd IfEnd Sub实验7.2 Line控件2.完善程序代码Private Sub Command1_Click()Line4.Visible = TrueEnd SubPrivate Sub Command2_Click()Line4.Visible = FalseEnd Sub实验7.3 计数2.程序代码Private Sub C1_Click(Index As Integer)Select Case IndexCase 1Timer1.Enabled = FalseCase 0Timer1.Enabled = TrueEnd SelectEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub实验7.4 通话费用2.程序代码Private Sub Cmd1_Click()Text1(0).Text = Str(Time())Text1(1).Text = "": Text1(2).Text = ""Cmd1.Enabled = FalseCmd2.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Text1(1).Text = Str(Time())t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text) t_end = Hour(Text1(1).Text) * 3600 + Minute(Text1(1).Text) * 60 + Second(Text1(1).Text) t = t_end - t_startm = t \ 60If m < t / 60 Then m = m + 1s = 0.5If m - 3 > 0 Thens = s + (m - 3) * 0.15End IfText1(2).Text = Str(s) + "元"Cmd1.Enabled = TrueCmd2.Enabled = FalseEnd Sub实验7.5 图标运动2.程序代码Dim a, t, dPrivate Sub Command1_Click()Timer1.Enabled = Trued = Image1.TopEnd SubPrivate Sub Command2_Click()Open App.Path & "\out7.txt" For Output As #1Print #1, Label1, Label2Close #1End SubPrivate Sub Form_Load()a = 1t = 0End SubPrivate Sub Timer1_Timer()Image1.Top = Image1.Top - a * 50If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then Timer1.Enabled = Falsed = d - Image1.TopLabel1 = dLabel2 = t * Timer1.Interval / 1000End Ifa = a + 0.1t = t + 1End Sub实验7.6 圆的移动2.程序代码Private Sub Form_load()HScroll1.Min = Shape2.LeftHScroll1.Max = Shape2.Width + Shape2.Left - Shape1.WidthVScroll1.Min = Shape2.TopVScroll1.Max = Shape2.Height + Shape2.Top - Shape1.HeightHScroll1.Value = 1000VScroll1.Value = 1000End SubPrivate Sub HScroll1_Change()Shape1.Left = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.Top = VScroll1.ValueEnd Sub实验7.7 处理数据2.程序代码Private Sub Command1_Click()Dim y As IntegerFor i = 0 To 2If Option1(i).Value = True Theny = Val(Option1(i).Caption)End IfNextCall calc(y)End SubPrivate Sub calc(y As Integer)List1.Cleari = 1x = Val(Text1.Text) + 1Do While i <= 5If x Mod y = 0 ThenList1.AddItem x i = i + 1End Ifx = x + 1LoopEnd Sub1.8 菜单、键盘与鼠标事件实验8.1 下拉式菜单2.完善程序代码Private Sub Dis_Click()Text1.Text = "等级考试"End SubPrivate Sub Exit_Click()EndEnd Sub实验8.2 求和或求阶乘2.程序代码Dim n As IntegerPrivate Sub Command1_Click()'需学生编写的程序Dim s As Long, i As IntegerIf Option1 Thens = 1For i = 1 To ns = s * iNext iElses = 0For i = 1 To ns = s + iNext iEnd IfText1.Text = CStr(s)End SubPrivate Sub Command2_Click()Open App.Path + "\out2.dat" For Output As #1Print #1, n, Option1.Value, Option2.Value, Text1Close #1End SubPrivate Sub m10_Click()n = 10End SubPrivate Sub m2000_Click()n = 2000End SubPrivate Sub m12_Click()n = 12End SubPrivate Sub m1000_Click()n = 1000End SubPrivate Sub Option1_Click()n = 0m1000.Enabled = Falsem2000.Enabled = Falsem10.Enabled = Truem12.Enabled = TrueEnd SubPrivate Sub Option2_Click()n = 0m10.Enabled = Falsem12.Enabled = Falsem1000.Enabled = Truem2000.Enabled = TrueEnd Sub实验8.3 弹出式菜单2.完善程序代码Private Sub Form_Load()Text1.Text = "计算机等级考试"End SubPrivate Sub M1_Click()Text1.FontBold = TrueEnd SubPrivate Sub M2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu FormatEnd Sub实验8.4 组合框的使用2.程序代码Private Sub C1_Click()Dim flag As BooleanFor i = 0 To Cb1.ListCount - 1If Cb1.List(i) = Cb1.Text Thenflag = TrueExit ForElseflag = FalseEnd IfNextIf flag ThenMsgBox "已有此项"Cb1.Text = ""ElseCb1.AddItem Cb1.TextEnd IfEnd Sub实验8.5 键盘事件2.程序代码Private Sub Command1_Click()Combo1.AddItem Text1.TextText1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii > 57 Or KeyAscii < 48 ThenMsgBox "请输入数字！"KeyAscii = 0End IfEnd Sub实验8.6 鼠标事件2.程序代码Const y0& = 1110, x0& = 1100, radius& = 750Private Function oncircle(X As Single, Y As Single) As Booleanprecision = 55000If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then oncircle = TrueElseoncircle = FalseEnd IfEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Const LEFT_BUTTON = 1If oncircle(X, Y) ThenLine1.X1 = x0Line1.Y1 = y0If Button = LEFT_BUTTON ThenLine1.X2 = XLine1.Y2 = YElseLine1.X2 = Line1.X1Line1.Y2 = y0 - radiusEnd IfLabel1.Caption = ""ElseLabel1.Caption = "鼠标位置不对"End IfEnd Sub实验8.7 多窗体程序设计2.程序代码(1)Form1窗体中的程序代码Private Sub C1_Click()Dim k As IntegerForm2.ShowForm2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3 Form2.Print Form1.Frame1.Caption; "："; For k = 0 To 1If Form1.Op1(k).Value ThenForm2.Print Form1.Op1(k).Caption End IfNext kEnd SubPrivate Sub Form_Load()Text2.PasswordChar = "*"End Sub(2)Form2窗体中的程序代码Private Sub C1_Click()EndEnd SubPrivate Sub C2_Click()Unload Form2End Sub1.9 通用对话框与文件实验9.1 通用对话框2．程序代码Private Sub Command1_Click()Dim n As LongCD1.FileName = ""CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"CD1.FilterIndex = 2CD1.ShowOpenIf CD1.FileName <> "" ThenOpen CD1.FileName For Input As #1n = LOF(1)Text1 = Input$(n, #1)Close #1End IfEnd Sub实验9.2 文件控件2.完善程序代码Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd Sub实验9.3 小写转换为大写2.程序代码Private Sub C1_Click()Dim a As StringCD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文件|*.doc"CD1.FilterIndex = 2CD1.Action = 1Open CD1.FileName For Input As #1Input #1, aClose #1Text1.Text = aEnd SubPrivate Sub C2_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click()CD1.FileName = "out3.txt"CD1.Action = 2Open CD1.FileName For Output As #1Print #1, Text1.TextClose #1End Sub实验9.4 删除数据2.程序代码Dim a(100) As Integer, num As Integer, n As IntegerPrivate Sub Command1_Click()Dim k As Integern = 60Open App.Path & "\in4.txt" For Input As #1For k = 1 To nInput #1, a(k)Text1 = Text1 + Str(a(k)) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num = InputBox("请输入一个数")End SubPrivate Sub Command3_Click()For i = 1 To nIf num = a(i) Then Exit ForNext iIf i > n ThenMsgBox "该数不存在于数组中，不能执行删除操作！"Elsen = n - 1For j = i To na(j) = a(j + 1)NextEnd IfText1 = ""'以下程序段将执行删除操作后的数组a重新显示在Text1中For k = 1 To nText1 = Text1 + Str(a(k)) + Space(2)Next kEnd Sub实验9.5 统计2.程序代码Option Base 1Dim x As String, max_n As IntegerPrivate Sub Command1_Click()Open App.Path & "\in5.txt" For Input As #1s = Input(LOF(1), #1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim a(26) As Integersl = Text1.SelLengthst = Text1.SelTextText2 = ""If sl = 0 ThenMsgBox "请先选择文本"ElseFor i = 1 To slc = Mid(st, i, 1)If c <> " " Thenn = Asc(UCase(c)) - Asc("A") + 1a(n) = a(n) + 1End IfNext imax_n = a(1): n = 1For j = 2 To 26If max_n < a(j) Thenmax_n = a(j)End IfNext j'注意可能有多个出现次数最多的字母For i = 1 To 26If max_n = a(i) ThenText2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) End IfNext iEnd IfEnd Sub实验9.6 完全平方数2.程序代码Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & "\in6.txt" For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()'学生编写Dim i As Integer, avg As Single, N As IntegerFor i = 1 To 100If a(i) = (Int(Sqr(a(i)))) ^ 2 Thenavg = avg + a(i)N = N + 1End IfNext iavg = Int(avg / N)Text1.Text = CStr(avg)End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & "\out6.txt" For Output As #1 Print #1, Text1.TextClose #1End Sub1.10 综合应用实验10.1 大小写转换2.程序代码Private Sub Command1_Click()Dim s As StringCommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt"CommonDialog1.FilterIndex = 2On Error GoTo openerrCommonDialog1.InitDir = App.PathCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1Input #1, sClose #1Text1.Text = sopenerr:End SubPrivate Sub Command2_Click()'考生需要编写的程序x = Text1.Texty = Len(x)For i = 1 To yz = Mid(x, i, 1)Select Case zCase "E"Mid(x, i, 1) = "e"Case "N"Mid(x, i, 1) = "n"Case "T"Mid(x, i, 1) = "t"Case "e"Mid(x, i, 1) = "E"Case "n"Mid(x, i, 1) = "N"Case "t"Mid(x, i, 1) = "T"End SelectNext iText1.Text = xEnd SubPrivate Sub Command3_Click()CommonDialog1.Filter = "文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex = 1On Error GoTo openerrCommonDialog1.FileName = "out1.txt"CommonDialog1.InitDir = App.PathCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text1Close #1openerr:End Sub实验10.2 矩阵与文件2.程序代码Option Base 1Private Sub Form_Click()Const N = 5Const M = 5Dim mat(M, N)Dim i, j, tOpen App.Path & "\" & "in2.txt" For Input As #1For i = 1 To NFor j = 1 To MInput #1, mat(i, j)Next jNext iClose #1PrintPrint "初始矩阵为："PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); mat(i, j);Next jPrintNext iPrintFor j = 1 To Mt = mat(1, j)mat(1, j) = mat(3, j)mat(3, j) = tNext jPrintPrint "交换第一行和第三行后的矩阵为："PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); mat(i, j);Next jPrintNext iEnd Sub实验10.3 菜单与文件2.程序代码Option Base 1Dim Arr(100) As Integer,s As IntegerSub ReadData()Open App.Path & "\" & "in3.txt" For Input As #1For i = 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & "\" & Filename For Output As #1Print #1, NumClose #1End SubPrivate Sub Calc_Click()Dim i As IntegerFor i = 1 To 100If Arr(i) < 50 Thens = s + Arr(i)Text1.Text = Text1.Text + CStr(Arr(i)) + " "End IfNext iPrint sEnd SubPrivate Sub read_Click()ReadDataEnd SubPrivate Sub save_Click()WriteData "out3.txt", sEnd Sub实验10.4 排序2.程序代码Private Sub Command1_Click()RandomizeFor k = 0 To 9Text1(k) = CInt(Rnd() * 899 + 100)NextEnd SubPrivate Sub Command2_Click()'================================================'算法：'1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数；'2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是' 偶数，则把此偶数放到第j个位置，j向前移1个位置；'3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是' 奇数，则把此奇数放到第i个位置，i向后移1个位置；'4）重复2）、3），直到i=j'5）把开始暂存的数放到i的位置'=================================================Dim i%, j%, temp%, flag As Booleani = 0j = 9temp = Text1(j)flag = TrueWhile (i < j)If flag ThenIf Text1(i) Mod 2 = 0 ThenText1(j) = Text1(i)j = j - 1flag = Not flagElsei = i + 1End IfElseIf Text1(j) Mod 2 = 1 ThenText1(i) = Text1(j)i = i + 1flag = Not flagElsej = j - 1End IfEnd IfWendText1(i) = tempEnd Sub实验10.5 插入数据2.程序代码Dim a(100) As Integer, num As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & "\in5.txt" For Input As #1For k = 1 To 60Input #1, a(k)Text1 = Text1 + Str(a(k)) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num = InputBox("请输入一个数")End SubPrivate Sub Command3_Click()For i = 1 To 60If num < a(i) Then Exit ForNext iFor j = 60 To i Step -1a(j + 1) = a(j)Next ja(i) = numText1 = ""'以下程序段将插入后的数组A重新显示在Text1中For k = 1 To 61Text1 = Text1 + Str(a(k)) + Space(2)Next kEnd Sub实验10.6 图形2.程序代码Dim a(5, 10) As IntegerDim s(5)Private Sub Command1_Click()Open App.Path & "\in6.txt" For Input As #1For i = 1 To 5For j = 1 To 10Input #1, a(i, j)Next jNext iClose #1End SubPrivate Sub Command2_Click()For i = 1 To 5s(i) = 0For j = 1 To 10s(i) = s(i) + a(i, j)Next js(i) = CInt(s(i) / 10)Text1(i - 1) = s(i)Next iEnd SubPrivate Sub Command3_Click()For k = 1 To 5Shape1(k - 1).Height = s(k) * 20m = Line2.Y1Shape1(k - 1).Top = m - Shape1(k - 1).HeightShape1(k - 1).Visible = TrueNext kEnd Sub。
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实验报告1
学院：市政与测绘工程学院专业：测绘工程班级：1002602姓名：周浩风学号：1002602-26实验时间：2012年实验地点：湖南城市学院朝阳校区实验楼418机房指导老师：唐争气目录实验一、面积计算实验二、导线平差实验三、坐标正反算实验四、角度弧度换算实验五、道路桩点坐标计算实验六、水准网间接平差实验一一、实验名称面积计算二、实验目的与要求设计一个程序求多边形面积。
在实际的测量中经常需要计算一下多边形面积，编这个程序就是给我们的计算带来方便的。
只要输入多边形边数和各个点的坐标，便可得到其面积并能显示它大致图形。
三、实验原理与过程首先，建好一个Text控件和一个Command控件，用于读出多边形边数和各点坐标。
然后，再建一个Text控件和一个Command控件，用于控制计算和显示面积。
同时，还建一个图片框来输出这个多边形的大致图形。
面积计算的数学原理：如果给我们一个任意多边形以及它们各端点坐标，我们可以先把这个多边形放到一个直角坐标系中，再从各点作X轴的垂线。
这样会得到多个矩形，这些矩形面积（有正副）相加正好就是中间多边形的面积。
最后，化简整理得到计算面积的公式。
四、程序代码Dim TempFile As LongDim LoadBytes() As ByteDim inputdata As StringDim nn() As StringDim d() As IntegerDim x() As DoubleDim y() As DoubleDim n As IntegerDim i As IntegerPrivate Sub Command1_Click()TempFile = FreeFileOpen App.Path + "\123.dat" For Input As #TempFilen = 0Do While Not EOF(TempFile)Line Input #TempFile, inputdatan = n + 1LoopReDim nn(3) As StringReDim d(n) As IntegerReDim x(n) As DoubleReDim y(n) As DoubleText1.Text = Format(n, "0") & vbCrLfClose (TempFile)Open App.Path + "\123.dat" For Input As #TempFileFor i = 1 To nLine Input #TempFile, strlinenn() = Split(strline, ",")d(i) = nn(0)x(i) = nn(1)y(i) = nn(2)Next iFor i = 1 To nText1.Text = Text1.Text + Format(d(i), "0") & ","Text1.Text = Text1.Text + Format(x(i), "0.000") & ","Text1.Text = Text1.Text + Format(y(i), "0.000") & vbCrLf Next iEnd SubPrivate Sub Command2_Click()TempFile = FreeFileOpen App.Path + "\123.dat" For Input As #TempFilen = 0Do While Not EOF(TempFile)Line Input #TempFile, inputdatan = n + 1LoopReDim nn(3) As StringReDim d(n) As IntegerReDim x(n) As DoubleReDim y(n) As DoubleClose (TempFile)Open App.Path + "\123.dat" For Input As #TempFileFor i = 1 To nLine Input #TempFile, strlinenn() = Split(strline, ",")d(i) = nn(0)x(i) = nn(1)y(i) = nn(2)Next is = x(1) * (y(n) - y(2)) / 2For j = 2 To n - 1s = s + x(j) * (y(j - 1) - y(j + 1)) / 2Next js = s + x(n) * (y(n - 1) - y(1)) / 2Text2.Text = sEnd SubPrivate Sub Command3_Click()TempFile = FreeFileOpen App.Path + "\123.dat" For Input As #TempFile n = 0Do While Not EOF(TempFile)Line Input #TempFile, inputdatan = n + 1LoopReDim nn(3) As StringReDim d(n) As IntegerReDim x(n) As DoubleReDim y(n) As DoubleClose (TempFile)Open App.Path + "\123.dat" For Input As #TempFile For i = 1 To nLine Input #TempFile, strlinenn() = Split(strline, ",")d(i) = nn(0)x(i) = nn(1)y(i) = nn(2)Next iFor j = 1 To n - 1Line (x(j), y(j) - 2 * y(j) + 128)-(x(j + 1), y(j + 1) - 2 * y(j + 1) + 128)Next jLine (x(1), y(1) - 2 * y(1) + 128)-(x(n), y(n) - 2 * y(n) + 128)End Sub五、实验结果1、界面设置六、实验体会通过这个实验，我们懂了基本的一些VB知识，并且这个计算面积的小程序对于我们也非常有用，虽然碰到了许多的小问题，在经过大家的讨论后都一一解决了。
vb实验报告(1)
实验报告
课程名称： 高级语言程序设计（VB）Ⅰ
实验名称： 控制结构、数组和过程综合程序设计
实验类型： 验证性□ 综合性√ 设计性□
实验室名称： 校计算中心
班 级： 金属 14-1
学 号： 201420402056
姓名： 黄继安
组 别： A29
同组人：
成绩：
实验日期：
2015 年 6 月 4 日
3
五．预编程序代码
内蒙古工业大学信息工程学院
4
内蒙古工业大学信息工程学院 5
内蒙古工业大学信息工程学院 6
实验报告成绩：
内蒙古工业大学信息工程学院
指导教师审核（签名）：
年月日
实验报告
一、实验目的
学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。
二、实验内容
随机产生 n 个（20≤n≤100）两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶 数按降序排序，将素数求和。
1． 仪器设备型号及编号 2． 实验器材或软件环境 3． 实验步骤、程序调试方法 4． 实验数据处理及结果分析 5． 实验中存在的问题 6． 体会及思考题 四、 报告撰写时，要求格式规范、书写整齐
预习报告成绩：
内蒙古工业大学信息工程学院
指导教师审核（签名）：
年月日
预习报告
一、实验目的
学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。
实验报告撰写要求
一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 1． 实验目的 2． 实验用仪器设备、器材或软件环境 3． 实验原理、方案设计、程序框图、预编程序等 4． 实验过程中需要记录的实验数据表格
vb实验报告实验一
vb实验报告实验一
实验一：VB实验报告
实验目的：通过VB编程实现简单的计算器功能，加深对VB语言的理解和掌握。
实验内容：
1. 设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
2. 实现数字按钮的点击事件，将点击的数字显示在计算器界面上。
3. 实现运算符按钮的点击事件，将点击的运算符保存下来。
4. 实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显
示在计算器界面上。
实验步骤：
1. 打开VB开发环境，创建一个新的Windows窗体应用程序项目。
2. 在窗体上设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
3. 编写VB代码，实现数字按钮和运算符按钮的点击事件，将点击的数字或运
算符保存下来。
4. 编写VB代码，实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显示在计算器界面上。
实验结果：
经过实验，成功实现了一个简单的计算器功能。
用户可以通过点击数字按钮输
入数字，点击运算符按钮选择运算符，点击等号按钮进行计算，最终得到正确
的计算结果。
实验总结：
通过本次实验，我进一步掌握了VB语言的编程技巧，对VB编程有了更深入的
理解。
通过实际操作，我对计算器功能的实现有了更清晰的认识，为以后的VB 编程打下了良好的基础。
希望通过不断的实践和学习，能够更加熟练地运用VB 语言，实现更多更复杂的功能。
vb实验总结通用模板(热门9篇)
vb实验总结通用模板第1篇一个月的时间非常快就过去了，这一个月我不敢说自己有多大的进步，获得了多少知识，但起码是了解了项目开发的部分过程。
虽说上过数据库相关的课程，但是没有亲身经历过相关的设计工作细节。
这次课程设计给我提供了一个很好的机会。
通过这次课程设计发现这其中需要的很多知识我们没有接触过，上网查找资料的时候发现我们以前所学到的仅仅是皮毛，还有很多需要我们掌握的东西我们根本不知道。
同时也发现有很多已经学过的东西我们没有理解到位，不能灵活运用于实际，不能很好的用来解决问题，这就需要自己不断的大量的实践，通过不断的自学，不断地发现问题，思考问题，进而解决问题。
在这个过程中我们将深刻理解所学知识，同时也可以学到不少很实用的东西。
这次的数据库课程设计，我们组负责的企业信息文档管理系统的设计。
这课题是自拟的。
我们组实行的分工合作。
我主要是负责数据库功能模块设计这部分。
从各种文档的阅读到需求分析、概要设计、数据库总体设计、代码编写与调试，我们都准备了好长时间。
组内分工合作的整个过程，我亲身体验了一回系统的设计开发过程，分工合作的好处。
很多东西书上写的很清楚，貌似看着也很简单，思路非常清晰。
但真正需要自己想办法去设计一个系统的时候才发现其中的难度。
经常做到后面突然就发现自己一开始的设计有问题，然后又回去翻工，在各种反复中不断完善自己的想法我想有这样的问题不止我一个，事后想想是一开始着手做的时候下手过于轻快，或者说是根本不了解自己要做的这个系统是给谁用的。
因为没有事先做过仔细的用户调查，不知道整个业务的流程，也不知道用户需要什么功能就忙着开发，这是作为设计开发人员需要特别警惕避免的，不然会给后来的工作带来很大的麻烦，甚至可能会需要全盘推倒重来。
所以以后的课程设计要特别注意这一块的设计。
经过组内讨论，我们确定的课题是企业信息文档管理系统。
说实话，我对这个系统不是很了解。
通过上网查找资料、相关文献的阅读，我对该系统有了大体的了解。
VB实验报告1 绝对经典
实验编号
VB01
实验名称
对象、属性、事件与方法的使用
实验目的和要求
1.掌握对象属性的设置。
2.掌握对象方法的使用
实验内容
1.print、cls方法的作用。
2.seltext、sellength等文本框属性的使用。
ห้องสมุดไป่ตู้（3）运行结果截图
.
二、实验感受(包括上机过程中遇到的问题和如何解决的问题、通过上机实践学到了些什么知识、对上机的意见等)
感受：要十分明确每一步输入的是什么，知道每一步骤的作用，同时，对于操作的过的步骤要反复练习，做到熟能生巧。把书上简单的一些基础知识要熟记于心。
3.课本P22,例［2－6］。
4.在窗体上有三个文本框，程序运行时向文本框一中输入任意英文大小字母，文本框二中显示相应的字母且所有字母都是小写，文本框三中显示相应的字母且都是大写字母。（字母的大小写转换，预习书P54，3.5.1转换函数）
（1）属性设置：
控件名
属性名
属性值
按纽
Name
Cmdprint
Caption
显示
按纽
Name
Cmddel
Caption
清除
窗体
forecolour
红色
backcolour
浅蓝色
（2）代码编写：
Private Sub cmddel_Click()
Cls
End Sub
Private Sub cmdprint_Click()
Print "HELLOW WORLD"
End Sub
3.change事件的使用。
VB实验报告模版
福建农林大学计算机与信息学院（程序设计类课程）实验报告课程名称：Visual Basic 程序设计教程姓名：池仕弟系：计算机与信息学院专业：计算机应用技术年级：2005级学号：051893001指导教师：黄红兵职称：讲师2007年6月6 日实验项目列表福建农林大学计算机与信息学院实验报告系：计算机系专业：计算机应用技术年级： 05级姓名：池仕弟学号： 051893015 实验室号___南综附207___计算机号 015 实验时间： 2007.3.28 指导教师签字：成绩：实验一Visual basic环境和程序设计初步一、实验目的和要求1、了解visual basic系统对计算机软件、硬件的要求。
2、掌握启动与退出visual basic的方法。
3、熟悉visual basic的集成开发环境（ide）。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的visual basic应用程序的全过程。
二、实验内容和原理1、启动visual basic 6.0,观察标题栏、菜单栏、工具栏与microsoft其他应用程序的不同之处；熟悉工具箱上的标准控件；熟悉窗体高压设计器、工程管理器窗口、属性窗口和代码窗口的功能、组成以及它们各种不同的打开方法。
2、在窗体上画一文本框和一个命令按钮，如图所示。
在文本框中显示“vb程序设计”，然后执行如下操作：（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。
（2）以解释方式运行程序。
（3）把程序保存到软盘上，其工程文件名为1-1。
Vbp，窗体文件名为1-1。
Frm。
（4）退出visual basic（5）重新启动visual basic，装入上面建立的程序，并在窗体上增加一个命令按钮，当单击该按钮时，结束程序运行。
保存所做的修改。
（6）把当前程序编译为可执行文件，其文件为1-1.exe。
（7）退出visual basic，在windows环境下运行1-1.exe.程序代码如下：Private Sub Form_Load()Text1.Text = "VB程序设计"End SubPrivate Sub Command1_Click()Text1.Text = ""End Sub3、创建一个“标准exe”类型的应用程序。
大一vb的实验报告
大一vb的实验报告篇一：VB实验报告一、实验目的和要求1、掌握正确书写表达式、赋值语句的规则。
2、掌握InputBox与MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握单分支与双分支条件语句的使用。
5、掌握多分支条件语句的使用。
6、掌握For语句和Do语句的各种形式的使用。
7、掌握如何控制循环条件，防止死循环和不循环。
二、实验内容和原理1、输入半径，计算圆周长和圆面积。
为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。
提示：使用Text1_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为13表示输入结束。
2、随机产生三个整数，按从小到大的顺序显示。
3、计算π的近似值，π的计算公式为：?2n?224262π=2×××…× 2n-1?2n+11?33?55?7 注意：①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。
三、主要仪器设备计算机四、实验结果与分析实验界面：1、输入半径，计算圆周长和圆面积。
程序：Private Sub Form_ActivateText1.Text = "输入半径值"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '圆面积，周长Dim rr = Text1.TextConst PI = 3.14159If KeyAscii = 13 ThenClsIf IsNumeric(r) ThenPrint "当圆的半径为"; r; "时："Print "圆面积为："; Format(PI * r ^ 2, "0.00") Print "圆面积为"; Format(PI * r ^ 2, "0.00")ElseText1 = "半径值输入有误"End IfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)ElseEnd IfEnd Sub运行结果：输入值:22、随机产生三个整数，按从小到大的顺序显示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验1 数据的输入与输出
一、实验目的和要求
1．熟悉：Visual Basic6.0的集成开发环境和可视化编程的基本概念。
2. 掌握：VB数据类型的基本概念。
3. 掌握：VB中变量、常量的定义规则，各种运算符的功能，表达式的构成和求值方法。
4. 掌握：常用函数的功能和用法。
实验2 选择结构程序设计（一）
一、实验目的和要求
1. 掌握：Print方法的使用。
2. 掌握：单分支和双分支结构程序设计的方法。
实验3 选择结构程序设计（二）
一、实验目的和要求
1. 掌握：多分支条件语句的使用方法。
2. 掌握：Select Case语句与If…Then…ElseIf语句的区别。
实验4 循环结构程序设计（一）
一、实验目的和要求
1. 掌握：For…Next语句的使用。
2. 掌握：Do…Loop语句的使用。
实验5 循环结构程序设计（二）
一、实验目的和要求
掌握：循环嵌套结构的使用。
实验6 数组程序设计（一）
一、实验目的和要求
1. 掌握：数组的声明和数组元素的引用方法。
2. 掌握：数组的输入、输出方法。
实验7 数组程序设计（二）
一、实验目的和要求
掌握：数组的常用算法。
实验8 过程程序设计
一、实验目的和要求
1. 掌握：函数过程和子过程的定义和调用方法。
2. 掌握：参数传递的方式。
3. 掌握：静态局部变量和一般局部变量的区别。
实验9 窗体和基本控件（一）
一、实验目的和要求
1. 熟悉：面向对象程序设计的方法和技巧。
2. 掌握：窗体、标签、文本框、命令按钮、选项按钮、复选按钮的常用属性、事件和方法。
3. 掌握：多重窗体程序设计的有关语句和方法。
4. 掌握：变量的作用域。
实验10 窗体和基本控件（二）
一、实验目的和要求
掌握：列表框、组合框、滚动条、图片框、图像框、计时器控件的常用属性、事件和方法。
实验11 菜单程序设计
一、实验目的和要求
1. 掌握：下拉式菜单的设计和使用方法。
2. 掌握：弹出式菜单设计和使用方法。
实验12 键盘事件和鼠标事件
一、实验目的和要求
1. 掌握：常用键盘事件过程和鼠标事件过程的功能和用法。
2. 掌握：键盘事件过程和鼠标事件过程中参数的意义。
实验13 文件
一、实验目的和要求
1. 掌握：顺序文件、随机文件的特点和使用。
3. 掌握：顺序文件与随机文件的打开、关闭和读/写操作。
4. 熟悉：在应用程序中使用文件。
实验报告。