VB实验报告答案
大学VB实验答案
上海立信会计学院本科实验报告班级：学号：姓名：指导教师：系部：专业：实验时间：实验4 循环结构一、实验目的1．掌握For语句的使用2．掌握Do语句的各种形式的使用。
3．掌握如何控制循环条件，防止死循环或不循环。
二、实验要求1．在C:\下建立子文件夹“VB实验4”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(41.vbp)、窗体文件(41.frm) 及可执行文件（41.exe），本实验中的第二题，需保存的文件有：工程文件(42.vbp)、窗体文件(42.frm) 及可执行文件（42.exe），其余实验依此类推。
2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。
三、实验内容：1.编一程序利用单循环结构显示如图4-1所示的界面。
要求：循环体内显示的内容用String函数来实现，找出循环控制变量与String函数内字符个数的关系：即String(2*i-1,Trim(Str(i)))。
窗体显示字体默认、大小为小四，通过单击窗体触发程序运行。
图4-1Private Sub Form_Click()For i = 1 To 9Print Tab(15 - i); String(2 * i - 1, Trim(Str(i)))Next iEnd Sub2.计算π的近似值，π的计算公式为：)12()12()2(75653431222222+⨯-⨯⋅⋅⋅⨯⨯⨯⨯⨯⨯⨯=n n n π，要求：单击按钮同时显示当n=10、100、1000时的结果，利用Format 函数保留5位小数。
窗体中所有控件字体默认、大小为小四。
效果如图4-2所示。
图4-2Private Sub Command1_Click()pi = 2For i = 1 To 10pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))Next iPrint " n=10 ∏近似值="; Format(pi, "0.00000")pi = 2For i = 1 To 100pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))Next iPrint " n=100 ∏近似值="; Format(pi, "0.00000")pi = 2For i = 1 To 1000pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))Next iPrint " n=1000 ∏近似值="; Format(pi, "0.00000")End Sub3. 求Sn=a+aa+aaa+aaaa+…+aa …aaa(n 个a)，其中a 是一个由随机数产生的1～9（包括1、9）中的一个正整数，n 是一个由随机数产生的4～9（包括4、9）中的一个正整数，产生随机数需使用Randomize 语句。
第二次VB实验答案
第二次VB实验答案一：实验目的1.掌握正确书写表达式、赋值语句的规则2.掌握常用函数的使用3.掌握InputBox与MsgBox的使用4.掌握Print方法和Format格式的使用二：实验内容实验B,1Private Sub Command1_Click()Me.Text1 = Int(Rnd * 10 + 0)Me.Text2 = Int(Rnd * 90 + 10)Me.Text3 = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Me.Text4 = (Val(Me.Text1) + Val(Text2) + Val(Text3)) / 3 Me.Text4 = Format(Val(Text4), "0.00")End SubPrivate Sub Command3_Click()Me.Text1 = ""Me.Text2 = ""Me.Text3 = ""Me.Text4 = ""End Sub实验B,2Private Sub Command1_Click()n = (Log(2)) / (Log(1 + 0.008))Text1 = Format(n, "0")End Sub实验B,3Private Sub Command1_Click()Dim g%, s%, b%, x%x = Val(Text1.Text)b = x \ 100s = (x \ 10) Mod 10g = x Mod 10Me.Text2 = g * 100 + s * 10 + bEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenIf Not IsNumeric(Text1) ThenMsgBox "输入非数值数据，请重新输入", , "数据检验"Text1 = ""Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Or Len(Text1) <> 3 ThenMsgBox "输入非3位数，请重新输入", , "数据检验"Text1 = ""Text1.SetFocusEnd IfEnd Sub实验B,4Private Sub Form_Click()Me.Text1 = UCase(bel1)Me.Text2 = Len(bel1)Me.Text3 = Left(bel1, 11)Me.Text4 = Mid(bel1, 12, 6)Me.Text5 = Right(bel1, 5)End SubPrivate Sub Command1_Click()Label2.Caption = "Val函数的结果"Text2 = Val(Text1.Text)End Sub实验B,6Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(17 - 2 * i); String(2 * i - 1, "★"); String(11 - 2 * i, "☆"); String(2 * i - 1, "★") Next iEnd SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Form_Resize()Form1.Width = 4560Form1.Height = 3500End Sub实验B,7Private Sub Command1_Click()x = InputBox("请输入一个正实数")Picture1.Print "平方=" & Format(x ^ 2, "0.000") & " "; "平方根=" & Format(x ^ (1 / 2), "0.000") & " "; "立方=" & Format(x ^ 3, "0.000") & " "; "立方根=" & Format(x ^ (1 / 3),"0.000")End Sub习题二答案2-1、类是同类对象集合的抽象，规定了这些对象的公共属性和方法。
vb实验报告(答案)
Print "数理化"
End Sub
Private Sub Cmd2_Click()
Print "政史地"
End Sub
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
A. Text1.MaxLength = 0 B. Text1.Enabled = False
C. Text1.Visible = FalseD. Text1.Width = 0
5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。
A、StyleB、CaptionC、EnabledD、Default
试验报告（1）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
VB环境的熟悉与应用
成绩评定
所用
软件
Visual Basic 6.0
教师签名
实
验
目
的
或
要
求
1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
2．初步了解几个常用控件的使用方法。
实
验
步
骤
、
心
得
体
会
1、在vb中____C_____被称为对象。
10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。
11、窗体边框类型的默认值是___2___。
9、Visual Basic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。
实验报告簿（程序设计基础VB答案）
实验日期_____________________实验名称：实验一常用标准控件一【实验目的与要求】1.掌握Visual Basic的启动与退出。
2.熟悉Visual Basic的集成开发环境。
3.掌握在窗体中放置控件的方法。
4.掌握在“属性窗口”中设置控件属性的方法。
5.掌握在“代码编辑器”窗口中输入程序代码的方法。
6.掌握工具栏上启动按钮、结束按钮的使用方法。
7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。
【实验内容与步骤】实验1.1.1 标签的使用(一)1.题目与要求：在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置一个标签控件Label1；2)属性设置（请将表格补充完整）表1.1.1 对象属性文件名为sjt1.frm。
实验1.1.2 标签的使用(二)1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。
2．属性设置（请将表格补充完整）表1.1.2 对象属性sjt2.frm。
实验1.1.3 文本框的使用1.题目与要求：在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。
程序中不得使用任何变量。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置两个文本框；2)属性设置表1.1.3 对象属性Private Sub T1_Change()T2.Text=T1.Text (T2=T1)End Sub3)保存文件：存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
VB实验报告范文(电子版题目及答案)
VB实验报告范文（电子版题目及答案）2022－2022学年第二学期实验报告实验课程名称专业班级学生姓号学生姓名实验指导老师实验项目清单实验一程序设计初步实验二程序设计基础实验三顺序结构程序设计实验四分支结构程序设计实验五简单循环结构程序设计实验六循环结构程序设计深入实验七数组与相应算法程序设计实验八函数与过程浙江大学城市学院实验报告课程名称VB程序设计基础实验实验项目名称实验一程序设计初步学生姓名专业班级学号实验成绩指导老师（签名）日期一.实验目的和要求1.2.3.4.熟悉VB开发环境，掌握VB程序设计步骤。
理解基本概念：工程、窗体、属性、事件、方法。
熟悉立即窗口的使用。
掌握Print、赋值语句的正确书写规则。
二.实验内容和原理1）在E盘或你的U盘上，建立一个自己的文件夹，准备用来保存VB 编程过程中的相关文件。
文件夹的名字是学号。
如E:\\309088882）将窗体文件“1-1.Frm”和工程文件“1-1.Vbp”上传到老师的ftp服务器上的”周三下午”或”周四下午”或”周五下午”你的文件夹中。
如：“30908888传媒0901张三”.3）练习1-2，1-3，1-4，1-5也同样将窗体文件和工程文件上传到老师的ftp服务器上。
谢谢！【练习1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个VB实验”；双击窗体时，清除窗体上显示的所有信息。
研究下面的代码段，考虑应填入什么内容？PrivateSubForm_ClickForm1.Print\这是我的第一个VB实验\EndSubPrivateSubForm_DblClickClEndSub上机实践调试运行以上程序，在同一文件夹下保存工程1-1.vbp和窗体文件1-1.frm。
【练习1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶书”和“黑体”，当程序运行后，在文本框中输入“欢迎光临VB世界”，是用粗体、18号、宋体、红色字显示(通过窗体加载事件完成)；单击“隶书”按钮文本框中显示内容的字体是隶书，单击“黑体”按钮文本框中显示内容的字体是黑体。
VB编程实验报告答案 完整版
实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D 10. BC11. A 12.D 13. D 14. C 15. A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11.工程文件结构12. 工程13. 设计程序代码14. 双击窗体15. C:\Program Files\Microsoft Visual Studio\VB98 或者VB的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象实验二：一、选择1.B2.C3. B4.C5.C6.C7.B8.B9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click()2. Interval、50003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B 10. B11. B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3)实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A 10. C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select 三、1. X=4 y=132. 10实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 5实验六一、选择B C C C D D D D C A实验七一、选择1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空（1）n！（2）1+1+2+3+4+……+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数第八页编程2-1Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2-2Private Sub Command1_Click()Picture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Image1_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub第11页编程2-3Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End SubPrivate Sub Form_Load()End Sub2-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m + 1) + m)y = Int(Rnd * (n - m + 1) + m)z = Int(Rnd * (n - m + 1) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd SubPrivate Sub Form_Load()End Sub2-5Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)) End SubPrivate Sub Form_Load()End Sub第十五页2-1方法一Private Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub方法二Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2-2Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub2-3方法二Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数") z = InputBox("输入第三个数") If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, zEnd SubPrivate Sub Form_Load()End Sub方法一Private Sub Command1_Click() Dim x%, y%, z%x = Val(Text1)y = Val(Text2)z = Val(Text3)If x > y Then t = x: x = y: y = t If y > z Thent = y: y = z: z = tIf x > y Thent = x: x = y: y = tEnd IfLabel1 = x & Space(5) & y & Space(5) & z End Sub2-4方法一Private Sub Command1_Click()x = Val(InputBox("请输入上网时间:"))If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元"End IfPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub方法二Private Sub Command1_Click()Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为" ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()End Sub2-5第18页2-3Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub]2-5Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1Print xLoopPrint x, nEnd Sub2-6Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0)) For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Form_Load()-8End Sub2-8Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub2-9Private Sub Command1_Click()For n = 100 To 999k = Trim(Str(n))If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print nNextEnd Sub2-11Private Sub Command1_Click()s = 0: Max = 0: Min = 1000For i = 1 To 20Randomizex = Int(Rnd * 50 + 51)Print x;If x > Max Then Max = xIf x < Min Then Min = xs = s + xNext iaver = s / 20PrintPrint "max="; Max, "min="; Min, "aver="; aver End SubPrivate Sub Form_Load()End Sub。
VB实验及答案
对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。 （2）设置对象的属性
【步骤】
（ 1 ） 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then
vb实验报告答案
vb实验报告答案VB实验报告答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows平台的软件开发。
本文将就VB实验报告中的几个问题进行解答和讨论，以帮助读者更好地理解和掌握VB编程。
一、VB的特点和应用领域VB作为一种高级编程语言，具有易学易用的特点。
它采用了面向对象的编程思想，提供了丰富的控件库和强大的图形用户界面设计能力，使得开发者可以快速构建出功能完善的Windows应用程序。
VB广泛应用于企业管理系统、数据库应用、游戏开发等领域。
二、VB的开发环境和工具VB的开发环境主要包括Visual Studio和Visual Basic Express两种。
Visual Studio是微软提供的一套集成开发环境（IDE），包含了VB的开发工具和调试器，可用于开发各种类型的应用程序。
而Visual Basic Express则是一款免费的VB开发工具，适合初学者入门使用。
三、VB的基本语法和数据类型VB的基本语法与其他编程语言相似，包括变量声明、条件语句、循环语句等。
VB中的数据类型包括整型、浮点型、字符串型等，开发者可以根据需求选择合适的数据类型来存储和处理数据。
四、VB中的控件和事件VB提供了丰富的控件库，如按钮、文本框、标签等，开发者可以通过拖拽控件到窗体上的方式来构建用户界面。
同时，VB也支持事件驱动编程，即通过响应用户操作或系统事件来触发相应的代码执行。
开发者可以为控件添加事件处理程序，以实现交互功能。
五、VB中的数据操作和数据库连接VB提供了强大的数据操作功能，可以通过ADO（ActiveX Data Objects）技术来连接和操作数据库。
开发者可以使用SQL语句来执行数据库查询、插入、更新和删除等操作，实现对数据的管理和处理。
六、VB的调试和错误处理在开发过程中，调试和错误处理是非常重要的环节。
VB提供了调试工具，如断点调试、单步执行等，可以帮助开发者定位和修复程序中的错误。
VB实验参考答案
VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。
在学习VB的过程中，进行实验是非常重要的一部分。
本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。
实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。
参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。
参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。
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实验作业参考答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。
在学习VB编程过程中，实验作业是非常重要的一部分，通过实践来巩固所学知识。
本文将提供一些VB实验作业的参考答案，帮助读者更好地理解和掌握VB编程。
一、VB基础知识实验作业参考答案1. 实验题目：编写一个VB程序，实现两个整数的加法运算，并将结果显示在文本框中。
参考答案：```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目：编写一个VB程序，实现输入一个数字，判断该数字是奇数还是偶数，并在消息框中显示结果。
参考答案：```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目：编写一个VB程序，实现一个简单的计算器功能，包括加法、减法、乘法和除法操作。
参考答案：```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目：编写一个VB程序，实现一个简单的登录界面，包括用户名和密码输入框以及登录按钮。
VB试验答案
实验报告参考答案（本部）实验一 VB6.0集成开发环境实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签。
②属性设置：标签的width设为2000，height设为500。
显示“Visual Basic语言程序设计”是将caption设为“Visual Basic语言程序设计”，居中是将Alignment设为2－Center。
标签具有边框是将其BordStyle属性设为1。
③代码设计：无五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）无六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验二设计简单的VB应用程序实验内容（1）中改变标签字体的颜色为红色是将其forecolor属性设置为红色。
实验内容（3）：四、设计流程①界面设计：窗体上画一个命令按钮②属性设置：命令按钮属性设置如下：名称（Name）为C1,caption 为“显示”，Visible 为false.③代码设计：需要在2个事件Form_Click和C1_Click中编程。
其中“命令按钮出现”需要将命令按钮的Visible属性设为True,要在窗体上显示“VB欢迎您”则需要利用窗体的Print方法。
五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）Private Sub Form_Click()C1.Visible=TrueEnd SubPrivate Sub C1_Click()Print “VB欢迎您”End Sub实验内容（4）：四、设计流程①界面设计：在窗体上画一个标签、一个命令按钮。
②属性设置：固定边框是将标签的BordStyle属性设为1，背景透明是将其BackStyle属性设为0。
③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。
其中图片直接使用计算机中的图片或从网上下载，与工程文件、窗体文件放置在同一目录，代码中省略路径或使用相对路径app.path。
VB实验参考答案
《程序设计》实验参考答案实验1-3Dim n% = 0Private Sub Form1_Click(……) Handles Me.Clickn = n + 1TextBox1.Text = nEnd Sub实验1-4Private Sub Form1_Load(……) Handles MyBase.LoadMe.Text = "装入窗体"Me.BackgroundImage = Image.FromFile("tongji.bmp") '当前目录为Bin的DebugMe.Cursor = New Cursor("key04.ico")Me.Icon = New Icon("MISC34.ICO")End SubPrivate Sub Form1_Click(……) Handles MyBase.ClickMe.Text = "单击窗体"' Me.Size = New Size(264 + 10, 256 + 30) '图片大小为×Me.BackgroundImage = Image.FromFile("tongji-2.bmp")End SubPrivate Sub Form1_DoubleClick(……) Handles MyBase.DoubleClickMe.Text = "双击窗体"Me.MaximizeBox = FalseMe.MinimizeBox = FalseMe.BackgroundImage = NothingMe.Cursor = Cursors.DefaultEnd SubPrivate Sub Form1_Resize(……) Handles Me.ResizeMe.Size = New Size(264 + 10, 256 + 30)Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3DEnd Sub实验1-5Private Sub Button1_Click(……) Handles Button1.ClickTextBox1.Font = New Font("隶书", 20)End SubPrivate Sub Button2_Click(……) Handles Button2.ClickTextBox2.Text = TextBox1.SelectedTextTextBox2.Font = TextBox1.FontEnd Sub实验1-6Dim w%, h%Private Sub Form1_Load(……) Handles Me.Loadw = PictureBox1.Widthh = PictureBox1.HeightEnd SubPrivate Sub Button2_Click(……) Handl es Button2.ClickPictureBox1.Width = wPictureBox1.Height = hEnd SubPrivate Sub Button1_Click(……) Handles Button1.Click, Button1.Click PictureBox1.Width = PictureBox1.Width / 2PictureBox1.Height = PictureBox1.Height / 2End Sub实验2-1Private Sub Button1_Click(……) Handles Button1.ClickTextBox1.Text = Int(Rnd() * 10 + 0)TextBox2.Text = Int(Rnd() * 90 + 10)TextBox3.Text = Int(Rnd() * (999 - 100 + 1) + 100)End SubPrivate Sub Button2_Click(……) Handles Button2.ClickDim avg!avg = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3Label2.Text = "三个数的平均值为：" & Format(avg, "0.00") End SubPrivate Sub Button3_Click(……) Handles Button3.ClickEndEnd Sub实验2-4Private Sub Button1_Click(……) Handles Button1.ClickDim n%n = Val(InputBox("输入个数"))Label2.Text = Button1.Text & "函数的结果"TextBox2.Text = StrDup(n, TextBox1.Text)End SubPrivate Sub Button2_Click(……) Handles Button2.ClickLabel2.Text = Button2.Text & "函数的结果"TextBox2.Text = UCase(TextBox1.Text)End SubPrivate Sub Button3_Click(……) Handles Button3.ClickLabel2.Text = Button3.Text & "函数的结果"TextBox2.Text = LCase(TextBox1.Text)End SubPrivate Sub Button4_Click(……) Handles Button4.ClickDim n, m As Integern = Val(InputBox("输入n"))m = Val(InputBox("输入m"))TextBox2.Text = Mid(TextBox1.Text, n, m)Label2.Text = Button4.Text & "函数的结果"End SubPrivate Sub Button5_Click(……) Handles Button5.Click Label2.Text = Button5.Text & "函数的结果"TextBox2.Text = Len(TextBox1.Text)End SubPrivate Sub Button6_Click(……) Handles Button6.Click Dim s1$s1 = Val(InputBox("输入s1"))TextBox2.Text = InStr(TextBox1.Text, s1)Label2.Text = Button6.Text & "函数的结果"End SubPrivate Sub Button7_Click(……) Han dles Button7.Click Dim s1$, news$s1 = InputBox("输入s1")news = InputBox("输入news")TextBox2.Text = Replace(TextBox1.Text, s1, news)Label2.Text = Button7.Text & "函数的结果"End SubPrivate Sub Button8_Click(……) Ha ndles Button8.Click Label2.Text = Button8.Text & "函数的结果"TextBox2.Text = Trim(TextBox1.Text)End Sub实验2-5Private Sub Button1_Click(……) Handles Button1.ClickLabel2.Text = Button1.Text & "函数的结果"TextBox2.Text = Val(TextBox1.Text)End SubPrivate Sub Button2_Click(……) Handles Button2.Click Label2.Text = Button2.Text & "函数的结果"TextBox2.Text = Str(TextBox1.Text)End SubPrivate Sub Button3_Click(……) Handles Button3.Click Label2.Text = Button3.Text & "函数的结果"TextBox2.Text = Chr(TextBox1.Text)End SubPrivate Sub Button4_Click(……) Handles Button4.Click TextBox2.Text = Asc(TextBox1.Text)Label2.Text = Button4.Text & "函数的结果"End Sub实验3-2Private Sub Button1_Click(……) Handles Button1.Click Dim x!, y!If Not IsNumeric(TextBox1.Text) ThenMsgBox("error")TextBox1.Text = ""TextBox1.Focus()Elsex = TextBox1.TextIf x < 10 Theny = 30ElseIf x < 50 Theny = x * 2.5Elsey = x * 2End IfIf y > 150 Then y = 150End IfTextBox2.Text = yEnd Sub实验3-7Private Sub Button1_Click(……) Handles Button1.ClickDim a#, b#, c#, dt!, s1$, s2$a = Val(TextBox1.Text)b = Val(TextBox2.Text)c = Val(TextBox3.Text)dt = b ^ 2 - 4 * a * cIf dt > 0 Then ' 实根dt = Math.Sqrt(dt)Label3.Text = Format((-b + dt) / 2 / a, "0.00")Label5.Text = Format((-b - dt) / 2 / a, "0.00")ElseIf dt = 0 Then ' 重根dt = Math.Sqrt(dt)Label3.Text = Format(-b / 2 / a, "0.00")Label5.Text = Format(-b / 2 / a, "0.00")Elsedt = Math.Sqrt(-dt) ' 复根s1 = Format(-b / 2 / a, "0.00")s2 = Format(dt / 2 / a, "0.00")Label3.Text = s1 & "+" & s2 & "i"Label5.Text = s1 & "-" & s2 & "i"End IfEnd Sub实验3-8'If 语句Dim n%, s$n = InputBox("输入一个数字~7")If n = 1 Thens = "星期一"ElseIf n = 2 Thens = "星期二"ElseIf n = 3 Thens = "星期三"ElseIf n = 4 Thens = "星期四"ElseIf n = 5 Thens = "星期五"ElseIf n = 6 Thens = "星期六"Elses = "星期日"End IfMsgBox(s)'Select语句:Select Case nCase 1s = "星期一"Case 2s = "星期二"Case 3s = "星期三"Case 4s = "星期四"Case 5s = "星期五"Case 6s = "星期六"Case 7s = "星期日"End Select' Choose(函数)s = Choose(n, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日") 实验4-2Private Sub Button1_Click(……) Handles Button1.ClickDim i%, c$Label1.Text = ""For i = 1 To 9c = StrDup(18 - 2 * i, Chr(i + 64))label1.text &= Space(i) & c & vbCrLfNext iEnd Sub实验4-5Private Sub Button1_Click(……) Handles Button1.Click ‘三重循环Dim i%, j%, k%, t%Label1.text = ""For i = 1 To 9For j = 0 To 9For k = 0 To 9t = i * 100 + j * 10 + kIf t = i ^ 3 + j ^ 3 + k ^ 3 ThenLabel1.text &= t & vbCrLfEnd IfNext kNext jNext iEnd Sub或者：Private Sub Button2_Click(……) Handles Button2.Click ‘单重循环Dim i%, j%, k%, t%Label2.Text = ""For t = 100 To 999i = t \ 100j = (t Mod 100) \ 10k = t Mod 10If t = i ^ 3 + j ^ 3 + k ^ 3 ThenLabel2.Text &= t & vbCrLfEnd IfNext tEnd Sub实验4-7Private Sub Form1_Load(……) Handles Me.LoadHScrollBar1.Maximum = 1HScrollBar1.Maximum = 9HScrollBar2.Minimum = 5HScrollBar1.Maximum = 10End SubPrivate Sub HScrollBar1_Scroll1(……) Handles HScrollBar1.ScrollLabel1.Text = "a=" & HScrollBar1.ValueEnd SubPrivate Sub HScrollBar2_Scroll(……) Handles HScrollBar2.ScrollDim a, n, i As Integer, sum&, t&Label2.Text = "n=" & HScrollBar2.Valuea = HScrollBar1.Valuen = HScrollBar2.ValueLabel3.Text = "sum=" & vbCrLfsum = 0 : t = 0For i = 1 To nt = t * 10 + aLabel3.Text &= Space(15 - Len(Trim(t))) & t & vbCrLfsum = sum + tNextLabel3.Text &= "------------------------" & vbCrLfLabel3.Text &= Space(15 - Len(Trim(t))) & sumEnd Sub实验4-10Dim t%Private Sub TextBox1_KeyPress(……) Handles TextBox1.KeyPressIf Asc(e.KeyChar) = 13 ThenProgressBar1.Minimum = 0t = Val(TextBox1.Text) * 60ProgressBar1.Maximum = tProgressBar1.Value = tTimer1.Interval = 1000Timer1.Enabled = TrueEnd IfEnd SubPrivate Sub Timer1_Tick(……) Handles Timer1.Tickt = t - 1TextBox1.Text = t \ 60 & ":" & Format(t Mod 60, "00")ProgressBar1.Value = tIf t = 0 Then Timer1.Enabled = FalseEnd Sub实验4-13Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ClickDim x%, y%, z%, a, b, cLabel1.Text = " x y z" & vbCrLfFor x = 1 To 6For y = 1 To 6For z = 5 To 6If x < y And y < z Thena = Choose(x, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")b = Choose(y, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")c = Choose(z, "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")Label1.Text &= " " & a & " " & b & " " & c & vbCrLfEnd IfNextNextNextEnd Sub实验5-1Privat e Sub Form1_Click(……) Handles Me.ClickDim s(9) As Integer, i, Min, Max, Avers(0) = 30 + Int(Rnd() * 70)Min = s(0)Max = s(0)Aver = s(0)Label1.Text = s(0)For i = 1 To 9s(i) = 30 + Int(Rnd() * 70)Label1.Text &= Space(4) & s(i)Aver += s(i)If s(i) < Min Then Min = s(i)If s(i) > Max Then Max = s(i)Next iAver = Aver / 10Label1.Text &= vbCrLfLabel1.Text &= "Min=" & Min & " Max=" & Max & " Average=" & Aver & vbCrLfEnd Sub实验5-3Dim mark(19) As IntegerPrivate Sub Button1_Click(……) Handles Button1.Click ' 产生Dim i%For i = 0 To 19mark(i) = Int(Rnd() * 100)Label1.Text &= mark(i) & Space(6 - Len(Str(mark(i))))If (i+1) Mod 5 = 0 Then Label1.Text &= vbCrLfNext iEnd SubPrivate Sub Button2_Click(……) Handles Button2.Click ' 统计Dim s%(9), i%, k%For i = 0 To 19k = mark(i) \ 10Select Case kCase 0 To 5 ' 不及格人数s(5) = s(5) + 1Case 9 To 10 ' 优秀人数s(9) = s(9) + 1Case 6 To 8 ' 其他三个分数段的人数s(k) = s(k) + 1End SelectNext iFor i = 5 To 9Label2.Text &= "s(" & i & ")的人数有" & s(i) & "个" & vbCrLf NextEnd Sub实验5-4Dim a%(9), i%, j%, imax%, mPrivate Sub Button1_Click(……) Handles Button1.Click ‘产生Randomize()For i = 0 To 9a(i) = Int(Rnd() * 90) + 10Label1.Text &= " " & a(i)NextEnd SubPrivate Sub Button2_Click(……) Handles Button2.Click ‘排序For i = 0 To 8imax = iFor j = i + 1 To 9If a(j) > a(imax) Thenimax = jEnd IfNextm = a(i)a(i) = a(imax)a(imax) = mNextFor i = 0 To 9Label2.Text &= " " & a(i)NextEnd Sub实验5-6Dim n%, a%(100, 100), i%, j%Private Sub TextBox1_KeyPress(……) Handles TextBox1.KeyPress If Asc(e.KeyChar) = 13 Thenn = Val(TextBox1.Text)For i = 0 To n - 1For j = 0 To iIf i = 0 Or j=0 Or i=j Thena(i, j) = 1Elsea(i, j) = a(i - 1, j - 1) + a(i - 1, j)End IfLabel1.Text &= a(i, j) & Space(4 - Len(Trim(a(i, j))))NextLabel1.Text &= vbCrLfNextEnd IfEnd Sub实验5-8Private Sub Form1_Load(……) Handles Me.LoadListBox1.Sorted = TrueListBox2.Sorted = TrueListBox1.Items.Clear()ListBox1.Items.Add("大学计算机基础")ListBox1.Items.Add("C/C++程序设计")ListBox1.Items.Add("VB程序设计")ListBox1.Items.Add("Web程序设计")ListBox1.Items.Add("多媒体技术与应用")ListBox1.Items.Add("数据库技术与应用")ListBox1.Items.Add("网络技术与应用")ListBox1.Items.Add("硬件技术基础")ListBox1.Items.Add("软件技术技术基础")End SubPrivate Sub ListBox1_Click(……) Handles ListBox1.ClickIf ListBox2.Items.Count >= 5 ThenMsgBox("超过门课程，不能再选")Exit SubElseListBox2.Items.Add(ListBox1.Text)ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)End IfEnd Sub实验5-9Private Sub ComboBox1_KeyPress(……) Handles ComboBox1.KeyPressSelect Case Asc(e.KeyChar)Case 48 To 57, 13If Asc(e.KeyChar) = 13 ThenComboBox1.Items.Add(ComboBox1.Text)ComboBox1.Text = ""End IfCase Elsee.Handled = TrueEnd SelectEnd SubPrivate Sub Button1_Click(……) Handles Button1.ClickDim min, imin, max, imax, t, i As Integermax = ComboBox1.Items(0)min = ComboBox1.Items(0)imin = 0imax = 0For i = 1 To ComboBox1.Items.Count - 1If Val(ComboBox1.Items(i)) > max Thenmax = ComboBox1.Items(i)imax = iEnd IfIf Val(ComboBox1.Items(i)) < min Thenmin = ComboBox1.Items(i)imin = iEnd IfNextt = ComboBox1.Items(ComboBox1.Items.Count - 1)ComboBox1.Items(ComboBox1.Items.Count - 1) = ComboBox1.Items(imax)ComboBox1.Items(imax) = tEnd Sub实验6-2Private Sub Button1_Click(……) Handles Button1.ClickDim m%, n%m = TextBox1.Textn = TextBox2.TextTextBox3.Text = f(m) / f(n) / f(m - n)End SubFunction f(ByVal a%)Dim i%, s#s = 1For i = 1 To as = s * iNextf = sEnd FunctionPrivate Sub Button2_Click(……) Handles Button2.ClickTextBox1.Text = ""TextBox2.Text = ""TextBox3.Text = ""End Sub实验6-3Private Sub Button1_Click(……) Handles Button1.ClickDim a(9) As Integer, i%, n%Randomize()Label1.Text = ""For i = 0 To 9a(i) = -Int(Rnd() * 101 + 300)Label1.Text &= a(i) & " "NextCall min(a, n)Label1.Text &= vbCrLf & "最小值=" & nEnd SubSub min(ByRef a() As Integer, ByRef amin%)Dim i%amin = a(0)For i = 1 To UBound(a)If a(i) < amin Thenamin = a(i)End IfNextEnd Sub实验6-4Private Sub Label4_Click(……) Handles Label4.ClickLabel5.Text = Format(Math.Sin(Val(TextBox1.Text)), "0.00000") End SubPrivate Sub Label2_Click(……) Handles Label2.ClickLabel3.Text = mysin(Val(TextBox1.Text))End SubFunction mysin!(ByVal x!)Dim t#, i%, s#t = xi = 1s = tDot = -1 * t * x * x / ((i + 1) * (i + 2))i = i + 2s = s + tLoop While Math.Abs(t) > 10 ^ -5mysin = Format(s, "0.00000")End Function实验6-5Private Sub TextBox1_KeyPress(……) Handles TextBox1.KeyPressIf Asc(e.KeyChar) = 13 ThenIf IsH(TextBox1.Text) ThenLabel3.Text &= TextBox1.Text & "★" & vbCrLfElseLabel3.Text &= TextBox1.Text & vbCrLfEnd IfTextBox1.Text = ""End IfEnd SubFunction IsH(ByRef n%) As BooleanDim i%, Le%, s$IsH = Trues = Trim(Str(n))Le = Len(s)For i = 1 To Le \ 2If Mid(s, i, 1) <> Mid(s, Le - i + 1, 1) Then IsH = FalseNext iEnd Function实验6-6Private Sub Button1_Click(……) Handles Button1.ClickDim even%, odd1%For even = 6 To 100 Step 2For odd1 = 3 To even \ 2 Step 2If prime(odd1) = True And prime(even - odd1) = True ThenListBox1.Items.Add(even & "=" & odd1 & "+" & even - odd1) End IfNextNextLabel1.Text = "6到之间有" & ListBox1.Items.Count & "对素数和"End SubFunction prime(ByVal m%) As BooleanDim i%prime = TrueFor i = 2 To m \ 2If m Mod i = 0 Thenprime = FalseEnd IfNextEnd Function实验6-7Private Sub Form1_Click(……) Handles Me.ClickDim i%, ss$Label1.Text = "1000以内的完数为：" & vbCrLfFor i = 1 To 1000If fw(i, ss) ThenLabel1.Text &= i & "=" & Mid(ss, 1, Len(ss) - 1) & vbCrLf End IfNextEnd SubFunction fw(ByVal n%, ByRef s$) As BooleanDim i%, sum%s = ""sum = 0For i = 1 To n \ 2If n Mod i = 0 Thensum = sum + is &= i & "+"End IfNextIf sum = n Then fw = True Else fw = FalseEnd Function实验6-8Sub delestr(ByRef s1$, ByVal s2$)Dim i%i = InStr(s1, s2)Do While i <> 0s1 = Mid(s1, 1, i - 1) & Mid(s1, i + Len(s2))i = InStr(s1, s2)Loop End SubPrivate Sub Button1_Click(……) Handles Button1.ClickDim s1, s2 As Strings1 = TextBox1.Text s2 = TextBox2.Text delestr(s1, s2)TextBox3.Text = s1。
VB实验教材的实验与习题答案
实验4-11
Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St
?
实验4-12
i\100 ; (i Mod 100)\10
?
习题
一、 选择题
1．C 2. C 3.A 4. D 5.A 6. B 7. B 8. D 9. B
Const g = 9.8
Dim V0 As Single, t As Single
Dim S As SingFra biblioteke V0 = InputBox("请输入V0的值：")
t = InputBox("请输入时间t的值：")
S = (1 / 2) * g * t ^ 2 + V0 * t
Randomize
a = Int(Rnd * (999 - 100 + 1) + 100)
h = Mid(CStr(a), 1, 1)
t = Mid(CStr(a), 2, 1)
n = Right(CStr(a), 1)
Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")
List1.AddItem Log(a) / Log(b)
End Sub
‘关系运算
Private Sub Command2_Click()
List1.Clear
List1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12)
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实验报告标准答案
竭诚为您提供优质文档/双击可除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运行结果。
大学VB实验3答案
上海立信会计学院本科实验报告班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间：实验3 选择结构一、 实验目的1． 掌握单分支、双分支和多分支条件语句的使用2． 掌握情况语句的使用及其与多分支条件语句之间的区别。
二、实验要求1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(31.vbp)、窗体文件(31.frm) 及可执行文件（31.exe ），本实验中的第二题，需保存的文件有：工程文件(32.vbp)、窗体文件(32.frm) 及可执行文件（32.exe ），其余实验依此类推。
2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。
三、 实验内容：1. 编一程序输入上网的时间并计算上网费用，计算的方法如下：费用= 50250~102.51030⎪⎩⎪⎨⎧>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。
上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。
要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。
图3-1Option ExplicitPrivate Sub Command1_Click()Dim s!, sum!s = Val(T ext1.T ext)If s <= 0 ThenMsgBox "上网时间不能为负数和零", , "输入错误"T ext1 = ""T ext1.SetFocusElseIf s <= 10 Thensum = 30ElseIf s > 10 And s <= 50 Thensum = 30 + (s - 10) * 2.5ElseIf s > 50 And s <= 60 Thensum = 130 + (s - 50) * 2Elsesum = 150End IfLabel2.Caption = sumEnd IfEnd Sub2.利用InputBox函数输入a、b、c三个整数，按从大到小的顺序显示（用Print方法输出），窗体中所有控件字体大小为小四。
VB实验任务5答案
实验任务5课程名称：程序设计基础VB实验名称——实验五Visual Basic程序设计基础(1)一、实验目的：1．掌握变量的定义和赋值2．掌握各种类型的数据的使用3．掌握各种运算表达式的值和使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1(1) 请分别在窗体的单击事件过程中声明定义如下变量,记录错误类型,并分析出错原因,将出错的变量名进行修改, 使其不再出错。
P59Visual Basic代码中要声明和命名一些元素（变量、常量、数据类型、过程等），命名时必须遵循以下规则：●必须以字母或汉字开头，由字母、汉字、数字或下划线组成。
●字符必须并排书写，不能出现上下标形式。
●长度小于等于255个字符。
●不可以是系统关键字。
●不可以包含空格、西文标点符号和类型说明符%、&、!、#、@、$。
●在作用域范围内必须唯一。
Private Sub Form_Click()Dim 5Fg As Integer’错在数字开头，修正为FgDim L*og As Long’错在内部包含*，修正为LogDim s-ig As Single’错在内部包含-，修正为sigDim dob_ As Double‘正确Dim _Name As string ’错在_开头，修正为Name_Dim bln@Frag As Boolean’错在内部包含@，修正为blnFragDim do As Date ’错在是系统关键字，修正为dEnd Sub,并分析出错原因)运行时，单击窗体会出现“溢出错误”的提示；分析出错原因：32768超出了Integer变量Fg的表示范围①32768(或-32768、-32769)——对Fg整型变量赋值32768或-32769，运行时，单击窗体会出现“溢出错误”的提示；分析出错原因：32768和-32769超出了Integer变量Fg的表示范围②32768(或-32768、-32769) ——对Log长整型变量赋值，运行时，单击窗体会正常显示接收的值；分析原因：32768(或-32768、-32769)都没有超出Long长整型变量Log的表示范围③1234567.12345678(或123456789.123、1.2345678)——对sig单精度变量赋值1234567.12345678，运行时，单击窗体会显示1234567；分析原因：在Visual Basic中规定单精度浮点数精度即有效位数为7位，单精度型和双精度型常量的小数形式若超出有效位数，进行小数部分的截取；对sig单精度变量赋值123456789.123，运行时，单击窗体会显示1.234568E+08；分析原因：在Visual Basic中规定单精度浮点数精度即有效位数为7位，若整数部分超出有效位数，自动转为指数形式表示；对sig单精度变量赋值1.2345678，运行时，单击窗体会显示1.234568；分析原因：在Visual Basic中规定单精度浮点数精度即有效位数为7位，单精度型和双精度型常量的小数形式若超出有效位数，进行小数部分的截取④1234567.12345678(或123456789.123、1.2345678)——对dob_双精度变量赋值，运行时，单击窗体会正常显示接收的值；分析原因：在Visual Basic中规定双精度浮点数精度为15～16位。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
福建农林大学计算机与信息学院(计算机公共基础二级课程)实验报告课程名称：Visual Basic 程序设计*名：***学院: 食品科学学院专业：食品科学与工程年级：2010级学号：************指导老师：***职称：讲师2012 年5 月20 日实验项目列表福建农林大学计算机与信息学院实验报告学院：食品科学学院专业：食品科学与工程年级： 2010级姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩：报告退发（订正、重做）实验一 VB环境和简单应用程序设计一、实验目的和要求1.了解Visual Basic系统对计算机软件、硬件的要求。
2.掌握启动与退出Visual Basic的方法。
3.熟悉visual basic的集成开发环境（IDE）。
4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。
5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。
二、实验内容1.启动Visual Basic 6.0，熟悉其集成开发环境。
2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1.图1-1 运行界面3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。
运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。
图1-2 运行界面4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和Text2），其初始文本为空，设置适当的属性使文本框Text2可以显示多行文本，有一个垂直滚动条，而且Text2不可编辑文本。
运行时，在文本框Text1中输入一个字符串，单击窗体，则将Text1中的文本复制到Text2中。
图1-3 运行界面5.按图1-4在标题为“标签内容显示”的窗体Form1上画一个标题为空、带有单边框的标签Label1,再画两个标签分别为“显示”和“清空”的命令按钮（Command1和Command2）。
运行时，单击“显示”按钮，则在标签Label1中显示“欢迎使用Visual Basic6.0！”；单击“清空”按钮，则Label1的标题为空。
图1-4 运行界面三、实验步骤1、实验内容1的操作步骤：（1）单击“开始”按钮，在“程序”中执行“Microsoft Visual Basic6.0中文版”命令，系统将自动显示“新建工程”对话框。
（2）在“新建工程”对话框中选中“标准EXE”图标，单击“打开”按钮，就可以打开Visual Basic集成开发环境（IDE）。
（3）观察其标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处。
（4）将鼠标指向工具箱上的各个标准控件，了解它们各自的默认名称。
（5）分别单击“工程”、“属性”、“窗体布局”窗口及“工具箱”窗口右上角的“关闭”按钮，将其全部关闭。
（6）执行“视图”菜单中的“工程资源管理器”、“属性窗口”、“窗体布局窗口”及“工具箱”命令，分别打开相应的窗口。
2、实验内容2的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个标签和一个文本框。
（2）各控件属性设置如下：控件名称属性属性值Form1 Caption 第一个应用程序Label1Caption 欢迎您使用Visual Basic Font→字体选择“隶书”AutoSize TureLabel2Caption 请输入您的姓名Font→字体选择“斜体”Text1 Text （空白）（3）各控件的布局如下：（4）单击“文件︱保存工程”菜单项，以Fe.frm为窗体文件名和为Fe.vbp 为工程文件名保存在VB实验文件夹中。
3、实验内容3的操作步骤：（1）新建一个新建一个“标准EXE”类型的工程，然后在窗体Form1上添加三个命令按钮，并将它们名称分别改为C1、C2和C3。
控件名称属性属性值Form1 Caption 命令按钮设置C1 Caption 禁止用C3C2 Caption 允许用C3C3 Caption C3（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click()Command3.Enabled = False ’禁止使用C3命令按钮End SubPrivate Sub Command2_Click()Command3.Enabled = True ’允许使用C3命令按钮End Sub（5）单击“文件︱保存工程”菜单项，以Cs.frm为窗体文件名和为Cs.vbp 为工程文件名保存在VB实验文件夹中。
4、实验内容4的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个文本框。
（2）各控件属性设置如下：控件名称属性属性值Form1 Caption 文本复制Text1 Text （空白）Text2Text （空白）MultiLine Ture ScrollBars 2-Vetical Licked Ture（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Form_Click()Text2.Text = Text1.Text ’把Text1中的文本信息复制到Text2 End Sub（5）单击“文件︱保存工程”菜单项，以Copy.frm为窗体文件名和为Copy.vbp 为工程文件名保存在VB实验文件夹中。
5、实验内容5的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和两个命令按钮。
（2）各控件属性设置如下：控件名称属性属性值Label1Caption （空白）BorderStyle 1-Fixed SingleCommand1 Caption 显示Command2 Caption 清空（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click()Label1.Caption = "欢迎使用VISUAL BASIC 6.0" ’显示文本信息End SubPrivate Sub Command2_Click()Label1.Caption = "" ’退出程序End Sub（5）单击“文件︱保存工程”菜单项，以Es.frm为窗体文件名和为Es.vbp 为工程文件名保存在VB实验文件夹中。
四、实验环境1.硬件：PC机2.软件：Windows操作系统、Visual Basic 6.0五、实验结果五个实验都能按照要求做出相应的结果，结果都正确。
六、总结1、掌握了的启动与退出，熟悉了的集成开发环境（IDE）；2、掌握了应用程序建立、编辑、运行和保存的全过程；3、了解了系统的基本控件的简单应用。
福建农林大学食品科学学院实验报告学院：食品科学学院专业：食品科学与工程年级： 2010级姓名：邹丽平学号： 102258016001 实验室号：宝玲楼304_计算机号： 01 实验时间： 2012.3.12 指导教师签字：黄红兵成绩：实验二顺序结构程序设计一、实验目的1、掌握常用内部函数的使用。
2、掌握表达式、赋值语句的正确书写规范。
3、掌握InputBox与MsgBox的使用。
4、掌握Print方法的使用。
二、实验内容1、在立即窗口中运行下列表达式的值:(1)16/4-2^5*8/4mod5\2(2)Int(198.555*100+0.5)/100(3)123+Mid(“123456”,3,2)(4)123&Mid(“123456”,3,2)(5)Ucase(Mid(“123456”,3,4))2、设计图2-1所示的窗体Form1，其标题为“Print方法”。
运行时，自动在窗体上显示图2-1所示的图形。
图2-1 运行界面【提示】（1）将窗体的Caption属性设置为“Print方法”，AutoRedraw属性设置为Ture。
（2）在Form-Load()事件中输入代码，用Print语句及Tad()函数和Spc()函数实现。
3、请按图2-2所示在窗体Form1上创建一个初始文本为“Visual Basic”的文本框Text1以及两个标题分别为“放大”和“还原”的命令按钮（Command1和Command2）。
运行时，单击“放大”按钮，将文本框中显示的字符串放大2倍或3倍（随机数）；单击“还原”按钮，则文本框中显示的字符串大小还原。
【提示】（1）字体缩放使用FontSize属性。
（2）要还原字体大小，必须保存放大前的字体大小，可以使用模块级变量来保存放大前的字体大小。
（3）放大2倍或3倍可以用随机数：Int(Rnd*2+2)实现图2-2 运行界面4、请按图2-3所示在标题为“日期时间函数应用”的窗体Form1上添加两个标题分别为“当前日期”和“当前星期”的标签（Label1和Label2），两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“确定”和“退出”的命令按钮（Command1和Command2）。
运行时，单击“确定”按钮，则在文本框Text1和Text2中分别显示当前系统日期和当前星期；单击“退出”按钮，则结束程序运行。
图2-3 运行界面【提示】使用Date()、Weekday()以WeekdayName()及函数来实现。
5、请按图2-4所示在标题为“计算”的窗体Form1上添加三个标题分别为“半径”、“周长”和“面积”的标签（Label1、Label2和Label3）以及以一个标题为空的标签，然后再添加两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“输入半径”和“计算”的命令按钮（Command1和Command2）。
运行时，单击“输入半径”按钮，则出现图2-4所示的输入框，输入半径并按“确定”按钮，则在标签Lr中显示刚才输入的半径；单击“计算”按钮，则计算圆的周长和面积，并分别在Text1和Text2中显示。
【提示】（1）使用InputBox()及函数实现数据输入，为了使程序正常运行应通过Val()函数将InputBox()的函数值转换为数值型。
（2）求周长公式为：L=2∏R,求面积公式为：S=∏R2,其中∏可以定义为一个符号常量，用PI来表示。