当前位置：文档库 › Vb资料

Vb资料

试卷一

用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该

菜单控件时,触发KeyPress事件.

答案：N

第5题（1.0分）题号:309

所有的对象都有caption 属性.

答案：N

第6题（1.0分）题号:280

方法是VB 对象可以响应的用户操作.

答案：N

第7题（1.0分）题号:224

Visual Basic程序的运行,仅能从某一窗体启动,如Form1窗体.

答案：N

第8题（1.0分）题号:251

Image控件使用的资源比Picture控件使用的多.

答案：N

第9题（1.0分）题号:256

TextBox与Label有许多共同特点,它们都能显示和输入文本.

答案：N

第10题（1.0分）题号:221

VB是一种面向对象的程序设计语言.

答案：Y

━━━━━━━━━━━━━━━━━

三、单项选择共10题（共计10分）

━━━━━━━━━━━━━━━━━

第2题（1.0分）题号:872

用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件. A:KeyPress

B:KeyDown

C:Click

D:KeyUp

答案：C

第3题（1.0分）题号:224

()对象具有Clear方法.

A:图片框

B:窗体

C:复选框

D:列表框

答案：D

第4题（1.0分）题号:871

要想清除文本框中的内容则可利用()进行.

A:Caption

B:Text

C:Clear

D:Cls

答案：B

第5题（1.0分）题号:360

下列表达式中,其值为0的是().

A:7/9

B:7 mod 15

C:7\9

D:15 mod 9

答案：C

第6题（1.0分）题号:222

()对象不具有Caption属性.

A:Label

B:Option

C:Form

D:Timer

答案：D

第7题（1.0分）题号:822

以下()对象不具有Clear方法.

A:列表框

B:组合框

C:剪贴板

D:图片框

答案：D

━━━━━━━━━━━━━━━━

四、多项选择共5题（共计10分）

━━━━━━━━━━━━━━━━

第1题（2.0分）题号:276

下列语句哪些是错误的语句（）？

A:Const Imax As Integer=&o155

B:Const _Ga As String="abc"

C:Dim aa,bb As Integer,cc As String

D:yy=8,uu=9

答案：BD

第2题（1.0分）题号:367

如果没有使用Public、Private或者Friend,Sub过程在缺省情况下是公用的、

答案：N

第4题（1.0分）题号:369

如果在过程调用时使用按值传递参数,则在被调过程中可以改

变实参的值.

答案：N

第5题（1.0分）题号:326

用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该

菜单控件时,触发KeyPress事件.

答案：N

第8题（1.0分）题号:315

图片框的Move方法不仅可以移动图片框,而且还可以改变该图片

框的大小,同时也会改变该图片框有关属性的值.

第10题（1.0分）题号:827

以下控件中不属于容器的是().

A:Form控件

B:PictureBox

C:Image

D:Frame

答案：C

第1题（2.0分）题号:277

下列说法哪些是正确的（）？

A:不能对符号常量重新赋值

B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改

C:TAB(N)函数用于在输出表达式前将输出点定位在第N-1个字符位置

D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出

答案：ABD

第2题（2.0分）题号:281

窗体也是一个对象，它具有（）的特征。

A:属性

B:过程

C:事件

D:方法

答案：ACD

第3题（2.0分）题号:279

下面有关数组的说法那些是错误的（）？

A:数组存放的是具有相同数据类型的多个数据

B:数组的下标不允许是常数

C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型

D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积

E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小答案：BCD

第4题（2.0分）题号:278

下列哪些标识符不符合变量的命名规则（）？

A:hyu

B:$abc

C:4w

D:y.u

E:ty%

F:_n8

答案：BCDEF

第5题（2.0分）题号:283

要选择列表框List1的第6项，可以使用语句（）。

A:List1.Selected(6)=True

B:List1.Selected(5)=True

C:List1.ListIndex=5

D:List1.Selected=5

答案：BC

'功能：以下程序段用于输出杨辉三角：结果样式如图1 '-------------------------------------------------------

Private Sub Form_Click()

Const n = 10

Dim arr(n, n) As Integer

For I = 1 To n

arr(I, I) = 1

'**********SPACE**********

【?】

Next I

For I = 3 To n

For j = 2 To I - 1

'**********SPACE**********

arr(i, j) =【?】

Next j

Next I

For I = 1 To n

For j = 1 To I

'**********SPACE**********

? 【?】& " ";

Next j

Next I

End Sub

答案：

=======(答案1)=======

arr(i, 1) = 1

=======(答案2)=======

arr(i - 1, j - 1) + arr(i - 1, j)

=======(答案3)=======

arr(i, j)

=========或=========

str(arr(i, j))

━━━━━━━━━━━━━━━━

六、程序改错共1题（共计10分）

━━━━━━━━━━━━━━━━

第1题（10.0分）题号:142

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：程序功能根据输入的学习成绩,分别显示优秀' (90分以上), 良好(75分以上),及格(60分以上) ' 不及格四个等级.

'------------------------------------------------

Option Explicit

Private Sub Form_Click()

Cls

Dim i As Integer

i = InputBox("请输入学习成绩")

Select Case i

'**********FOUND**********

Case 0 < i < 100

MsgBox "成绩应该在0--100之间""" '**********FOUND**********

Case 90

Print "优秀"

Case 75 To 89

Print "良好"

Case 60 To 74

Print "及格"

'**********FOUND**********

Case

MsgBox "不及格", vbCritical

End Select

End Sub

答案：

=======(答案1)=======

Case is>100 ,is<0

=========或=========

case is<0 ,is>100

=======(答案2)=======

Case 90 to 100

=======(答案3)=======

Case else

━━━━━━━━━━━━━━━━

七、程序设计共2题（共计20分）

━━━━━━━━━━━━━━━━

第1题（10.0分）题号:496

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求1-100中为5或7的倍数的和。请将结果' 输出到窗体上,并存入所给变量SUM中。' 使用while...wend语句完成程序

'-------------------------------------------------

答案：----------------------

Dim i As Integer

i = 1

While i <= 100

If i Mod 5 = 0 Or i Mod 7 = 0 Then

Sum = Sum + i

End If

i = i + 1

Wend

Print Sum

下列说法哪些是正确的（）？

A:不能对符号常量重新赋值

B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改

C:TAB(N)函数用于在输出表达式前将输出点定位在第N-1个字符位置

D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出答案：ABD

━━━━━━━━━━━━━━━━

五、程序填空共1题（共计10分）

━━━━━━━━━━━━━━━━

第1题（10.0分）题号:64

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'利用自定义类型数组，编写如下程序：模拟实现数据库记录

'输入、显示与查询功能。程序运行后,单击“新增”按钮，将

'文本框中的学生信息加到数组中；单击“前一个”或“后一个”'按钮，显示当前元素的前或后一个记录；单击“最高”按钮，'则显示最高分的记录。并随时显示数组中输入的记录数与当前数'组元素的位置。

'-------------------------------------------------------

Option Base 1

Dim n%, i%

'**********SPACE**********

Dim stud(1 To 100) As 【?】

Private Sub Command1_Click(Index As Integer)

'**********SPACE**********

Select Case 【?】

Case 0 '新增

If n < 100 Then

n = n + 1

Else

MsgBox "输入人数超过数组声明的个数"

End

End If

i = i + 1

With stud(n)

. Name = Text1

. Special = Text2

. Total = Val(Text3)

End With

Text1 = ""

Text2 = ""

Text3 = 0

Case 1 '前一条

If i > 1 Then i = i - 1

With stud(i)

Text1 = .Name

Text2 = .Special

Text3 = .Total

End With

Case 2 '后一条

If i < n Then i = i + 1

With stud(i)

Text1 = .Name

Text2 = .Special

Text3 = .Total

End With

Case 3 '找最高分者

Max = stud(1).Total

maxi = 1

For j = 2 To n

If stud(j).Total > Max Then

Max = stud(j).Total

maxi = j

End If

Next j

With stud(maxi)

Text1 = .Name

Text2 = .Special

Text3 = .Total

End With

i = maxi

End Select

Label5 = i & "/" & n '显示当前位置和总数End Sub

答案：

=======(答案1)=======

StudType

=======(答案2)=======

Index

━━━━━━━━━━━━━━━━

六、程序改错共1题（共计10分）

━━━━━━━━━━━━━━━━

第1题（10.0分）题号:137

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：求s=72+102+132+……832的值。

'------------------------------------------------

Option Explicit

Private Sub Form_Click()

Cls

Dim s As Long

Dim i As Integer

'**********FOUND**********

s = 1

'**********FOUND**********

For i = 72 To 832

s = s + i

'**********FOUND**********

loop 30

Print s

End Sub

答案：

=======(答案1)=======

s =0

=======(答案2)=======

For i = 72 To 832 step 30

=======(答案3)=======

Next i

=========或=========

━━━━━━━━━━━━━━━━

七、程序设计共2题（共计20分）

━━━━━━━━━━━━━━━━

第1题（10.0分）题号:485

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)我国现有人口为13亿，设年增长率为1%，' 计算多少年后增加到20亿。并将结果输出' 在窗体上。将结果存入变量year中。

' 使用do while ...loop语句完成程序。

'-------------------------------------------------

答案：---------------------- dim p as double

dim r as single

dim n as integer

p=1300000000

r=0.01

do while p<2000000000 p=p+p*r

n=n+1

loop

print "n=",n

year=n

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

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/462213569.html, 具有“面向对象”的特性，Visual https://www.wendangku.net/doc/462213569.html, 应用种程序的基本单元是对象，用Visual https://www.wendangku.net/doc/462213569.html, 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做Visual https://www.wendangku.net/doc/462213569.html, 程序设计的核心。在Visual https://www.wendangku.net/doc/462213569.html,程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在Visual https://www.wendangku.net/doc/462213569.html,程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。

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

VB编程常用代码大全讲解学习

V B编程常用代码大全

trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置 space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选 3.数据类型转换函数： Cint(str)：转换正数 True -1；False 0；日期距离1899/12/31天数；时间上午段 0；下午段 1； Cstr(str)：日期输出格式 yyyy/mm/dd；时间输出格式 Am/Pm hh:mm:ss

VB中的颜色资料讲解

VB中颜色的表示 RGB函数QBColor函数十六进制颜色值 VB颜色常量VB系统颜色常数基础知识：十六进制数 ?RGB函数 RGB是Red，Green，Blue的缩写，RGB函数通过三原色的值混合产生一种颜色。函数格式： RGB(红色值，绿色值，蓝色值) 说明：红、绿、蓝色值均为 0~255 间的整数。其它颜色的RGB值请运行程序颜色.EXE。回到页首?QBColor函数 QBColor 函数是从 Quick Basic 中“继承”下来的，用一个整数值对应RGB的常用颜色值。函数格式： QBColor（颜色值）回到页首 ?十六进制颜色值这是VB中表达颜色最直接的方法。格式： &HBBGGRR&

说明：BB、GG、RR分别为两位十六进制数，表示蓝、绿、红色的亮度，其值为 00 ~FF,中间值为80。例如：&HFF0000&为亮蓝色，&H00FFFF&（也可写为&HFFFF&）为黄色。 ?VB颜色常量回到页首 ?VB系统颜色常数 VB定义了一些颜色符号常数，包括8种常用颜色和Windows控制面板使用的系统颜色。使用系统常量，可以使应用程序风格更具专业化。例如：常数vbDesktop对应颜色值&H80000001，代表桌面颜色。当我们直接在属性窗口中设置BackColor之类属性值时，就可以看到这些系统颜色值。使用 MSDN 帮助系统中的“索引”，输入关键字“颜色常数”查看，可查看VB系统颜色的说明。回到页首 ?补充：关于十六进制数我们知道，计算机内部存储、处理的数据全部是二进制数，但在计算机语言中还有一种常用的数值——十六进值，它的特点是使用十六个数码：0~9，A~F，计算时采用“逢十六进一”的规则。十六进制与十按照换算关系，(A3B)16 = 10×16+3×16+11×16= 2560+48+11 = (2619)10 (FF) 16 = 15×161+15×160 = 240+15 = (255)10 回到页首

VB编程常用代码大全

VB编程常用代码大全 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根 num>0 int(num): 取整 int(99.8)=99; int(-99.2)=100 fix(num): 取整 fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2 log(num): 取以e为底的对数 num>0 exp(n): 取e的n次幂通常用 num^n sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置 space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选

相关文档

vb资料

vb资料

vb常用代码

vb代码大全

vb常用代码

vb代码大全

相关文档

VB常用的基本数据类型

VB复习资料

VB实例源码(完整资料).doc

VB重要资料2

VB知识点整理

VB基础入门教程

VB学习资料

小时候经典游戏用VB编的编写实例教程大全全!

VB学习资料

VB资料2

最新vbmapp学习资料资料

VB基本语法

VB详细数据类型

最新vb编程代码大全资料

VB中常用属性意义

VB程序练习资料

1VB中文资料

VB属性大全

VB程序设计初步资料讲解

VB中的颜色资料讲解

最新文档

幼儿园小班科学《小动物过冬》PPT课件教案

2021年春新青岛版(五四制)科学四年级下册 20.《露和霜》教学课件

自然教育课件

小学语文优质课火烧云教材分析及课件

(超详)高中语文知识点归纳汇总

高中语文基础知识点总结(5篇)

高中语文基础知识点总结(最新)

高中语文知识点整理总结

高中语文知识点归纳

高中语文基础知识点总结大全

超详细的高中语文知识点归纳

高考语文知识点总结高中

高中语文知识点总结归纳

高中语文知识点整理总结

高中语文知识点归纳

高中语文知识点归纳(大全)

高中语文知识点总结归纳(汇总8篇)

高中语文基础知识点整理

化工厂应急预案

化工消防应急预案(精选8篇)

Vb资料

VBProject代码操作代码之常用语句

vb代码大全

(完整版)vb小游戏代码

最新vbmapp学习资料资料

vb常用程序代码

VB内置函数详细解释大全

VB实例源码(完整资料).doc

VB常用命令大全

VB代码大全

VB语言简介

VB编程常用代码 大一练习专用

VB学习资料

常见vb程序设计代码

vb语句大全

VB复习资料

VB编程常用代码大全讲解学习

VB中的颜色资料讲解

VB编程常用代码大全

VB编程常用代码大一练习专用