visual basic (vb)学案一

《visual basic (vb)学案一》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VISUALBASIC(VB)学案一一、VB和QB的区别：它们之间有密切的关系。VB是VISUALBASIC，QB是QUICKBASIC，他们都来源于BASIC，VB是可视化的面向对象（教材P44）的编程语言，而QB是面向过程的。VB的三要素：窗口、事件、消息（事件驱动教材P48）。二、VB最基本操作：1、新建1：点击打开桌面上的VisualBasic图标，在弹出的如图的窗口中选择“创建标准EXE”按钮。2、新建2：菜单栏文件——新建工程3、保存：菜单栏文件——保存工程或工程另存为：（1）窗体文件（frm）(2)工程文件（VBP）（教材P54）4、生成：菜单栏文件——

2、生成EXE文件三、VB设计环境：（教材P52）1、标题栏2、菜单栏3、工具栏4、工具箱（控件工具箱）5、对象窗口（窗体，缺省名为Form1）6、工程资源管理器（工程窗口）7、属性窗口8、窗体布局窗口注：如上述这些窗口或栏被关闭，打开使用：菜单栏视图——选择相应窗口或栏。四、创建VisualBasic应用程序有三个主要步骤：1、创建应用程序界面。举例如图，在对象窗口中，在窗体上利用控件工具箱的文本框和命令按钮创建应用程序界面。2、（为对象）设置属性。举例，利用属性窗口，修改属性。3、（为事件）编写代码。举例，双击Command1按钮对象，打开Command1的代码窗口，

3、输入如图内容。五、运行和调试：1、菜单栏：“运行”——“启动”（中断或结束），或单击工具栏中的“启动”或按F5键。单击刚才在窗体上创建的命令按钮，文本框中就会显示4"Hello,world!"。2、菜单栏：“调试”——逐语句。六、简易QB代码改称VB语句（一）基本过程1、创建应用程序界面。对象窗口中，在窗体上，利用控件工具箱，创建命令按钮。2、设置属性：略过。3、编写代码：双击Command1按钮对象，打开Command1代码窗口，输入程序代码。在PrivateSubCommand1_Click()和EndSub中写程序代码（二）程序代码Ø选择语句、循环语句：同QB（

4、教材P76、77、78）、注释语句：单引号开头。Ø输出语句相同：输出a的值printa输出a和b的值printa,b或者printa;bØ输入语句不同：inputx改成x=InputBox("提示语")Ø常见函数相同：abs(x),int(x),sqr(x)（教材P84）Ø要定义变量：（教材P57）格式1：Dim变量1,变量2,……As变量的类型格式2：Dim变量1As变量的类型：Dim变量2As变量的类型Ø变量的类型：（教材P58）数值型：整数Integer；长整数long；单精度实数Single；双精度实数；Double字符型：字符串String；逻辑型：逻辑Bo

5、olean；日期型：日期Date。Ø变量类型的转换：x=val(x)从原字符型变成数值型；x=str(x)从原数值型变成字符型。（教材P85）Ø语句并列：不用“；”要用“：”例如a=1:b=1七、顺序结构练习：【练1】用ＶＢ编写，键盘输入一个正方形的边长a，求该正方形与其内切圆所夹部分的面积并输出。（学案P5）PrivateSubCommand1_Click()Dima,s1,s2,sAsSingle’定义变量为单精度实数a=InputBox("请输入正方形边长")a=Val(a)s1=a*as2=3.14*a*a/4s=s1-s2PrintsEndSub【练2】用Ｖ

6、Ｂ编写，键盘输入任意一个三位正整数n，输出这个三位数各位数字之和total。例如：输入456，输出结果为15。（学案P5）八、分支结构练习：【练1】用ＶＢ编写，从键盘输入的两个不相等的数中较大的数，请用双分支结构。（学案P11）4【练2】用ＶＢ编写，某手机话费套餐规定：每月60元，可通话300分钟，超过300分钟的部分，另按每分钟0.4元计算。键盘输入当月通话时间（分钟），计算当月实际需付的手机费。如果输入的通话时间小于0，则应输出“输入数据有误”的提示信息。请用VB语言编写程序。（学案P17）九、循环结构练习：【练1】用ＶＢ编写，求s=1×2×3×……×n值(即求N

7、的阶乘)，其中n由键盘输入（学案P31）【练2】用ＶＢ编写，找出1-1000中所有能被7和11整除的数。（学案P41）十、数组练习：Ø数组的定义：（教材P91）Dim数组名（[下界to]上界[，[下界to]上界…]）As数据类型如果只写上界，则一般默认下界从0开始【练1】用ＶＢ编写，依次输入10个数存放到数组中，再将其逆序输出。（学案P47）PrivateSubCommand1_Click()Dima(1to10)AsSingleDimiAsIntegeri=1DoWhilei<=10a(i)=InputBox("请输入一个数")a(i)=Val(a