VISUAL BASIC (VB)学案一
一、VB和QB的区别：
它们之间有密切的关系。VB是VISUAL BASIC，QB是
QUICK BASIC，他们都来源于BASIC，VB是可视化的面向对
象（教材P44）的编程语言，而QB是面向过程的。VB的三
要素：窗口、事件、消息（事件驱动教材P48）。
二、VB最基本操作：
1、新建1：点击打开桌面上的 Visual Basic 图标，在弹出的如图的窗口中选择“创建标准EXE”按钮。
2、新建2：菜单栏文件——新建工程
3、保存：菜单栏文件——保存工程或工程另存为：（1）窗体文件（frm）(2)工程文件（VBP）（教材P54）
4、生成：菜单栏文件——生成EXE文件
三、VB设计环境：（教材P52）
1、标题栏
2、菜单栏
3、工具栏
4、工具箱（控件工具箱）
5、对象窗口（窗体，缺省名为Form1）
6、工程资源管理器（工程窗口）
7、属性窗口
8、窗体布局窗口
注：如上述这些窗口或栏被关闭，打开使用：菜单栏视图——选择相应窗口或栏。
四、创建 Visual Basic 应用程序有三个主要步骤：
1、创建应用程序界面。
举例如图，在对象窗口中，在窗体上利用控件工
具箱的文本框和命令按钮创建应用程序界面。
2、（为对象）设置属性。
举例，利用属性窗口，修改属性。
3、（为事件）编写代码。
举例，双击Command1按钮对象，打开Command1的代码窗口，输入如图内容。
五、运行和调试：
1、菜单栏：“运行”——“启动”（中断或结束），
或单击工具栏中的“启动”或按 F5 键。单击刚才在
窗体上创建的命令按钮，文本框中就会显示 "Hello,
world!"。  2、菜单栏：“调试”——逐语句。
六、简易QB代码改称VB语句
（一）基本过程
1、创建应用程序界面。对象窗口中，在窗体上，利用控件工具箱，创建命令按钮。
2、设置属性：略过。
3、编写代码：双击Command1按钮对象，打开Command1代码窗口，输入程序代码。在Private Sub Command1_Click()  和End Sub  中写程序代码
（二）程序代码
选择语句、循环语句：同QB（教材P76、77、78）、注释语句：单引号开头。
输出语句相同：输出a的值print a
输出a和b的值print a,b 或者print a;b
输入语句不同：input x 改成x= InputBox("提示语")
常见函数相同：abs(x), int(x),sqr(x)（教材P84）
要定义变量：（教材P57）
格式1：Dim 变量1, 变量2, ……As 变量的类型
格式2：Dim 变量1 As 变量的类型：Dim 变量2 As 变量的类型
变量的类型：（教材P58）
数值型：整数Integer；长整数long；单精度实数Single；双精度实数；Double 字符型：字符串String；逻辑型：逻辑Boolean；日期型：日期Date。
变量类型的转换：x=val(x) 从原字符型变成数值型；x=str(x)从原数值型变成字符型。（教材P85）
语句并列：不用“；”要用“：”例如a=1 : b=1
七、顺序结构练习：
【练1】用ＶＢ编写，键盘输入一个正方形的边长a，求该正方形与
其内切圆所夹部分的面积并输出。（学案P5）
Private Sub Command1_Click()
Dim a, s1, s2, s As Single      ’定义变量为单精度实数
a = InputBox("请输入正方形边长")
a = Val(a)
s1 = a * a
s2 = 3.14 * a * a / 4
s = s1 - s2
Print s
End Sub
【练2】用ＶＢ编写，键盘输入任意一个三位正整数n，输出这个三位数各位数字之和total。例如：输入456，输出结果为15。（学案
P5）
八、分支结构练习：
【练1】用ＶＢ编写，从键盘输入的两个不相等的数中较大的数，请用双分支结构。（学案P11）
【练2】用ＶＢ编写，某手机话费套餐规定：每月60元，可通话300分钟，超过300分钟的部分，另按每分钟0.4元计算。键盘输入当月通话时间（分钟），计算当月实际需付的手机费。如果输入的通话时间小于0，则应输出“输入数据有误”的提示信息。请用VB语言编写程序。（学案P17）
九、循环结构练习：
【练1】用ＶＢ编写，求s=1×2×3×……×n值(即求N的阶乘)，其中n由键盘输入（学案P31）
【练2】用ＶＢ编写，出1-1000中所有能被7和11整除的数。（学案P41）
十、数组练习：
数组的定义：（教材P91）
Dim 数组名（[下界to ] 上界[，[下界to ] 上界…]）As 数据类型
如果只写上界，则一般默认下界从0开始
【练1】用ＶＢ编写，依次输入10个数存放到数组中，再将其逆序输出。（学案P47）
Private Sub Command1_Click()
Dim a(1 to 10) As Single
Dim i As Integer
i = 1
Do While i <= 10
a(i) = InputBox("请输入一个数")
a(i) = Val(a(i))
i = i + 1
Loop
i = 10
visual basic pdf
Do While i >= 1
Print a(i)
i = i - 1
Loop
End Sub
【练2】用ＶＢ编写，求一个班10名学生的平均成绩。（学案P47）
十一、经典应用:
【练1】若一个三位数x=100a+10b+c（a、b、c都是个位数），满足a3+b3+c3=x，则x 称为水仙花数。出所有的水仙花数。（枚举法）（学案P42）
【练2】一张单据上有一个5位数的编号，万位数是1，千位数是4，百位数是7，个位数是8，十位数已经模糊不清，只知道该5位数是57或67的倍数，出所有满足这些条件的5位数并输出。（枚举法）（学案P42）
【练3】查1000以内的素数或1000以内的素数和（枚举法）（教材P81、考纲P88）
【练1】若一个三位数x=100a+10b+c （a 、b 、c 都是个位数），满足a 3+b 3+c 3=x ，则x 称为水仙花数。出所有的水仙花数。（枚举法）（学案P42）
【练2】一张单据上有一个5位数的编号，万位数是1，千位数是4，百位数是7，个位数是8，十位数已经模糊不清，只知道该5位数是57或67的倍数，出所有满足这些条件的5位数并输出。（枚举法）（学案P42）
【练3】查1000以内的素数或1000以内的素数和（枚举法）（教材P81、考纲P88）
Private Sub Command1_Click() Dim j, n As Single
j = 0
Do While j < 10  i = 0
Do While i < 10    n = 14070 + i * 100 + j
If n Mod 57 = 0 Or n Mod 67 = 0 Then      Print n    End If    i = i + 1  Loop  j = j + 1 Loop End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。