丁衍珍VB实验报告2 - 360文档中心

vb实验报告总结精选

vb实验报告总结实验报告课程名称程序设计语言实验学期至学年第学期学生所在系部年级班级学生姓名学号任课教师实验成绩计算机学院制计算机学院综合性实验报告《程序设计语言》课程综合性实验报告编号：2011－2012学年第二学期实验报告实验课程名称VB程序设计基础与VBA应用专业班级学号学生姓名实验指导老师浙江大学城市学院实验报告课程名称 VB程序设计基础与实验实验项目名称实验十、上机综合练习学生姓名专业班级学号实验成绩指导老师日期一. 实验目的和要求掌握基本设计程序的能力，能使用条件语句、循环语句和数组解决一般的数据处理及应用问题；掌握常用算法。

二. 实验内容和原理从键盘输入两个正整数，判定其中一个是否能整除另一个；Private Sub Form_ClickDim a As Integer, b As Integera = Val)b = Val)If a Mod b = 0 Or b Mod a = 0 Then Print "能整除" Else Print "不能整除" End Sub从键盘输入n，计算s=1-5+9-13+17-…+的值；Private Sub Form_ClickDim n As Integer, flag As Integer, i As Integer, s As Integern = Val)flag = 1: s = 0For i = 1 To 4 * n + 1 Step 4s = s + i * flagflag = -flagNext iPrint sEnd Sub产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出；Private Sub Form_ClickDim a As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a = ⑴ : Next iFor i = 1 To 29For j = ⑵If a > a Thenm = a: ⑶ :a = mEnd IfNext j,iFor i = 1 To 30If ⑷ Then Print a;Next iEnd SubPrivate Sub Form_ClickDim a As Integer, i As Integer, j As Integer, m As IntegerPrint "排序前："For i = 1 To 30a = Int) + 10Print a;If i Mod 10 = 0 Then Print Next iFor i = 1 To 29For j = i + 1 To 30If a > a Thenm = a: a = a: a = mEnd IfNext jNext iPrint "排序后："For i = 1 To 30Print a;If i Mod 10 = 0 Then Print Next iPrint "其中的奇数："For i = 1 To 30If a Mod 2 = 1 Then Print a; Next i求二维数组a中的最大值以及最大值所在的行号和列号，行数m、列数n及数组元素从键盘输入；Private Sub Form_ClickDim a As Integer, m As Integer, n As Integer, i As Integer, j As IntegerDim x As Integer, y As Integer, Max As Integer m = Val)n = Val)ReDim aFor i = 1 To mFor j = 1 To na = InputBox") Print a;Next jPrintNext iMax = aFor i = 1 To mFor j = 1 To nIf Max Max = ax = iy = jNext jNext iPrintPrint "最大值为" & Max & "在第" & x & "行" & y & "列"End Sub产生k个互不相等的三位正整数。

2018年VB实验报告02 (2) (8000字)-优秀word范文 (5页)

本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！== 本文为word格式，下载后可方便编辑和修改！ ==VB实验报告02 (2) (8000字)编号：201X－201X学年第二学期实验报告实验课程名称VB程序设计基础与VBA应用浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验二、程序设计基础1 学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求1. 掌握运算符的使用。

2. 掌握表达式的正确书写规则。

3. 掌握常用函数的使用。

4. 掌握InputBox、MsgBox函数的使用。

5. 熟悉掌握赋值语句的使用。

6. 掌握顺序结构的应用程序的编程过程。

二. 实验内容和原理【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。

运行结果填在右侧表中：（一行一行地输入，不能粘贴） ? 35 /5 mod 13 \2+5^2 PrintNot("bad">"bed") BirthDay = #5/18/1980#Birth$ = "出生日期：" & BirthDay Print Birth$a = 10b = 15c = -9Print a > 2 ^ 3 And (b = 13 Or Not c = 0) Print len(str(a)) Printlen(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+7Print hour(Time)Print 345 / 7347, Format(345 / 7347, "#0.0000") Print Sqr(9) Print Abs(-25) Print Rnd, RndPrint Sin(30 * 3.1415926 / 180) Print Int(-3.4), Int(3.8)【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如下所示。

VB上机实验报告

VB上机实验报告实验名称：程序设计语言（VB）实验日期：指导老师：实验地点：姓名：班级：学号：一、实验名称：实验5 顺序结构程序设计二、实验目的：（1）掌握基本的输入输出操作（Inputbox、Msgbox、Print使用）。

（2）掌握顺序结构的程序设计方法。

三、实验内容：1.课本的3.3、3.4、3.5、3.6、3.7、3.82.用图形、图像框控件实现图片切换和图片放大缩小。

3.根据提示，补充下列程序段，并在VB环境下调试：（1）鸡兔同笼问题。

（2）计算三角形的面积。

四、实验步骤及结果：1、3.3：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s1 As String, s2 As Stringx = 2: y = 1s1 = x & "+" & y & "=" & x + ys2 = x & "-" & y & "=" & x - yMsgBox s1 & vbCrLf & s2, , "输出"End Sub3.4：Private Sub Command1_Click()Dim x As Integer, y As Integerx = InputBox("请输入第1个整数", "输入", 0) 'y = InputBox("请输入第2个整数", "输入", 0) ' Print "第1个数为:" & xPrint "第2个数为:" & yPrint "和=" & x + yPrint "差=" & x - yEnd Sub3.5：Private Sub Command1_Click()Dim r As Single, h As SingleDim area As Single, v As Singler = InputBox("请输入半径")h = InputBox("请输入高度")area = 2 * 3.14 * r * r + 2 * 3.14 * r * h v = 3.14 * r * r * hPrint "圆柱体的半径为:" & r; "高为:" & h Print "表面积为:" & areaPrint "体积为:" & vEnd Sub3.6：Private Sub Command1_Click()Dim a As Single, b As Single, c As Single ' Dim s As Single, area As Single 'a = Val(Text1)b = Val(Text2)c = Val(Text3)s = (a + b + c) / 2 'area = Sqr(s * (s - a) * (s - b) * (s - c)) Label2 = "三角形的面积为:" & area 'End Sub3.7：Dim a As Integer, b As Integer, t As Integera = Text1b = Text2t = aa = bb = tLabel2 = "交换后的值为:" & a & "," & b End Sub3.8：Dim x As Integer, s As IntegerDim a As Integer, b As IntegerDim c As Integer, d As Integerx = InputBox("请输入一个四位整数")a = x Mod 10b = x \ 10 Mod 10c = x \ 100 Mod 10d = x \ 1000s = a + b + c + dPrint x; "的各位数字之和为:"; sEnd Sub2、用图形、图像框控件实现图片切换和图片放大缩小：图片切换:Private Sub Command1_Click()Picture1.Picture = LoadPicture(App.Path + "\春.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture(App.Path + "\夏.jpg") End SubPrivate Sub Command3_Click()Picture1.Picture = LoadPicture(App.Path + "\秋.jpg") End SubPrivate Sub Command4_Click()Picture1.Picture = LoadPicture(App.Path + "\冬.jpg") End SubPrivate Sub Command5_Click()Picture1.Picture = LoadPicture("")End Sub图片放大缩小:Private Sub Command1_Click() Image1.Stretch = TrueImage1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 End SubPrivate Sub Command2_Click() Image1.Stretch = TrueImage1.Width = Image1.Width / 2Image1.Height = Image1.Height / 2 End SubPrivate Sub Command3_Click() Image1.Stretch = FalseEnd Sub3、（1）鸡兔同笼问题：Private Sub Command1_Click() Dim h As IntegerDim f As IntegerDim x As Integerh = Val(Text1.Text)f = Val(Text2.Text)x = (4 * h - f) / 2y = (f - 2 * h) / 2Text3.Text = xText4.Text = yEnd Sub(2)计算三角形的面积：Private Sub Command1_Click()Dim b As SingleDim c As SingleDim s As SingleDim area As Singlea = Text1.Textb = Text2.Textc = Text3.Texts = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))Text4.Text = areaEnd Sub五、实验分析及总结：（1）通过几次VB上机实验，我发现只要代码不写错，调试结果通常都会成功。

核黄素负荷实验报告

一、实验目的1. 了解核黄素（维生素B2）在人体内的代谢过程。

2. 掌握核黄素负荷实验的方法和原理。

3. 评估个体对核黄素的吸收和排泄能力。

二、实验原理核黄素是人体必需的水溶性维生素，参与细胞内的氧化还原反应。

人体对核黄素的吸收主要发生在小肠，通过主动转运机制进入血液。

核黄素负荷实验通过一次性给予受试者大量核黄素，观察其在体内的吸收、分布、代谢和排泄情况，从而评估个体的核黄素营养状况。

三、实验材料1. 核黄素片剂（剂量：500mg/片）2. 受试者：10名健康成年人（年龄、性别、体重等基本一致）3. 实验仪器：核黄素测定仪、血样采集器、离心机、冰箱等四、实验方法1. 实验分组：将10名受试者随机分为两组，每组5人。

2. 核黄素负荷：第一组受试者在空腹状态下口服500mg核黄素片剂，第二组为对照组，不服药。

3. 血样采集：服药前和服药后1小时、2小时、4小时、6小时、8小时、12小时分别采集受试者静脉血，测定血液中核黄素含量。

4. 数据处理：对采集到的数据进行统计分析，包括核黄素吸收速率、吸收总量、生物利用度等指标。

五、实验结果1. 第一组受试者在服药后1小时内，血液中核黄素含量达到峰值，随后逐渐下降。

2. 对照组受试者在服药后，血液中核黄素含量无明显变化。

3. 第一组受试者的核黄素吸收总量为（123.6±12.5）mg，生物利用度为（24.7±2.1）%。

4. 不同时间点核黄素吸收速率：服药后1小时为（1.5±0.2）mg/h，2小时为（1.0±0.1）mg/h，4小时为（0.8±0.1）mg/h，6小时为（0.5±0.1）mg/h，8小时为（0.3±0.1）mg/h，12小时为（0.1±0.1）mg/h。

六、实验讨论1. 核黄素负荷实验结果表明，受试者对核黄素有较好的吸收能力，生物利用度较高。

2. 核黄素吸收速率在服药后1小时内达到峰值，随后逐渐下降，说明核黄素在体内的吸收具有一定的时效性。

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实验报告】第三次实验报告

软件技术实验报告班级01021101 学号2011300341 姓名闫昊第三次实验：实验内容及完成情况：设计一个可以进行四则运算的简单计算器。

该计算器除了可以进行加、减、乘、除、求模（取余）等简单的四则运算外，还要求可以进行四则混合连算，并具有符合计算器日常使用习惯的容错纠错功能。

具体步骤如下：①在界面上建立按钮控件数组：首先在窗体中置入一个命令按钮控件后，将其激活并点击右键通过“复制”、“粘贴”的方法依次产生19个一样的命令按钮控件，其中在创建第一个“粘贴”控件时VB会询问“是否要创建控件数组？”回答“是”即可开始依次创建该控件数组。

②按钮属性的设置：将各按钮的caption属性分别设置为0， 1， 2…… 9，＋、－、×，/，Mod，＝，cls,Exit，注意在设置这些属性时其值与按钮控件的Index属性的对应性。

③其它控件的属性设置：文本框作为显示操作数和结果的控件，应遵循一般计算器的显示习惯，将其Alignment即对齐属性设置为“Right”，此外，将各控件相关的字体、字号等设置为统一风格。

④在程序的通用区定义四个窗体层变量：num1、num2、sum、act、前三个为双精度、act 为整型变量。

⑤编写进行四则运算所需的程序作为命令按钮的单击事件过程。

创新亮点：（如果没有可以空缺）采用了众多颜色，一概源程序灰色的基调，活泼生动而又不张扬。

完成情况和存在问题：初步会使用Select语句使用方法。

收获与体会：经过一晚上的上机实验，平时在课堂上很多不会的地方得到了很清楚的解决。

老师也很有耐心地教我解决一些意外发生的问题。

我懂得了实践出真知的道理。

备注：。

vb实验报告标准答案

竭诚为您提供优质文档/双击可除vb实验报告标准答案篇一：Vb郭贤海实验报告及答案实验1.1设计一个程序，程序运行的初始界面如图1-1所示。

当单击“显示”按钮时，在文本框中显示“欢迎使用Vb！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。

图1-1程序运行初始界面图1-2单击“显示”按钮后的程序界面实验1.2设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。

同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”按钮变为不可用（图1-4）。

图1-3第1题的程序运行初始界面图1-4单击“改变文字”按钮后的程序界面图1-5单击“隐藏”按钮后的程序界面四、实验原始记录实验1.1程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图。

如何取图？设计好界面，按“printscreensysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“ctrl+c”键，然后选中下面的实验样例图，按“ctrl+V”键，替换掉）程序代码。

privatesubcommand1_click()Text1.Text="欢迎使用Vb！"endsubprivatesubcommand2_click()Text1.Text=""endsubprivatesubcommand3_click()endendsub实验1.2程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图）程序代码。

privatesubcommand1_click()Label1.Visible=Truecommand2.enabled=Truecommand1.enabled=Falseendsubprivatesubcommand2_click()Label1.Visible=Falsecomma nd2.enabled=Falsecommand1.enabled=Trueendsub privatesubcommand3_click()Label1.caption="你好，张三！"command3.enabled=Falseendsub五、实验结果及分析实验1.1运行结果。

VB2的测定和方法学

化合物，脂肪，蛋白质的代谢。
国内外研究方法
近年来对VB2测定方法报道较多，如： 1. 高效液相色谱法 2. 流动注射化学发光法 3. 多元线性分光光度法 4. 荧光分光光度法这些方法操作麻烦，时间较长，本实验用紫外
分光光度法和荧光法测定VB2含量。
实验思路
1.VB2片的紫外测定
VB2的避光措施
? 本实验中，首次采用添加硫代硫酸钠还原维生素B2方法制作标准曲线来测定VB2含量。这是其它文献中没用采用过的方法。
收获
? 我们学会了分析课题，查找文献并设计实验方案，以及对实验的严谨态度。
? 学会独立操作紫外分光光度计和荧光分光光度计，并了解其工作原理。
? 了解了维生素B2的特性及富含维生素B2的食物。
Readings 0.3158 0.3777 0.4432 0.5059 0.5676 0.6301
浓度：10~20mg/L
VB2片的浓度计算
结论：所测样品的含量为4.563mg/ 片
①VB2紫外线性范围浓度：
0.2~24mg/L A=0.0312c+0.0069 R2=0.9998
0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.1
0 0
5
10
Standard
Std 1 Std 2 Std 3 Std 4 Std 5 Std 6 Std 7 Std 8 Std 9 Std 10 Std 11
Concentration (mg/L) 0.2 0.5 1.0 1.5 2.0 4.0 8.0 12 16 20 24
Readings
0.0082 0.0211 0.0378 0.0523 0.0705 0.1299 0.2672 0.3828 0.5063 0.6280 0.7528

实验报告2荧光分光光度法测定维生素b2的含量

实验项目：荧光分光光度法测定维生素B2的含量【实验题目】荧光分光光度法测定维生素B2的含量【实验目的】1、掌握标准曲线法定量分析维生素B2的基本原理。

2、了解荧光分光光度计的基本原理、结构及性能，掌握其基本操作。

【实验原理】维生素B2(又叫核黄素，VB2)是橘黄色无臭的针状结晶。

其结构式为：由于分子中有三个芳香环，具有平面刚性结构，因此它能够发射荧光。

维生素B2易溶于水而不溶于乙醚等有机溶剂，在中性或酸性溶液中稳定，光照易分解，对热稳定。

维生素B2溶液在430~440nm蓝光的照射下，发出绿色荧光，荧光峰在535nm附近。

维生素B2在pH＝6~7的溶液中荧光强度最大，而且其荧光强度与维生素B2溶液浓度呈线性关系，因此可以用荧光光谱法测维生素B2的含量。

维生素B2在碱性溶液中经光线照射会发生分解而转化为另一物质——光黄素，光黄素也是一个能发荧光的物质，其荧光比维生素B2的荧光强得多，故测维生素B2的荧光时溶液要控制在酸性范围内，且在避光条件下进行。

在稀溶液中，荧光强度F与物质的浓度c有以下关系：F＝2.303ФI0εbc当实验条件一定时，荧光强度与荧光物质的浓度呈线性关系：F=Kc这是荧光光语法定量分析的依据。

【主要仪器与试剂】主要仪器：F-2500 HiTachi荧光分光光度计；1cm石英皿；50mL容量瓶；5mL移液管；烧杯；胶头滴管试剂：维生素B2标准溶液：未知液4【实验内容及步骤】1、系列标准溶液的制备取维生素B2标准溶液(10.0μg/mL)1.00mL、2.00mL、3.00mL、4.00mL、5.00mL分别置于50mL的容量瓶中，各加入去离子水稀释至刻度，摇匀。

标记为①②③④⑤的一系列维生素B2标准溶液。

待测。

2、待测液制备取5.00mL未知液4置于50mL容量瓶中，加入去离子水稀释至刻度，摇匀。

待测。

3、激发光谱和荧光发射光谱的绘制设置λem＝540nm为发射波长，在250~500nm范围内扫描标准溶液③，记录荧光发射强度和激发波长的关系曲线，便得到激发光谱。

实验报告标准答案

课程名称: 实验报告1 成绩评定:实验项目名称: 指导教师实验项目编号: 实验项目类型: 实验地点:学生姓名: 学号:学院: 系专业:实验时间年月日午～月日午一、实验目的1.熟悉VB编程环境，能够建立、编译和运行VB程序。

2.掌握窗体、标签、文本框、命令按钮、图形框的作用、常用属性、事件和方法。

3.理解并掌握赋值语句、掌握表达式的书写规则。

4.掌握使用Inputbox函数和MsgBox消息函数进行输入输出。

5.熟悉VB的数据类型和类型转换。

二、实验内容(一)字幕滚动1.设计如下图所示的界面实现字幕从上到下进行滚动，“欢迎使用VB”是一个字幕标签，两个命令按钮分别实现自动滚动和手动滚动。

a)在窗体水平居中的地方放置一个标签。

b)当字幕向下移出窗体时，重新从窗体顶端开始继续往下移动。

c)单击“手动”按钮一次字幕将向下移动一下，单击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。

d)以EX1-1分别保存窗体和工程。

2.实验要求a)对于标签应对其什么属性设置什么值才能够使窗体的背景不被遮挡？Backstyle----1b)使标签在窗体中水平居中需要设置什么属性，如何设置？设置的依据是什么？label1.Left ---form1.width/2-label1.width/2c)要想在命令按钮上显示图片，需要设置哪些属性，如何设置？Style -----1d)写出标签从上往下移动的代码，注意，当标签移出窗体后要从窗体上顶端开始继续往下。

Label1.Move Label1.Left, Label1.Top + 50If Label1.Top > Form1.Height Then Label1.Top = 0e)要使Timer控件启用，必须设置哪两个属性，属性值设置为多少？Timer1.Interval=100Timer1.enabled=truef)单击“手动”按钮时，如何使Timer控件停用？需要在什么地方编写代码？请写出代码？Timer1.Interval=0 或 Timer1.enabled=false(二)打开教材实验材料中工程文件EXA05.vbp，完成下面的任务。

vb实验报告范本doc

(此文档为word格式，下载后您可任意编辑修改！) 福建农林大学计算机与信息学院（程序设计类课程）实验报告课程名称：Visual Basic程序设计教程姓名：洪景泉系：计算机与信息学院专业：计算机应用技术年级：05级学号：指导教师：黄红兵职称：讲师2007年6月 2 日实验项目列表系：计算机与信息学院专业：计算机应用技术年级： 05级姓名：洪景泉学号：计算机号 67实验时间： 2007、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(KeyAsciiAs Integer)If KeyAscii = 13 ThenMsgBox "欢迎" + Text1.Text + "的到来"End IfEnd Sub4、创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。

VB实验报告(含答案)

实验报告课程名称_程序设计基础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输出转换后的摄氏温度。

VB实验报告

《VB程序设计》实验单元一实验报告实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic 的安装2 掌握启动与退出Visual Basic3掌握建立、编辑和运行一个简单应用程序的全过程4掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。

对文本框计数：Text仁Val(text1)+1 。

2、命令按钮、字号、内容和格式的复制练习。

按钮1:使得Textl中的文本按要求改变1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数从运用中点击vb6.0经典版打开标准EXE建立一个form 1添加一个Label和TextBox，Label的caption改为"你单击窗体的次数"，TextBox的text 改为空，然后编写T・tl Tq| - T«J|3'T H|| Tor" ■* q3 士 ________________________________ ___ _______________________________________________________________________件Fu-w.Cbwgi^T«ztl t«it * ■■ITIYWI- N# 口Eid沁J*iJ___________________ I点击运行即可。

2、命令按钮、字号、内容和格式的复制练习从运用中点击vb6.0经典版打开标准EXE建立一个form 1添加两个Label 两个TextBox 两个CommandButtor，Label的caption改为“输入内容"和“复制效果"，TextBox 的text 改为"任意文字"和“空"，CommandButton 的caption 改为“隶书25磅”和“复制=> ”。

大一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、随机产生三个整数，按从小到大的顺序显示。