资源描述：
《vb集成开发环境初识》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、实验一VB集成开发环境初识一、预习内容：VB的启动退出方法、VB创建工程的基本步骤、VB集成开发环境设置二、实验目的：1熟悉VB集成开发环境2掌握VB的启动退出方法3掌握VB创建工程的基本步骤4掌握VB集成开发环境设置三、实验内容：1.练习VB的启动退出方法2.利用“视图”菜单显示属性窗口、代码窗口、工程资源管理器窗口、工具箱等3.建立一个简单的VB程序运行并保存4.通过“工具”菜单的“选项”命令设置VB环境四、问题如何建立一个简单的VB程序运行并保存？实验二基本控件（一）一、预习内容：常用控件的属性、事件和方法二、实验目的：掌握常用控件的属性、事件和
2、方法。三、实验内容：在窗体上建立两个命令按钮，设置相应属性四、问题如何设置控件的相应属性？实验三基本控件（二）一、预习内容：常用控件的属性、事件和方法二、实验目的：综合运用常用控件的属性、事件和方法。三、实验内容：在窗体中添加5个标签并设置相关宽度和高度等的属性。四、问题你知道有几种添加控件的方法？实验四VB语言基础一、预习内容：VB的基本数据类型及常量、变量、表达式；常用函数的分类及使用；简单赋值语句。二、实验目的：1.掌握VB的基本数据类型及常量、变量、表达式2.掌握VB常用函数的分类及使用3.掌握VB简单赋值语句三、实验内容：1.在立即窗口中利用
3、“=”赋值语句给各种类型的变量赋值2.在立即窗口中验证各函数的功能3.在立即窗口中用PRINT语句输出变量、函数、表达式。四、问题立即窗口的作用是什么？实验五If语句的使用一、预习内容：if语句的使用、程序设计的方法二、实验目的：掌握if语句的使用、程序设计的方法。三、实验内容：判定用户输入的数字是正数、负数还是零。四、问题if语句常在哪些情况使用？实验六多分支选择语句的使用一、预习内容：多分支选择语句的使用、程序设计的方法二、实验目的：掌握多分支选择语句的使用、程序设计的方法。三、实验内容：将百分制学生的成绩分成5分制。四、问题多分支选择语句与if语
4、句的区别是什么？实验七while循环语句一、预习内容：while语句、do…while语句实现循环程序设计的方法二、实验目的：掌握while语句、do…while语句实现循环程序设计的方法三、实验内容：1.求1~100之间所有能被7整除的数之和。2.求两个数的最大公约数。3.求Fibonacci数列的前20项四、问题在哪些情况下使用while语句、do…while语句？实验八for循环语句一、预习内容：for语句实现循环程序设计的方法二、实验目的：掌握for语句实现循环程序设计的方法三、实验内容：1.求1000以内的水仙花数。2.输出由*构成的菱形。四
5、、问题for语句与while语句、do…while语句区别？实验九循环嵌套一、预习内容：分支结构与循环结构、循环嵌套的使用方法二、实验目的：1.掌握循环嵌套的使用方法2.熟悉分支结构与循环结构的综合运用三、实验内容：1.求100以内的所有素数2.输出九九乘法表四、问题分支结构与循环结构的区别？实验十循环嵌套综合练习一、预习内容预习数组的定义和引用方法。二、实验目的1．掌握数组的定义规则，正确运用数组进行程序设计。2．掌握有规律的数组形成，掌握按规定格式的显示。三、实验内容实验功能：打印出以下的杨辉三角（要求打印出10行）。111121133114641
6、。。。。。。。。。。[程序]Dims(20,20)AsIntegerDimi%,j%,k%,n%N=Val(Text1.Text)Picture1.ClsFori=1Tons(i,1)=1:s(i,i)=1NextiFori=3TonForj=2Toi-1s(i,j)=s(i-1,j-1)+s(i-1,j)NextjNextiFori=1TonForj=1ToiPicture1.PrintSpc(4-Len(Str(s(i,j))));s(i,j);NextjNexti四、问题若希望杨辉三角按如下格式输出时，程序应如何变动？11112113311464
7、1实验十一数组的基本操作一、预习内容1．预习数组中元素的插入和删除操作。2．预习动态数组的使用方法。二、实验目的1．掌握删除数组中某元素的方法。2．掌握动态数组与静态数组的使用方法。三、实验内容编一程序，对已知数组a()删除数组中某个元素的程序。[程序]PrivateSubForm_Click()Dima(),k%,m%,n%a=Array(1,3,8,6,10,9,7,4,2,5)k=Val(InputBox(“输入要删除的值”))Form=Lbound(a)ToUbound(a)Ifk=a(m)ThenForn=m+1ToUbound(a)a(n-
8、1)=a(n)NextjReDimPreservea(Lbound(a)ToUbound(a)
