VB程序设计实验

VB程序设计实验

实验一 Visual Basic环境和程序设计初步

一、实验目的

1．了解Visual Basic系统对计算机软、硬件的要求。

2．掌握启动与退出Visual Basic的方法。

3．掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。

4．掌握常用控件（文本框、标签、命令按钮）的应用。

二、实验内容

实验1.1 联系将教学篇第一章重的例题自己建立一个工程，并运行程序，体会效果。

实验1.2 启动Visual Basic6.0，创建一个“标准EXE”类型的应用程序，要求在屏幕上显示“欢迎您使用Visual Basic”，并“请输入您的姓名”。

实验1.3 Move方法练习、移动具有浮雕效果的文字和插入图片。

在窗体插入心形图片，窗体上有以浮雕效果显示的字符串“新年快乐”，还有两个命令按钮。按钮上分别有左右指向图案，要求当单击左指向按钮时，字符串“新年快乐”向左移动50个单位，单击右指向按钮时，向右移动50单位。

实验1.4 若将上题改为上下移动，同时命令按钮的图标也相应改变，程序如何改写？若用Move方法实现，会出现什么问题，如何使用？

实验1.5 Print方法练习，显示字符图形。

实验1.6 字号、按钮、随机函数练习

在文本框输入一字符串，对字号进行放大和缩小，缩放比例由随即函数产生。

实验二顺序程序设计

一、实验目的

1．掌握表达式、赋值语句的正确书写规则。

2． 掌握常用函数的使用。

3． 掌握InputBox 与MsgBox 的使用。

二、实验内容

实验 2.1 编一个华氏温度与摄氏温度之间转换的程序。所用公式为：325

9+=C F )32(9

5?=

F C ，要求用按钮实现转换。即单击“华氏转”按钮，则将摄氏温度转换为华氏温度，同样，单击“摄氏转”按钮，则将华氏温度转换为摄氏温度。 实验2.2 输入半径，计算圆周长和圆面积。

实验2.3 窗体上有2个命令按钮，第一个按钮显示“文字处理”，第2个按钮显示“VB6.0”,要求单击命令按钮，，利用shell 函数执行对应的应用程序。

实验2.4 窗体上有2个命令按钮，第一个按钮显示“计算器”图标，第二个按钮显示”MsDos ”

图标，要求单击命令按钮， 利用shell 函数执行对应的应用程序。

实验2.5 利用计算机解决古代数学问题“鸡兔同笼”问题。即在同一笼子里有总数为m 只鸡和兔，鸡和兔的总脚数为n 只，求鸡和兔各多少只？

实验2.6 我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。

实验三 选择结构程序设计

一、实验目的

1． 掌握好逻辑表达式的正确书写形式。

2． 掌握单分支与双分支条件语句的使用。

3． 掌握多分支条件语句的使用。

4． 掌握情况语句的使用及与多分支语句的区别。

二、实验内容

实验 3.1 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以

三门功课成绩m1、m2和m3为评奖依据。奖学金一等奖评定标准如下：

（1） 平均分大于95分者。

（2） 有两门成绩是100分，且第三门功课成绩不低于80分者。

实验3.2 输入x 、y 、z 三个数，按从小到大的次序显示。

实验3.3 编一模拟袖珍计算器的完整程序，要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。

实验3.4 输入一个数字（1－7），用英文显示对应的星期一至星期日。

实验3.5 某市公用电话收费标准如下：通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过一分钟加收0.15元；在7:00-9:00之间通话者，按上述收费标准全价收费；在其他时间通话者，一律按收费标准的半价收费。试计算某人在T 时间通话S 分钟，应缴多少电话费。

实验四 循环结构程序设计

一、实验目的

1． 掌握For 语句的使用。

2． 掌握Do 语句的各种形式的使用。

3． 掌握如何控制循环条件，防止死循环或不循环。

二、实验内容

实验4.1 用单循环显示有规律图形。

实验4.2 计算 (29)

12211611117141211++++++++

=s ，当第I 项的值<10-4时结束。

实验4.3 编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。

实验4.4编一程序，对于给定位的数据产生校验位。

实验五 数组

一、实验目的

1． 掌握数组的声明、数组元素的引用、

2．掌握静态数组和动态数组的使用差别。

3．应用数组解决与数组有关的常用算法。

二、实验内容

实验5.,1 随机产生10个30－100（包括30、100）的正整数，求最大值、最小值和平均值，并显示整个数组的值和结果。

实验5.2随机产生20个学生的计算机课程的成绩，并显示。统计各分数段人数，即0－59、60－69、70－79、80－89、90－100，并显示结果。

实验5.3随机产生15个不重复的A－Z（包括A、Z）的大写字母，存放在数组中。

实验5.4 随机产生10个递增的100－400的随机数，存放到数组中，并显示结果。

实验六过程

一、实验目的

1．掌握自定义函数过程和子过程的定义和调用方法。

2．掌握形参和实参的对应关系。

3．掌握值传递和地址传递的传递方式。

4．掌握变量、函数和过程的作用域。

5．掌握递归概念和使用方法。

6．熟悉程序设计中的常用算法。

二、实验内容

实验6.1 编一子过程ProcMin，求一维数组a中的最小值，子过程的形参自己确定。主调程序随即产生10个－300～－400之间的整数，调用ProcMin子过程，显示最小值。

实验6.2 编一函数Max（a（）），求一维数组a中的最大值。主调程序随机产生10个100～200之间的数，调用Max函数，显示最大值。

实验6.3 编一个函数过程HtoD（H），将16进制字符串转换成10进制数。主调程序调用HtoD函数，再调用内部函数Hex（number）进行逆向验证。

实验6.4 编一函数过程MaxLength（s），在已知的字符串s中，找出最长的单词。假定字符串s中只含有字母和空格，空格分隔不同的单词。

实验6.5 编一函数过程IsH（n），对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于是回文数显示一个★。

实验七界面设计

一、实验目的

1．学会使用通用对话框进行编程。

2．掌握窗口菜单、弹出式菜单和实时菜单的设计方法。

3．掌握工具栏、图像列表框控件的使用。

4．掌握状态栏控件的使用。

5．掌握RichTextBox控件的使用。

6．综合应用所学的知识，编制具有可视化界面的应用程序。

二、实验内容

实验7.1在窗体上放置通用对话框、命令按钮和图形框。通过单击命令按钮弹出文件打开对话框，在对话框内只允许显示图形文件，初始目录为c:\windows。当选定一个文件后，单击“打开”按钮，在图形框内显示所选择的图片内容。

实验7.2 在窗体上放置文本框、通用对话框控件。设置一个含有2个主菜单项的菜单系统，分别为“菜单1”和“菜单2”。其中“菜单2”包括“号字体”、“粗体”、“斜体”3个菜单命令。单击“菜单1”可打开字体对话框，要求字体对话框内出现删除线、下划线、颜色元素控制等，可设置文本框的字体属性。根据粗体、斜体的选择情况，在菜单项“粗体”、“斜体”左边加上或取消标记“√”同时使“字体”子菜单项标题显示为所选的具体字号，例如，“10.5”号字体。另外可通过鼠标右键弹出“菜单2”，显示当前设置情况。

实验7.3 在实验7.2“菜单1”的子菜单“清除”前添加一个“查找”菜单命令，并与“清除”菜单命令之间有一条分隔线，单击“查找”菜单命令，显示查找对话框，当在文本框内输入内容时，可在主窗体的文本框内查找指定的内容。

实验7.4为实验7.3添加一个“帮助”菜单，在“帮助”菜单中的“关于……”命令对话框中显示有关该应用程序的版本信息。

实验八图形技术

一、实验目的

1．了解VisualBasic的图形功能。

2．掌握建立图形坐标系的方法。

3．掌握常用几何图形绘制。

4．掌握简单动画设计的方法。

5．掌握实现图形漫游的方法。

二、实验内容

实验8.1 在窗体Form1建立一个坐标系，X轴的正向向右，Y轴的正向向上，原点在窗体中央。在坐标系上用Line方法绘制－2π~2π之间的正弦曲线。

实验8.2 建立一个图形浏览器，窗体上放置驱动器列表框、目录列表框、文件列表框、标签、图像框何滚动条等控件，当用鼠标在文件列表框选择一个图形文件后，标签内显示所选择的文件的目录路径，图像框内显示该文件的图形，使用滚动条可缩放图像框内的图形。

实验8.3 用Line方法在窗体上绘制艺术图案，构造图案的算法为：把一个半径为r的圆周等分为n份（要求等分数通过文本框指定），然后用直线将这些点两两相连。

实验8.4 用pset方法在窗体上画1000个随机点，点的大小为在单位1～4之间变化，点的颜色也随机变化。

VB程序设计实验报告

《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 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题：

70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

VB程序设计实验要求及报告

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。

图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150

VB实验报告

VB实验报告 实验一、VB控制结构 [实验目的] 1.掌握选择语句的使用 2.掌握循环语句的使用 [实验内容] 一、VB编程基础 练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行 时在窗体上单击，分别会发生什么情况，为什么？ ①Private Sub Form_Click() I = 10 Print I End Sub ②Private Sub Form_Click() Dim I% I = 10 Print I End Sub ③Option Explicit Private Sub Form_Click() I = 10 Print I End Sub ④Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I

End Sub 第一个程序运行的结果是： 点击一次窗体便会出现一个“10” 第二个程序的运行结果是： 也是点击一次窗体出现一个“10” 第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：

在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？ Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub 第一个程序运行结果是： 第二个程序运行的结果是：

二、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 Private Sub Text1_Change() Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp X1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框 X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框 X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框 If X1 > X2 Then Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换 End If If X1 > X3 Then Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换 End If If X2 > X3 Then Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换 End If Print: Print Print "输出结果：" ’在屏幕上输出“输出结果：” Print Print x1,x2,x3 ’在屏幕上输出x1,x2,x3 End Sub

VB课程实验报告

山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val

If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)

程序设计语言VB_习题集(含答案)

《程序设计语言VB》课程习题集 一、单选题 1.Visual Basic是一种面向（）的程序设计语言。 A.用户 B.事件 C.程序 D.对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A.vbp B.for C.frm D.bas 3.Visual Basic6.0中规定窗体文件的扩展名是（）。 A.for B.frm C.vbp D.bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A.把它的Visible属性设置成False B.把它的Visible属性设置成True C.把它的Enabled属性设置成False D.把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A.Font B.Color C.Text D.Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A.Value B.Cancel C.Default D.Enabled 7.在VB中，记录对象数据的是（）。 A.方法 B.事件 C.属性

8.在文本框上显示文本的属性是（）。 A.Value B.Text C.Print D.Enabled 9.InputBox函数返回值的类型为（）。 A.字符串 B.数值 C.变体 D.数值或字符串（视输入的数据而定） 10.设有语句：a=InputBox("请输入数值:","输入示例","100")程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A.字符串"20" B.字符串"120" C.默认值100 D.数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 https://www.sodocs.net/doc/7c3654503.html,bel控件 B.TextBox控件 C.Timer控件 https://www.sodocs.net/doc/7c3654503.html,mandButton控件 12.语句PRINT"25*4"的输出结果是（）。 A.25*4 B."100" C.100 D.出现错误信息 13.只能用来显示字符信息的控件是（）。 A.文本框 B.标签框 C.图片框 D.图像框 14.下列可作为Visual Basic变量名的是（）。 A.A%A B.4A C.?xy D.Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A.timefly

VB实验报告一

本科实验报告 课程名称：人机界面程序设计基础 实验项目：一、VB环境和可视化编程基础实验地点： 专业班级：学号： 学生姓名： 指导教师：李何 年月日

一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式 提示：使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。 三、主要仪器设备 计算机

四、实验步骤 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 打开VB软件，建立标准exe，在窗体设计器中添加Command1，更名为“按钮” 添加text1，删掉名称。 双击按钮，编写程序如图

VB实验一 实验报告

实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：

S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】

VB语言程序设计试题库

VB程序设计 一、判断题 1、同一Form窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。( X ) 2、一个对象的若能识别多个事件,我们只能对其中一个事件编程( ) 3、单选按钮与复选框对象的Value属性类型不同,且只能取值True与False。( √ ) 4、事件过程由某个用户事件或系统事件触发执行,它不能被其她过程调用。( ) 5、图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值。( √ ) 6、“A=B=C”就是一个合法的Visual Basic语句。( ) 7、当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时,组合框会自动把这一条目添加到它的列表框中。( ) 8、 Visual Basic程序的运行可以从 Main()过程启动,也可以从某个窗体启动。( √ ) 9、在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外。( ) 10、对于文件系统控件,当驱动器控件Drivel中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应的改变,可以在Drive1中的Change事件中使用如下命令。Dir1、Path＝ Drive1、 Drive( √ ) 11、滚动条控件可作为用户输入数据的一种方法。( √ ) 12、单选按钮控件与复选框控件都具有Value属性,它们的作用完全相同。( ) 13、静态变量就是一种局部变量,当原过程再次被执行时,静态变量的初值就是上一次过程调用后的值。( √ ) 14、 Visual Basic提供的几种标准坐标系统的原点都就是在绘图区域的左上角,如果要把坐标原点放在其她位置,则需使用自定义坐标系统。( √ ) 15.注释语句REM可自成一语句。( √ ) 16、用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发KeyPress( ) 17、组合框兼有文本框与列表框两者的功能,用户可以通过键人文本或选择列表中的项目来进行选择。( √ ) 18、当定时器控件的Interval属性值设置为0时,会连续不断地激发Timer事件。( ) 19.执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。( √ ) 2、句“FontName="宋体" ”与“Form1、FontName="宋体" ”的作用完全相同,无一例外。( ) 21局变量只能在窗体的通用区内用Public或global定义。( ) 22、在盘驱动器列表框Drivel的Change事件过程中,代码Dirl、 Path＝Drivel 、 Drive 的作用就是:当Drivel的驱动器改变时,Dirl的目录列表随不同驱动器作相应改变。( √ ) 23.直到型循环至少能执行一次循环体。( √ )

VB程序设计教程第四版课后答案

vb课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答：①向光驱中放入VB安装光盘； ②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动VB。

答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案

一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、 ASCII、1、2 4、 public、通用、Dim、Static、Private、Static 5、 &、+、+ 6、 Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))

VB程序设计教程(第3版)课后实验答案最新版2

1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5

《VB程序设计》实验报告

台州学院 《VB程序设计》实验报告 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click() Text1.Text = "欢迎使用VB！" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示” Private Sub Command1_Click() Label1.Caption = "你好，张三！" Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、 “右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。 Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub

VB语言程序设计

VB语言程序设计 《VB语言程序设计》课程实验教学大纲 一、制定实验教学大纲的依据 根据本校《2004级本科指导性培养计划》和《VB语言程序设计》课程教学大纲制定。 二、本实验课在专业人才培养中的地位和作用 《VB语言程序设计》课程是非计算机专业的一门公共基础课，是一门实践性和实用性都非常强的课程。其主要任务是使学生掌握程序设计的思想、方法和技巧，为应用程序开发打好必要的基础。实验课是本课程重要的教学环节,其目的是使学生掌握VB程序设计的开发环境的基本操作，以及设计图形用户界面的一般方法和技巧，重点掌握程序设计的基本思想和方法。通过接受基本实验技能的训练，提高学生的动手能力和分析、解决问题的能力。 三、本实验课程讲授的基本实验理论 1、对象的概念，常用控件的设置方法和用户界面的设计技巧。 2、变量、数据类型等概念及顺序、选择、循环三大结构的程序设计。 3、数组、过程的概念和基本操作，熟悉一些常用算法。 四、本实验课学生应达到的能力 1、熟悉Visual Basic的程序设计集成开发环境，掌握图形用户界面的一般设计方法和技巧，掌握常用控件的设置方法和其相关事件的应用。 2、掌握条件语句、循环语句、数组和过程的使用，能够运用所学语言解决实际问题，熟悉一些常用算法。

3、掌握程序调试技术，当程序出错时，有能力很快地判断出错误位置和出错原因，并且能很快排除这些错误，使程序能正确运行，培养分析问题、解决问题的能力。 4、加深课堂讲授和书本内容的理解及对语法规则的理解，达到灵活运用和培养程序设计能力的目的。 5、培养良好的程序设计风格。 五、学时、教学文件 学时:本课程总学时为56学时，其中实验为20学时，占总学时的35.7%。 教学文件:教材《Visual Basic程序设计简明教程(第二版)》实验部分;实验报告学生自拟。 要求学生实验前预习实验内容，并编写出源程序或给出初步的解决方案。指导教师应概述实验的设计思想和方法等，具体实验步骤和编写、调试程序由学生独立完成。 六、实验考核办法与成绩评定 1、实验考核每次依据预习、实验完成情况、纪律等综合给出实验成绩。未参加实验者或实验成绩不 合格者，本课程不予通过。 2、实验成绩占该课程总成绩的10%。 七、仪器设备及注意事项 仪器设备:微型计算机、Visual Basic 6.0软件 注意事项:注意保护设备 八、实验项目的设置及学时分配 序号实验项目学时实验类型要求适用专业 1 熟悉VB集成开发环境 2 验证必做工业工程(管理)

VB程序设计实验报告

《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日

一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V

文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器

界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制

(完整版)《VB语言程序设计基础》课程教学大纲.

《VB语言程序设计基础》课程教学大纲 课程编号：0806606506 课程名称：VB语言程序设计基础 英文名称：Visual Basic Language Programming Design 课程类型：专业选修课 总学时：24 讲课学时：14 上机学时：10 学分：1.5 适用对象：电气工程及自动化专业电网监控技术方向 先修课程：《大学计算机基础》、《C语言程序设计》 一、课程性质、目的和任务 本课程是电气工程及自动化专业电网监控技术方向的一门专业选修课，是一门实用性强、面向程序开发与应用的重要的专业课程。随着面向对象的程序设计方法日益成熟，人们考虑将各种图形界面和图像元素作为"对象"预先进行定义，用户在开发时只需直接调用。Visual Basic正是基于这种思想产生的一种Windows应用程序开发工具。它具备易学易用的特点，且功能相当强大，它还拥有非常庞大的Windows应用程序开发用户群。通过本课程的学习，要求学生掌握VB语言的结构及开发环境，程序设计方法与基本数据结构，掌握已有控件与函数的调用方法；通过上机实践培养学生分析具体问题、解决实际问题的能力，为其它编程工具的学习以及今后的基于专业的系统开发打下坚实的基础。 二、教学基本要求 本课程是理论与实践并重的课程，要求学生既要掌握基础理论知识，又要掌握操作计算机和运行程序的基本技能；能够熟练运用VB6.0集成开发环境编制具有中等难度的应用程序，在实践中培养独立分析问题和解决问题的能力。 本课程的基本要求如下： 1．了解VB的特点，掌握在VB集成开发环境中编辑、编译、运行、调试程序的全过程，具备较强的程序调试能力。 2．掌握VB语言的基本语法成分和面向对象程序设计方法。 3．掌握VB 常用控件的使用方法。 4．掌握VB 的用户界面、菜单与多文档界面设计方法。 本课程让学生既掌握了结构化程序设计方法又学会面向对象的编程思想，在实际应用中将两者有机结合。 三、教学内容及要求 1．Visual Basic 程序设计概述 （1）了解VB的发展，功能及特点，了解VB的安装和启动过程。 （2）掌握VB集成开发环境。 2．简单的VB程序设计 （1）掌握对象的概念。

VB程序设计学习与实验指导答案

Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.sodocs.net/doc/7c3654503.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1

2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#

VB语言程序设计

第一题 设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n 的随机整数，并分别显示在3个标签中。 程序如下： Private Sub Form_Load() ‘加载 Dim n As Integer, a As Integer ‘定义随机变量 Dim b As Integer, c As Integer Randomize ‘使rnd函数产生不同序列的随机数 n = Val(InputBox("请输入一个正整数n（n<500）")) 'inputbox函数产生对话框供用户输入数值 a = Int(n * Rnd) ‘在小于n的数随机选取一树值“下同” b = Int(n * Rnd) c = Int(n * Rnd) Label1.Caption = a ‘随机选取的数值n显示在标签上面“下同” Label2.Caption = b Label3.Caption = c End Sub ‘结束运行

第二题 设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中 [提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数. 程序如下： Private Sub Command1_Click() '执行 Dim m As Single, a As Single '定义变量为单精度 Dim b As Single, c As Single Dim d As Single a = Val(Text1.Text) '为变量赋值 b = Val(Text2.Text) c = Val(Text3.Text)

VB设计计算器实验报告

VB 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日

设计功能完整的计算器，实现如下图所示按钮（除“ MC，“MR , “MS，“M+ ）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数opl、op2，小数点是 否真存在的量DecimalFlag ，操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设 置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其 他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作

《VB语言程序设计》习题参考答案

《VB语言程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) (3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))

VB程序设计教程 实验2答案

41011066付乾峰资源1103实验2 自测练习1，程序 Private Sub Command1_Click() Dim s s = Text1.Text Label1.Caption = Left(s, 2) End Sub Private Sub Command2_Click() Dim s s = Text1.Text Label2.Caption = Right(s, 2) End Sub Private Sub Command3_Click() Dim s s = Text1.Text Text1.Text = Label1.Caption & Label2.Caption End Sub 截图

自测练习2，程序 Private Sub Command1_Click() Dim m%, a%, b%, c%, d% m = V al(Text1.Text) a = m Mod 10 b = m \ 10 Mod 10 c = m \ 100 Mo d 10

d = m \ 1000 a = (a + 7) Mod 10 b = (b + 7) Mod 10 c = (c + 7) Mo d 10 d = (d + 7) Mod 10 Print "加密前的4位整数是" & m Print "加密后的结果是" & a & b & c & d End Sub Private Sub Command2_Click() End End Sub 截图 “我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划

一、活动名称 “我和校庆合张影，我给校庆送祝福” ——北京科技大学学生公寓九斋活动 二、活动意义 1.在校庆前，表达九斋学员对北科60年校庆的祝福 2.展现九斋学子积极向上的精神风貌 3.加深学生与楼层长之间的友谊便于以后的管理 4.调动大家对校庆的热情与关注欲望 5.增进同学与同学之间的联系 活动地点及时间 地点：九斋一楼大厅校篮球场 时间：2011年3月20日-25日 三、活动对象 北京科技大学九斋公寓所有学生 四、内容： 1.活动时间推进表 时间任务