VB资料2
1.在名称为Form1，标题为"框架"的窗体上添加一个名称为Frame1，且标题为空的框架。框架内含有两个单选按钮，名称分别为Opt1和Opt2，其标题分别为"字体"、"大小"。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
2.在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架，标题分别为"字号"、"修饰"；在Frame1中添加两个单选按钮，名称分别为Option1、Option2，标题分别为"10号字"、"20号字"，且标题显示在单选按钮的左边；在Frame2中添加1个名称为Check1的复选框，标题为"下划线"。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
3.用单选钮和选择框设置文本框的字体。
4.用单选钮和选择框设置文本框的字体。
5.窗体上已有一个标签label1，请添加一个单选按钮数组，名称为op1，含三个单选按钮，他们的index属性分别为0，1,2，标题依次为“飞机”“火车”“汽车”，再添加一个名称为text1的文本框。当单击“飞机”或“火车”单选按钮时，在text1中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在text1中显示“我开汽车去”。如图所示。
分析并编写程序代码
Private Sub Op1 Click(Index As Integer)
Dim a As String, b As String, c As String
a = "我坐"
b = "我开"
Select Case ?
Case 0
Text1.Text = a ＋Me.Op1(0)．Caption ＋"去"
Case 1
Text1.Text = ? ＋Me.Op1(1)．Caption ＋"去"Case 2
Text1.Text = b ＋Me.Op1(2)．Caption ＋"去"
End Select
End Sub
6.Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为“性别”、“身份”；
在F1中添加两个单选按钮控件Op1、Op2，标题分别为“男”、“女”；
在F2中添加两个单选按钮控件Op3、Op4，标题分别为"学生"、"教师"；再添加一个命令按钮，名称为C1，标题为"确定"。如图所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个单选按钮，然后单击"确定"按钮，就可以按照下表把结果显示在文本框中。
7.在名称为Form1的窗体上添加一个名称为L1，标题为"业余爱好"的标签，再添加一个名称为Ch1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为"体育"、"音乐"、"美术"，请设置复选框的属性，使其初始状态如下表所示：
体育选中可用
音乐未选中不可用
美术未选中可用
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名保存为sjt1.frm。
8.在名称为Form1，标题为"练习"的窗体上添加1个名称为Frame1、标题为"效果"的框架。框架内含有3个复选框，其名称分别为Chk1、Chk2和Chk3，标题分别为"倾斜"、"加粗"和"下画线"。
程序运行后的窗体如图所示。
要求：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
9.在名称为Form1的窗体上添加一个名称为Frame1、标题为"框架"的框架，在框架内添加两个名称分别为Option1、Option2的单选按钮，其标题分别为"第一项"、"第二项"。要求通过设置控件的属性将"第二项"初使值设置为被选中，框架为不可用。运行程序后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
10.在名称为Form1标题为"选课"的窗体上添加一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是"数学"、"语文"、"外语"、"计算机"，其中"语文"、"计算机"复选框处在选中状态下，程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
11.在考生文件夹下有一个工程文件sjt3.vbp，程序的功能是，在运行时，如果选中一个或两个复选框和一个单选按钮，则对文本框中的文本内容做相应的设置，如图所示。窗体上的控件已经给出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击"确定"按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩，最后将修改后的文件按原文件名存盘。
12.以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击"计算"按钮，则计算出上述数列的第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值。(提示：因计算结果较大，应使用长整型变量。)
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击"计算"按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
13.在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为"请输入密码"，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中显示为"*"字符，此外再把窗体的标题设置为"密码窗口"，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
14.在标题为"列表框"、名称为Form1的窗体上添加一个名称为List1的列表框，通过属性窗口输入四个列表项："数学"、"语文"、"历史"、"地理"，列表项形式采用"复选框形式"，如图所示。列表框的宽为1100，高不限。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
15.在名称为Form1的窗体上添加一个名称为Label1、标题为"添加项目："的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为"添加"、"统计"。在程序运行时，向Text1中输入字符，单击"添加"按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击"统计"按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。
注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。
16.请在窗体上添加一个组合框，名称为cb1，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这3个数字)；添加一个名为Text1的文本框；再添加一个标题为“计算”、名称为C1的命令按钮。如图所示。
请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击"计算"按钮，则计算500以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。提示：由于计算结果较大，应使用长整型变量。
17.在名称为Form1，标题为"图片"的窗体上添加1个名称为Image1的图像框，其高为2500，宽为2000。请通过属性窗口设置适当属性，将入考生文件夹下的图片文件pic1.jpg，
并使图片自动适应图像框的大小(如图所示)。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
18.在名称为Form1的窗体上添加一个图片框，名称为Pic，通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示"VB等级考试"，如图所示。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
19.在名称为Form1、标题为"菜单"的窗体上，设计满足如下要求的菜单。
分类标题名称内缩符号
主菜单项1 文件file 无
子菜单项1 新建new 1
子菜单项2 保存save 1
主菜单项2 退出exit 无
程序运行后的窗体如图所示，存盘时，将文件保存至考生文件夹下，且工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
20.在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、宽度均减少100。要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
21.在名称为Form1的窗体上，添加1个名称为Image1的图像框，左界为360，且图像框中显示考生文件夹下的图片文件"Duck.bmp"。然后，添加2个名称分别为"Command1"、"Command2"，标题分别为"移动"、"复位"的命令按钮，如图所示。
要求：编写适当的事件过程，使得每单击"移动"按钮一次，图像框向右移动10；单击"复位"按钮，图像框自动回位到距窗口左界为360的位置。
*注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为，窗体文件名保存为sjt2.frm。
22.在名称为Form1的窗体上添加一个名称为HS1的水平滚动条，其刻度值范围为1 100；添加一个命令按钮，名称为C1，标题为"移动滚动框"。请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于10次)，滚动框向右移动10个刻度。程序运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
23.（2）在名称为Form1的窗体上添加一个名称为Hscroll1的水平滚动条，其刻度范围为1~100；再添加一个名称为Text1的文本框，初始文本内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图所示。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
24.在名称为Form1的窗体上添加一个文本框，名称为Text1，其宽度为1000；再添加一个滚动条，名称为HS1。其刻度值的范围是1000-2000。请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。程序运行时的窗体如图所示。程序中不能使用任何变量，事件过程中只能写一条语句。
注意：保存时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存
为sjt2.frm。
25.在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮，其名称分别为VScroll1和Command1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：
Max=窗体高度
Min=0
LargeChange=50
SmallChange=10
如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的刻度值。
程序的运行情况如图所示。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
26.在名称为Form1的窗体上添加一个命令按钮和一个水平滚动条，其名称分别为Command1和HScroll1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置水平滚动条的属性：
Max=窗体宽度
Min=0
LargeChange=50
SmallChange=10
而如果移动水平滚动条的滚动框，则滚动框的位置值显示在窗体上。程序的运行情况如图所示。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
27.在名称为Form1的窗体上添加一个名称为Label1、标题为"设置速度"的标签，通过属性窗口把标签的大小设置为自动调整。添加一个名称为HScroll1的水平滚动条，通过属性窗口设置适当属性使滚动条的最小值为1，最大值为80，单击滚动条两端的箭头时，滚动框移动2，滚动框的初始值为30。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
28.在名称为Form1的窗体上添加一个垂直滚动条(名称为VScroll1)和一个水平滚动条(名称为HScroll1)，如图1所示。在属性窗口中对两个滚动条设置如下属性：
Min 1500
Max 6000
LargeChange 200
SmallChange 50
编写适当的事件过程。程序运行后，如果改变滚动条上的滚动框的位置，则可扩大或缩小窗体。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
29..在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，名称为Label1、标题为"文件名"的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为"文件系统控件"，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容
发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在Label2中显示选中的文件名。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
30.设计一个类似于资源管理器的小程序，使驱动器列表框、目录列表框和文件列表框三个控件始终保持同步，可以浏览目录和文件。
31.在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；
再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”。
请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
32.在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为"操作"，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为"显示"、"隐藏"，请编写适当的事件过程，使得在程序运行时，单击"隐藏"菜单项，则文本框消失；单击"显示"菜单项，则文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
33.在名称为Form1的窗体上建立一个名称为"menul"、标题为"文件"的弹出式菜单，其含有三个菜单项，它们的标题分别为："打开"、"关闭"、"保存"，名称分别为"m1"、"m2"、"m3"。再添加一个命令按钮，名称为"Command1"、标题为"弹出菜单"。要求：编写命令按钮的Click 事件过程，使程序运行时，单击"弹出菜单"按钮可弹出"文件"菜单(如图所示)。
注意：程序中不得使用变量，事件过程中只能写一条语句。
34.在名称为Form1的窗体上添加一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为"加粗"、"斜体"、"下划线"，名称分别为M1、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。
35.在名称为Form1的窗体上添加一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。同时建立一个下拉菜单，其名称为File，标题为"文件"，此菜单含有一个子菜单项，标题为"显示列表框"，名称为Show，初始状态为被选中，运行时的效果如图所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt1.frm，工程文件名保存为sjt1.vbp。
36.分别用Print和Write语句向文件MyFile1.txt和MyFile2.Txt中写入下面两行数据，并打开文件查看不同。
2008/1/10 扫描开始
2008/1/11 扫描结束
37.设计一个用户登录程序，用户的用户名和密码都存放在顺序文件Password.txt中，如以下格式的内容。
"Admin","123456"
"user1","123"
"user2","456"
当用户输入用户名和密码时，打开Password.txt文件，并与之对比，如果相同，显示提示信息“登录成功”；反之，显示提示信息“非法用户”。
38.在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为"发射"，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：
①设置Timer1的属性，使其在初始状态下不计时；
②设置Timer1的属性，使其每隔0.1秒调用Timer事件过程一次。
③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击"发射"按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动，如图所示。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
39.在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：
Min 100
Max 1500
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
40.在名称为Form1的窗体上添加一个名称为Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为Label1的标签，标题为"形状"，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为Text1的文本框，文本框最多能够显示5个字符，文本框中初使内容为"圆形"，如图所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
41.在名称为Form1的窗体上添加1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求：
①圆角矩形中填满绿色(颜色值为：&H0000FF00&或&HFF00&)；
②窗体的标题为"圆角矩形",字体为"仿宋_GB2312"。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
42.在名称为Form1的窗体上用名称为shape1的形状控件画一个长、宽均为1200的正方形。请设置适当的属性以满足下列要求：
①窗体的标题为"正方形"，窗体的最小化按钮不可用；
②正方形的边框为虚线(线型不限)。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
42.在名称为Form1的窗体上添加一个名称为Shape1的形状控件，要求在属性窗口中将其形状设置为椭圆，其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为"Shape控件"，窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
43.设计一个浏览图片的小程序，单击“打开”按钮时，出现打开图片文件的对话框，选中要显示的图片文件后，在图像框中显示出来，请按照所示图片补充完成，实现所要求的上述功能。P71
44.在窗体上建立弹出式菜单，菜单项可以用来设置标签框中的文本字体大小，程序执行时如图所示。
VBProject代码操作代码之常用语句
一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub
vb代码大全
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
(完整版)vb小游戏代码
数字排序小游戏 Option Explicit Dim Label2X As Integer '记录标签控件数组中要移动的标签控件左上角X的位置 Dim Label2Y As Integer '记录标签控件数组中要移动的标签控件左上角Y的位置 '让标签数组中的每个标签控件上显示的数字是随机的，无重复的 Private Sub Init() Randomize Dim a(7) As Integer Dim i As Integer, k As Integer Label1.Caption = "" For i = 0 To 7 a(i) = i Next For i = 0 To 7 k = Int(Rnd * 8) Do While a(k) = -1 'a(k)=-1表示该数组元素对应的数字已经被使用过了k = Int(Rnd * 8) '重新生成k的值，直到a(k)的值不等于-1 Loop Label2(i).Caption = Trim(Str(a(k))) a(k) = -1 'a(k)的值已经使用了，不能再用，重新赋值为-1与其他的元素值相区别
Next i End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer Dim z As Integer Init Picture1.Enabled = True '让空白标签Label1出现的位置随机 Randomize '记录下空白标签Label1的位置 x = Label1.Left y = Label1.Top z = Int(Rnd * 8) '将空白标签Label1和标签控件数组任一控件交换位置 Label1.Move Label2(z).Left, Label2(z).Top Label2(z).Move x, y Command1.Enabled = False End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Dim i As Integer Picture1.Enabled = False '在标签中显示游戏说明信息 Label3.Caption = "如左图所示，将数字按0-7顺" & vbCrLf & vbCrLf & "序依次排列，即取得胜利。" '在标签中显示排列规则后的数字顺序 Label1.Caption = 0 For i = 0 To 6 Label2(i).Caption = i + 1 Next End Sub
最新vbmapp学习资料资料
VB-MAPP 第一部分：里程碑评估 共有170个重要的学习和语言里程碑，跨越三个发展阶段（0~18月，18~30月，30~48月）。 第二部分：障碍评估 评估24个常见于自闭症孩子中的有关学习和语言发展的障碍及其程度。 第三部分：转衔评估 用于评估孩子的进步程度与相应的教学环境，包括了18个评估领域来帮助判断孩子是否具备在限制较少的环 境当中学习的条件。 第四部分：任务分析和技能追踪 提供关于语言和学习技能的进一步分解，可以作为学习和语言教育的短期目标，900项技能分布在16个领域中，这些技能成为从一个里程碑到另一个里程碑的过渡台阶。 第五部分：个别化教育计划IEP的建议目标 在实际操作中往往被用成为评估报告后对孩子进行教育和干预的具体目标。必须强调这些仅仅是建议，在实 际工作中，每个孩子的具体计划一定由该孩子的个别化教育团队讨论决定。 评估方法：正式的测试（T），观察（O），以上两者任选其一（E），计时观察（TO） 里程碑评估 给测试者的小窍门： 1、评估开始之前，让孩子家人完成一份强化物调查表； 2、与孩子建立亲密的关系； 3、控制测试项目和强化物； 4、强化正确的反应； 5、使用孩子偏爱的和孩子可能感兴趣的新物品； 6、表扬孩子时要微笑； 7、为测试选择使用常见于孩子年龄组的强有效的强化性活动和物品； 8、测试早期提要求能力要遵循孩子的动机； 9、使用的材料要么是中性的（积木），要么是针对孩子性别特征的； 10、使用恰当的热情水平； 11、允许短时间的休息； 12、给予短暂休息时，不要让孩子玩你准备的最有效的强化物； 13、对自发性的发声和手势要给予认可； 14、保持全过程的趣味性，提供快乐和迷人的方法将你与强化物联系起来； 15、偶然提供无条件的强化物； 16、在进行评估时避免过度的暗示或辅助； 17、如果必要的话，给孩子3-5秒做出反应； 18、如果必要的话，重复问题或布置任务2-3次； 19、使用最少到最多的辅助程序评估孩子的技能水平； 20、始终以正确的反应和正面的评语来终止测试。 第一阶段：0~18月 需测试领域：共九项。提要求，命名，听者技能，视觉感知和样本配对，独立游戏，社会行为与社会游戏， 动作模仿，语音模仿，自发性发声行为。 提要求——孩子是否能用语言、手语、或图片要求所想要的物件或活动？1M表示第一个里程碑。 1M：能发出2个话语、手语、或图片，但可能需要仿说、模仿、或其他辅助，但不需要肢体辅助。（E）
VB函数大全_基本函数大全
VB函数大全_基本函数大全 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。 Eval 函数计算并返回表达式的值。 Execute 方法根据指定的字符串，执行正则表达式的搜索。 Execute 语句执行单个或更多的指定语句。 Exit 语句退出Do...Loop、For...Next、Function 或Sub 代码块。 Exp 函数返回e （自然对数的底）的多少次方。 自乘运算符(^) 指数函数，幂为自变量。 False 关键字，其值为零。
vb常用程序代码
1、求半径为r的圆的面积，要求用户从键盘输入半r。 程序代码： Private Sub Form_click() Const PI = 3.14 Dim r% Dim s! r = InputBox("请输入半径r的值：", "求圆的面积") s = PI * r * r Form1.FontSize = 16 Print "半径是" + Str(r) + "的圆的面积是" + Str(s) End Sub 2、输入三个整数，从小到大顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a > b Then t = a: a = b: b = t If a > c Then t = a: a = c: c = t If b > c Then t = b: b = c: c = t Print "排序后："; a, b, c End Sub 3、输入三个整数，从大到小顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a VB内置函数详细解释大全
VB内置函数大全 Abs(number) 返回参数的绝对值，其类型和参数相同。 必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。 一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。 Array(arglist) 返回一个包含数组的 Variant。 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。 用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。Dim A As Variant A = Array(10,20,30) B = A(2) 使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array )名称限定。如果是由类型库名称限定，则 Array 不受 Option Base 的影响。 注意没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。 Asc(string) 返回一个 Integer，代表字符串中首字母的字符代码。 必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何
VB实例源码(完整资料).doc
【最新整理，下载后即可编辑】 课前体验 Private Sub Form_Click() For i = 1 To 10 For j = 1 To i Print "* "; Next j Print Next i End Sub 【例3-1】 Private Sub Form_Click() c1$ = Chr$(13) + Chr$(10) msg1$ = "请输入您的名字: " msg2$ = "输入后按回车键" msg3$ = "或单击“确定”按钮" msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$ name$ = InputBox(msg$, "InputBox 函数示例", "张三") Print name$ End Sub 【例3-2】 Private Sub Form_Click() Msg1$=”Are you Continue to?” msg2$=”Operation Dialog Box” r=MsgBox(msg1$,34,msg2$) Print r End Sub 【例3-3】编写程序，用MsgBox函数判断是否继续执行。 Private Sub Form_Click() msg$ = "请确认此数据是否正确" Title$ = "数据检查对话框" x = MsgBox(msg$, 19, Title$)
If x = 6 Then Print x * x ElseIf x = 7 Then Print "请重新输入" End If End Sub 【例3-5】 Private Sub Form_Click() Print: Print FontName = "隶书" FontSize = 16 Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务"; Print Tab(24); "单位"; Tab(32); "籍贯" Print Print "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京" End Sub 【例3-6】 Private Sub Form_Click() X = InputBox("请输入成绩", "学生成绩录入", "00") Print x End Sub 【例3-7】 Private Sub Form_Click() Dim x As Single, y As Single x=InputBox(“请输入x的值”) If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1 Print “x=”; x ,”y=” ; y End Sub 【例3-8】 Private Sub Form_Click()
VB常用命令大全
常用命令 FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。 FontItalic属性是逻辑型，决定对象上正文是否是斜体。 窗体的其它常用属性 2．Icon 控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。 注意：此属性必须在ControlBox属性设置为Ture才有效 3．ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。 5. BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。 0-None：无边框； 1-Fixed Single：单线边框，不可以改变窗口大小； 2-Sizable：双线边框，可以改变窗口大小； 3-Fixed Double：双线框架，不可以改变窗口大小。 4-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮，不可以改变窗口大小。 5-Sizable Tool Window：窗体外观与工具条相似。有关闭按钮，可以改变窗口大小。 6. WindowsState属性 用来设置窗体的运行状态。 0-Normal：正常窗口状态，有窗口边界； 1-Minimized：最小化状态，以图标方式运行； 2-Maximized：最大化状态，无边框，充满整个屏幕。 7. AutoRedraw属性 该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。 当为True时，重新还原该窗体以前的画面。 当为False时，则不重画AutoRedraw属性。 4 Resize事件 无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。 5 Activate事件：当窗体由非活动窗体变为活动窗体，即当窗体得到焦点时触发该事件。窗体常用的方法有： 打印输出Print 移动Move 清除Cls 显示Show 隐藏Hide等方法。 方法的使用的形式: [对象.]方法[参数] 1.Print方法 形式: [窗体名.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用: 在对象上输出信息 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：从窗体第n列开始输出，允许重复使用。 ；(分号)：光标定位上一个显示的字符后(紧凑格式)。 ，(逗号)：光标定位在下一个打印区的开始位置处。每个打印区占14列(标准格式)。无；，换行。
VB代码大全
隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。
VB语言简介
VB语言简介 Visual Basic是一种由Microsoft公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件。 程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 Vb的语言标准 事件（Event） 事件是指发生在某一对象上的事情。事件又可分为鼠标事件和键盘事件。例如，在命 令按钮（Command Button）这一对象上可能发生鼠标单击（Click）、鼠标移动（Mouse Move）、鼠标按下（Mouse Down）等鼠标事件，也可能发生键盘按下（Key Down）等键盘事件。 总之，事件指明了对象“什么情况下做？”，常用于定义对象发生某种反映的时机和条件。 方法（Method） 方法是用来控制对象的功能及操作的内部程序。例如，人具有说话、行走、学习、睡 觉等功能，在visual Basic中，对象所能提供的这些功能和操作，就称作“方法”。以窗体为例，它具有显示（show）或隐藏（hide）的方法。总之，方法指明了对象“能做什么？”，常用于定义对象的功能和操作。 属性（Property） 属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。可以通过属性 改变对象的特性。 有些属性可以在设计时通过属性窗口来设置，不用编写任何代码；而有些属性则必须 通过编写代码，在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性，只能读取的属性成为只读属性。总之属性指明了对象“是什么样的？”，常用于定义对象的外观。 对象与类 对象（Object） Visual https://www.wendangku.net/doc/fb6109138.html, 具有“面向对象”的特性，Visual https://www.wendangku.net/doc/fb6109138.html, 应用种程序的基本单元 是对象，用Visual https://www.wendangku.net/doc/fb6109138.html, 编程就是用“对象”组装程序。这种“面向对象”的编程方法与 传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做Visual https://www.wendangku.net/doc/fb6109138.html, 程序设 计的核心。 在Visual https://www.wendangku.net/doc/fb6109138.html,程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在Visual https://www.wendangku.net/doc/fb6109138.html,程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。
vb程序设计试题(含答案)
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
VB程序练习题整理稿剖析
1．退出Visual Basic 的快捷键是______。A. Ctrl+Q B.Shift+Q C.Alt+Q 2．窗体设计器是用于设计______。 A．应用程序的界面 C．应用程序的代码D. Ctrl+Alt+Q B. 对象的属性D. 窗体的代码 3．启动Visual Basic 后,VB为用户建立的第一个窗体是______。 A．Form1 B.Form C．窗体1 D. 窗体 4．启动Visual Basic 后,VB为用户新建立的工程的名字是______。 A．窗体1 B. 工程1 C．窗体 D. 工程 5．工程资源管理器窗口包含的文件类型有______种。 A．1 B.2 C．3 D. 4 6．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。 A．编辑C．调试B. 文件D. 视图 7．能够通过标准工具栏打开的窗口是______。 A．代码窗口 C．属性窗口 8．窗体文件的扩展名______。B. 设计器窗口D. 窗体布局窗口 A．.bas B. vbp C．.exe 9．工程文件的扩展名______。 A．.com D. frm B. vbp C．.exe D. bas 10．Visual Basic的编程机制是______。 A．面向过程C．事件驱动B. 面向对象D. 可视化 （三）练习题 使用VB建立一个应用软件的全过程有哪些步骤？。1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。 （2）分别对对象设置属性。 （3）分别对对象事件的过程编程且完成代码输入。 （4）运行程序和调试程序。 （5）保存程序。 1． 2．保存VB文件，至少要保存几个文件？应先保存什么文件？2．至少保存2个文件，先保存窗体文件，后保存工程文件。
VB编程常用代码 大一练习专用
A,B,C排序由大到小 Dim a As Single,b As Single,c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If b>a Then d=a:a=b:b=d End If If c>a Then d=a:a=c:c=d End If If c>b Then d=b:b=c:c=d End If Text4.Text=a Text5.Text=b Text6.Text=c End Sub Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" End Sub 计算a+b Private Sub Command1_Click() Text4.Text=Val(Text2.Text)+Val(Text3.Text) Text1.Text="欢迎新同学" End Sub 清除
Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" End Sub 奇偶数显示器 显示 Private Sub Command1_Click() Dim a As Integer a=Val(Text1.Text) If a/2=Int(a/2)Then Text2.Text="您输入的数是偶数" Else Text2.Text="您输入的数是奇数" End If End Sub 清除 Private Sub Command2_Click() Text1.Text="" Text2.Text="" End Sub 奇偶数判断 Dim a,b As Integer Dim result As Integer a=Val(InputBox("请输入一个整数","数的输入",300,400)) b=Val(InputBox("请输入一个整数","数的输入",300,400)) If a/2=Int(a/2)Then result=MsgBox("您输入的数:"&a&"是一个偶数",1,"判断结果") Form1.Print rusult Else m="您输入的数:"&a&"是一个奇数" result=MsgBox("您输入的数:"&a&"是一个奇数",1,"判断结果") Form1.Print result End If If b/2=Int(b/2)Then result=MsgBox("您输入的数:"&b&"是一个偶数",1,"判断结果") Form1.Print rusult Else result=MsgBox("您输入的数:"&b&"是一个奇数",1,"判断结果")
VB学习资料
VB学习资料 (2006-10-07 13:31:17) 转载 分类：网落扎记 ?/P> ?/P> ·启动Visual Basic Visual Basic，简称VB，是当今世界上应用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。 初次和VB碰面，咱们先从制作一个多媒体程序入手吧。有人问：“刚学VB就学多媒体编程，对初学者来说是不是难度大了 点？”嗯，的确有点难度。不过，你并不需要完全看懂我编程的 方法，而是通过整个编写过程，来了解一下VB集成开发环境，为 今后的学习打下基础。 首先，让我们先启动Visual Basic 6.0。（见图一）弹出“新建工程”对话框， 我们选择“标准 EXE” 。单击“打开”。 （见图二） （图一）
（图二） 这时候看到的是VB集成式开发环境，让我们先对它进行一番了解。(见图三) (图三) ·左面是VB的工具箱， 里面的各种图标是我们开发程序时经常用到的标准控件。·正中间是窗体编辑器，又称对象窗口。 我们程序的界面，大部分是在它上面设计的。 ·右上方是工程资源管理器， 它能让我们对整个工程进行整体性的管理。
·右中处的是属性窗口， 陈列着程序中所涉及的各种窗体和控件的属性。 ·右下方是窗体布局区， 它能够调节程序运行时窗体在屏幕中的位置。 ·添加ActiveMovie控件 现在，让我们开始设计程序吧！ 首先，在工具箱上添加一个新控件ActiveMovie，这是个能播放多媒体动画的控件。 右键单击工具箱，会弹出一个小窗口，单击部件，(见图一)在屏幕正中会出现一个部件对话框，这里陈列着许多未在工具箱中列出的控件。我们需要添加一个ActiveMovie控件。点击滚动条，找到Microsoft ActiveMovie Control，单击复选框选定。(见图二) (图一) (图二)
常见vb程序设计代码
常见vb程序设计代码 作者 : 窦振山 1、猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？、、 Private Sub Command1_Click() Dim m(1 To 7) m(1) = 1 For i = 2 To 7 m(i) = (m(i - 1) + 1) * 2 Next For i = 1 To 7 Print "第" & i & "天的桃数是"; m(i) Next End Sub 2、百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡Private Sub Command1_Click() Dim x As Integer Dim y As Integer For x = 1 To 100 For y = 1 To 100 If 3 * x + 2 * y + (100 - x - y) / 2 = 100 Then Print "公鸡 "; x; "母鸡"; y; "小鸡"; 100 - x - y End If Next Next End Sub 1、综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。界面设计用到了三个command即“添加”、“查询”和“退出”，八个label和四个text 用来输入学号、姓名、成绩和年龄，一个frame，一个picturebox图片框用来显示结果 其程序代码设计如下： Private Type stu id As Integer nam As String sco As Single age As Integer End Type Dim students(100) As stu Dim s As Integer Private Sub Command1_Click() Static i As Integer If Text1.Text = "" Then
vb语句大全
VisualBasic是微软公司推出的简单易学、功能强大编程工具，是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，使用VB能轻而易举地开发适合在Windows 环境下各类应用程序。 语句是程序的基本功能单位，每条语句都有确切的含义，能完成一定的任务。熟练掌握语句，是开发应用程序的基础。VB共有语句77个，这里给出72个，另外5个由于很少用到没有给出，它们是Width#语句，设置文件的输出行宽度。Implements语句，指定要在包含该语句的类模块中实现的接口或类。其余3个用于声明Property过程的名称，参数以及构成其主体的代码，PropertyGet语句，该Property过程获取一个属性的值；PropertyLet语句，该Property过程给一个属性赋值；PropertySet语句，该Property过程设置一个对象引用。点击相关语句看详细内容 语句描述 AppActivate语句激活其它应用程序。 Beep语句通过计算机喇叭发出声音。 Call语句调用一个子程序或函数。 ChDir语句改变当前的路径(目录或文件夹)。 ChDrive语句改变当前的驱动器。 Close语句关闭用Open语句打开的文件。 Const语句声明常量。 Date语句设置当前系统日期。 Declare语句用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。 Deftype语句在模块或窗体，为变量和传给过程的参数，设置缺省数据类型，以及为其名称以指定的字符开头的Function和PropertyGet过程，设置返回值类型。 DeleteSetting语句删除指定的Windows注册表的子键。Dim语句声明局部变量并分配存储空间。 Do...Loop语句循环语句，有两种变形，一种是当条件为True时，重复执行一个语句块中的命令。另一种重复执行一个语句块中的命令，直到条件变为True时。 End语句结束程序、过程或语句。 Enum语句定义枚举类型。 Erase语句重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。Error语句模拟错误的发生。 Event语句定义用户自定义的事件。 Exit语句提前退出控制结构、循环或过程的语句体。 FileCopy语句复制一个文件。 For...Next语句以指定次数来重复执行一组语句。 ForEach...Next语句针对一个数组或集合中的每个元素，重复执行一组语句。 Function语句声明Function过程的名称，参数以及构成其主体的代码。 Get语句将一个已打开的磁盘文件读入一个变量之中。 GoSub...Return语句在一个过程中跳到另一个子程序中执行，执行后再返回。 GoTo语句无条件地转移到过程中指定的行。 If...Then...Else语句条件语句，根据表达式的值有条件地执行一组语句。 Input#语句从已打开的顺序文件中读出数据并将数据指定给变量。
VB复习资料
第一、二章 1.以下关于方法的叙述错误的是______ 。 Ａ．方法是构成对象实体的一个部分 Ｂ．方法是一种特殊的过程或函数 Ｃ．调用方法的一般格式是：对象名称．方法名称［参数］ Ｄ．在调用方法时，对象名称是不可缺少的 2.下列项目中，属性、方法、事件的个数分别有_____个 1) Caption 2) Unload 3) Cls 4) SetFocus 5) LostFocus 6) KeyPress A. 2 2 2 B. 1 2 3 C. 3 2 1 D.2 3 1 第三章 1.创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在窗体上，可能的原因是____________ 。 Ａ．该命令按钮的Value 属性被设置为False Ｂ．该命令按钮的Enabled 属性被设置为False Ｃ．该命令按钮的Visible 属性被设置为False Ｄ．该命令按钮的Default 属性被设置为True 2.若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），可使用_控件将它们分隔开。 ①TextBox ②Picture ③Image ④Frame Ａ．①②Ｂ．②③Ｃ．②④Ｄ．③④ 3.单击滚动条两端的箭头时，滚动条Value 属性值的改变量由_______属性值决定。Ａ．LargeChange Ｂ．Max Ｃ．SmallChange Ｄ．Min 4.以下所列的8个控件中，具有Caption属性的有____个。 CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条） A．5 B．4 C．3 D．2 5．若窗体有列表框List1 ，则List1.List(List1.ListIndex)的值等于List1的_ text__属性值。 6．执行下面程序，当单击Command1时，列表框List1的第2列表项内容是__3_，第4列表项内容是_15__，第5列表项内容是_28_。 Private Sub Command1＿Click（） Dim i As Integer, j As Integer For i =1 To 10 j=i+j