《VB程序设计》实验报告
VB程序设计实验报告
(此文档为word格式，下载后您可任意编辑修改！) 湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林1实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
程序2：创建应用程序。
要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。
2、循环语句程序3：创建应用程序。
要求：单击窗体可显示一个由“*”组成的平行四边形图案。
程序4：创建应用程序，其功能是显示所有的水仙花数。
三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给k3sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。
VB程序实验报告
End Sub
Private Sub Command3_Click()
Text3 = Len(Text1)
Text4 = Len(Trim(Text1))
End Sub
Private Sub Form_Load()
End Sub
4.2-2c代码是：
5.2-3a代码是：
Text2.ForeColor = RGB(0, 0, 0)
Text2.PasswordChar = "*"
End Sub
3．2-2b代码是：
Private Sub Command1_Click()
Text2 = UCase(Text1)
End Sub
Private Sub Command2_Click()
x = Text1: y = Text2
x = x + y
Text3 = x
Text4 = y
End Sub
Private Sub Command5_Click()
Dim x%, y%
x = Text1: y = Text2
x = y: y = x
Text3 = x
Text4 = y
End Sub
Private Sub Command6_Click()
Text1.ForeColor = RGB(255, 0, 0)
Text2.ForeColor = RGB(255, 0, 0)
Text2.PasswordChar = ""
Text1 = (Text1 = "2006000")
Text2 = (Text2 = "TJin1234")
VB程序设计实验报告
VB程序设计实验报告
《VB程序设计》实验报告
班级：国际金融四班学号：姓名：郭蔚
实验
实验目的：
掌握一个简单的VB程序的建立，编辑、调试、运行和保存;设置表情、文本框和命令按钮属性，并编写事件过程代码实验过程：
实验
实验目的：
掌握_ 和 _事件实验过程：
实验
实验目的：
命令按钮、字号、内容和格式的复制练习掌握命令按钮及属性设置：掌握的属性的使用实验过程：
实验：
实验目的：
掌握简单程序的编写、输入数据的方法、不同数据类型的转换实验过程
：
实验：
实验目的：
通过本题主要学会数学函数调用问题还要考虑年数是整数的问题实验过程
：。
VB程序设计实验报告
《VB程序设计》实验单元二实验报告专业班级：新闻班姓名：学号：指导教师：完成时间：一、实验题目数组和自定义类型二、实验环境Visual 程序软件三、实验目的1.掌握数组的声明、数组元素的引用。
2.掌握固定长度数组和动态数组的使用差别。
3.掌握数组常用的操作和常用算法。
4.掌握列表框和组合框的使用。
5.掌握自定义类型及数组的使用。
四、实验内容1.随机产生30—100（包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。
2.随机产生20个学生成绩，统计各分数段人数。
即0~59、60~69、70~79、80~89、90~100，并显示结果。
五、实验步骤1.打开VB界面，建立工程2.在窗体窗口设置界面3.属性窗口控件对象属性设置4.编写程序代码5.运行程序及调试6.程序建立，保存工程文件六、实验结果第1题：第2题：七、实验体会编程虽然有些复杂，但是在一步步的学习探索中我也找到了其中的乐趣，看着自己一点点地在进步，真的很兴奋很激动。
2.在这次实验课题中，我在学习、参考书中的案例的同时，还上网查询了一些小的课外知识，例如：如何改变Print之后的字体颜色、字号、位置等并加以尝试、应用。
在我实验成功时，内心真的是抑制不住地开心。
3.当然，实验的过程，并不是一帆风顺的，然而，只要静下心来，仔细思考，问题总能解决的。
“世上无难事，只怕有心人”，在今后的学习中，我也要敢于面对困难、着力解决，把困难看成挑战，努力超越自我。
4.数组很奇妙，我想更进一步地了解它、用VB使用它，掌握常用的操作和算法。
VB程序设计VB实验四 实验报告
实验报告四
实验目的
（1）掌握顺序文件的操作
（2）通过本次练习，完成具有一定难度的综合程序设计
（3）通过编写、调试、运行程序，进一步掌握VB程序设计的基本方法和编程技巧（4）巩固所学知识，提高分析问题和解决问题的能力
实验内容
【实验1】参考Windows附件的计算器，在VB中做一个简单计算器，可以实现简单的四则运算，包括优先级（例如可以计算1+2*3），参考界面如下图所示。
（80分）
要求：
1、将0~9的数字按钮做成控件数组
2、除可以用鼠标单击”=”按钮进行计算，还能实现当使用键盘，按下”=”号键也能完成输入式子的计算。
完成此功能，需要写窗体的键盘KeyPress事件（为使窗体能响应KeyPress事件，请设置窗体的KeyPreview属性为True）
Private Sub Form_KeyPress(KeyAscii As Integer)
'"="的ASCII码为61
'在此判断若KeyAscii=61,则调用“=”按钮的事件过程，完成计算End Sub
实验结果：
【实验1 代码】
【实验1 典型结果】
【选作1】参考Windows附件的计算器，在VB中做一个简单计算器，可以实现进制转换，参考界面如下图所示。
（20分）
实验结果：
【选作1 代码】
【选作1 典型结果】
实验小结
1.遇到的问题：
2.对课程的建议：
3.。
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程序实习报告【精选5篇】
大学vb程序实习报告【精选5篇】大学vb程序实习报告【篇1】一、学习VB程序设计的方法(1)保持良好的学习心态1、要有自信，自强，积极主动学习。
2、克服畏难情绪，树立学好程序设计的信心(2)要有良好的学____惯1、课前预习，认真听课并适当做些笔记，课后要认真复习消化所学内容，完成作业。
2、VB程序设计的入门学习并不难，但却是一个十分重要的过程，因为程序设计思想就在这时形成的，良好的程序设计习惯也在这个阶段养成。
(3)学习程序设计要注重理解一些重要的概念。
VB程序设计本身并不复杂，翻开一本程序设计学习的书籍，看到的无非就是变量，函数，条件语句，循环语句等概念。
但要真正能进行程序设计，需要深入理解这些概念。
因此，在程序入门阶段还是应该重视概念的学习。
(4)自己动手编写程序程序设计入门阶段要经常自己动手抄写或编写一些小程序，亲自动手进行程序设计是创造性思维应用的体现，是培养逻辑思维的好方法。
因此一定要多动手编写程序，而且要从小程序开发开始，逐渐提高写程序的能力。
(5)阅读，借签别人设计的好程序多看别人设计好的程序代码，包括教材上的例题程序。
在读懂别人程序后，要想他为什么这么设计能不能将程序修改完成更多的功能则可以学到别人优秀的东西，帮助自己提高自身水__。
(6)VB程序设计学习的重点1、程序设计课是高强度的脑力劳动，不是听会的，也不是看会的，而是练会的。
2、只有自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，学起来才比较从容。
等你在编写大量程序之后，我想过二级肯定没问题，不过能不能做到真知灼见，运用自如我就不敢说了。
3、动手能力的培养是这门课和以往课程最大的不同之处。
重点放在思路，算法，编程构思和程序实现上。
语句只是表达工具，要求堂上积极思考，尽量当堂学懂，并做到灵活应用。
)上机调试程序应注意的几点：1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计，事件代码的编写等)2、每次上机后应总结，把没有搞清楚的问题记录下来，请教老师或同学。
VB程序设计实验报告
VB程序设计实验报告实验三选择结构程序设计一、实验目的1. 掌握逻辑表达式的正确书写形式。
2. 掌握单分支与双分支条件语句的使用。
3. 掌握多分支条件语句的使用。
4. 掌握情况语句的使用及与多分支条件语句的区别。
二﹑实验内容4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。
奖学金一等奖评定标准如下：(1) 平均分大于95分者。
(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。
5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。
要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。
6．输入一个数字（1～7），用英文显示对应的星期一～星期日。
提示：用Select语句来实现。
三﹑实验步骤4，打开VB后，建立一个命令按钮，输入"奖学金评定"，编辑代码如下:Private Sub command1_Click()Dim m1!, m2!, m3!m1 = InputBox("输入m1 的值")m2 = InputBox("输入m2 的值")m3 = InputBox("输入m3 的值")If (m1 + m2 + m3) / 3 > 95 Or _(m1 = 100 And m2 = 100 And m3 >= 85 Or _m1 = 100 And m3 = 100 And m2 >= 85 Or _m3 = 100 And m2 = 100 And m1 >= 85) ThenMsgBox "一等奖学金"ElseMsgBox "不是一等奖学金"End IfEnd Sub5，打开VB后，建立4个Lebel标签，4个Text文本框，2个Command按钮，如上图。
编辑代码如下：Private Sub Command1_Click()Select Case Trim(Text3)Case "+"Text4.Text = Val(Text1.Text) + Val(Text2.Text)Case "-"Text4.Text = Val(Text1.Text) - Val(Text2.Text)Case "*"Text4.Text = Val(Text1.Text) * Val(Text2.Text)Case "/"Text4.Text = Val(Text1.Text) / Val(Text2.Text)End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub6, 打开VB后，建立1个Text文本框，1个Command按钮。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
台州学院《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 = FalseEnd SubPrivate Sub Command3_Click()Label1.Visible = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseEnd Sub实验2.1 设计一个程序，运行时界面如图2-1所示。
当单击“左”、“右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。
Private Sub Command1_Click()Label1.Left = Label1.Left - 100End SubPrivate Sub Command2_Click()Label1.Left = Label1.Left + 100End SubPrivate Sub Command3_Click()Label1.Top = Label1.Top - 100 End SubPrivate Sub Command4_Click()Label1.Top = Label1.Top + 100 End Sub实验2.2 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。
Private Sub Command1_Click()Label1.Caption = "百位数：" + Left(Text1.Text, 1) + " 十位数：" + Mid(Text1.Text, 2, 1) + " 个位数：" + Right(Text1.Text, 1)End Sub实验2.3 设计一个程序，实现简单计算的功能、Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a + bLabel1.Caption = "+"Text3.Text = cEnd SubPrivate Sub Command2_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a - bLabel1.Caption = "-"Text3.Text = cEnd SubPrivate Sub Command3_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a * bLabel1.Caption = "*"Text3.Text = cEnd SubPrivate Sub Command4_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a / bLabel1.Caption = "/"Text3.Text = cEnd SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command6_Click()EndEnd Sub实验2.4 设计一个程序，单击“输入”按钮可弹出一个输入对话框，提示用户输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”，然后将区号和电话号码在消息对话框中显示出来，运行界面如图2-4所示。
Private Sub Command1_Click()Dim c As Stringc = InputBox("输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”：")MsgBox ("区号：" + Left(c, 4) + Chr(13) + Chr(10) + "号码：" + Right(c, 8))End Sub实验3.1 在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。
Private Sub Command1_Click()Dim a As Single, b As Single, m As Singlea = Text1.Textb = Text2.TextIf a < b Thenm = aElsem = bEnd IfMsgBox "较小值是" & mEnd Sub实验3.2 输入三个实数，计算其中的最大值，运行界面如图3-1所示。
采用变量m来存放中间过程和结果Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, m As Singlea = Text1.Textb = Text2.Textc = Text3.TextIf a > b Then '将a，b的较大值存入mm = aElsem = bEnd IfIf c > m Then m = c '再将m与c 比较，得到最大值Text4.Text = mEnd Sub注：比较a，b部分可以写成单行If 结构：If a > b Then m = a Else m = b 实验3.3 用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。
Private Sub Command1_Click()Dim x As Single, y As Singlex = InputBox("请输入x的值：",0) If x > 10 Theny = Sqr(x) + Sin(x)ElseIf x < 10 Theny = 2 * x ^ 3 + 6 '注意：乘号不能省略Elsey = 0End IfPrint "y的值是" & yEnd Sub实验3.4 由键盘输入（1～7）范围内的整数，试编程将其转换为中文表示的星期几，运行界面如图3-2所示。
Private Sub Command1_Click()Dim n As Integer, w As String '注意：w的类型必须为Stringn = Text1.TextIf n = 1 Then w = "星期一"ElseIf n = 2 Thenw = "星期二"ElseIf n = 3 Thenw = "星期三"ElseIf n = 4 Thenw = "星期四"ElseIf n = 5 Thenw = "星期五"ElseIf n = 6 Thenw = "星期六"ElseIf n = 7 Thenw = "星期日"Elsew = "错误的输入"End IfText2.Text = wEnd Sub实验3.5（选做）由键盘输入3个数，试编程将它们的中间数打印出来Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, m As Singlea = Text1.Textb = Text2.Textc = Text3.TextIf a >= b And b >= c Thenm = bElseIf a >= c And c >= b Then m = cElseIf b >= a And a >= c Then m = aElseIf b >= c And c >= a Then m = cElseIf c >= a And a >= b Then m = aElsem = bEnd IfText4.Text = mEnd Sub实验 4.1 编写过程Commandl_Click，显示对话框输入n（n>0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。
Private Sub Command1_Click()Dim n As Integer, i As Integer, a As Integer, s As IntegerRandomize '初始化随机数n = InputBox("请输入n：")For i = 1 To na = Int(Rnd * 90) + 10 '随机生成一个两位数存于变量a中Print a; '显示在屏幕上，以便校对（实际编程可以省略）If a Mod 2 = 0 Then s = s + a '判断是否为偶数Next iLabel1.Caption = sEnd Sub说明：随机生成两位数也可以用a=(Int(Rnd*9)+1)*10+Int(Rnd*10) 实验 4.2 编写过程Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。