当前位置：文档库 › 山东广播电视大学VB课程期末复习6

山东广播电视大学VB课程期末复习6

山东广播电视大学

《Visual Basic程序设计》课程期末复习题及参考答案

1．为了保存一个Visual Basic应用程序，下列说法正确的是（）。

A．只保存窗体文件（.frm）

B．只保存工程文件（.vbp）

C．分别保存工程文件和标准模块文件(.bas)

D．分别保存工程文件、窗体文件和标准模块文件

2．后缀为.,bas的文件表示（）。

A．类模块文件B．标准类模块文件

C．窗体文件D．窗体二进制数据文件

3．无论何种控件，共同具有的属性是（）。

A．Text属性B．Caption属性C．Name属性D．Autosize属性

4．以下有关Visual Basic语言描述中错误的是（）。

A．不区分大小写

B．语句是一行一句，以回车键结束

C．用“,”分隔一行中的多个语句

D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行

5．要在窗体Form1内显示“Hello VB！”，使用的语句是（）。

A．Form.caption=" Hello VB！" B．Form. print " Hello VB！"

C．Form1.caption=" Hello VB！" D．Form1.print " Hello VB！"

6．有程序代码如下：

Text1.Text = "VB简单易学，功能强大"

则Text1，Text 和" VB简单易学，功能强大"分别代表（）。

A．对象，值，属性B．对象，方法，属性

C．对象，属性，值D．属性，对象，值

7．在Visual Basic中，变量的默认类型是（）。

A．Integer B．Double

C．Currency D．Variant

8.按照变量的作用域可将变量划分为（）。

A．公有、私有、系统B．Public、Private、Protected

C．动态、常数、静态D．全局变量、模块级变量、过程级变量

9．对象的状态特征称为（）。

A．事件B．方法C．属性D．类

10．要在命令按纽上显示图形，应首先设置的属性是（）。

A．Enabled B．Style

C．Caption D．Icon

11．关于语句行，下列说法正确的是（）。

A．一行只能写一条语句B．长度不能超过255个字符

C．每行的首字符必须大写D．一条语句可以分多行书写

12．表达式7+10 Mod 3*2+2（）。

A．7 B．6 C．13 D．1

13．把字符串型转换为数值型需要使用的函数是（）。

A．Val B．Str C．Asc D．Chr

14．当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现MSDN窗口直接显示所需的帮助信息。

A．Help B．F10 C．Esc D．F1

15．如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（）属性。

A．Caption B．Text C．PasswordChar D．Locked

16．不属于VB数据库引擎的是（）

A．ODBC B．Jet引擎

C．BDE D．OLE DB

17．下列4项中合法的变量名是（）。

A．45 xyz B．Single

C．x-yz D．x_yz

18．Dim A(1 To 6, 6) As String定义的数组包含的元素个数是（）。

A．36 B．42

C．49 D．50

19．对于定时器（Timer）控件，设置其定时是否开启的属性是（）。

A．Index B．Tag C．Enabled D．Left

20．如果创建了命令按钮数组控件，那么Click事件的参数是（）。

A．Tag B．Caption

C．Index D．没有参数

21．表达式64 / 2 - 2 ^ 3 * 9 / 3 Mod 8 \ 3（）。

A．0 B．32

C．20 D．4

22．把数值型转换为字符串型需要使用的函数是（）。

A．Val B．Str C．Asc D．Chr

23．下面关于多窗体的叙述中，正确的是（）。

A．作为启动对象的Main子过程只能放在窗体模块内

B．没有启动窗体，程序不能执行

C．如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一窗体

D．以上都不对

24．Dim I As Integer，则运行时变量I的初始值是（）。

A．0 B．1

C．-1 D．空值

25．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（）。

A．Execute B．Open

C．ActiveConnection D．CommandType

26.下列数据对象模型中采用OLE DB访问数据库的是（）。

A．DAO B．RDO C．ADO D．RDO和ADO

27．一旦数据到达，将首先触发Winsock控件的（）。

A．DataGet事件B．ConnectonRequest事件

C．DataSend事件D．DataArrival事件

28．VB程序中通常不会产生错误提示的（）。

A．编译错误B．实时错误

C．运行时错误D．逻辑错误

29．在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（）。

A．Help B．F1 C．F10 D．Enter

30．下列关于过程叙述不正确的是（）。

A．过程的传值调用是将实参的具体值传递给形参

B．过程的传址调用是将实参在内存的地址传递给形参

C．过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的

D．无论过程传值调用还是过程传址调用，参数传递都是双向的

参考答案

1.D

2.B

3.C

4.C

5.D

6.C

7.D

8.D

9.C 10.B 11.D 12.C 13.A 14.D 15.C 16.C

17.D 18.B 19.C 20.C 21.B 22.B 23．C 24．A 25．C 26．C 27.D 28.D 29.B 30.D 1．在文本框中将Text的内容全部显示为所定义的字符的属性是（）。

A．Password B．PasswordChar

C．Caption D．Text

2．在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（）。

A．窗体布局窗口B．代码编辑器窗口

C．属性窗口D．工程资源管理器窗口

3..与传统的程序设计语言相比，Visual Basic最突出的特点是（）。

A．结构化程序设计B．程序开发环境

C．事件驱动编程机制D．程序调试技术

4．在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（）。

A．设计模式B．中断模式

C．执行模式D．编写代码模式

5.窗体文件的后缀是（）。

A．.frm B．.vbp C．.bas D．.cls

6．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。

A．缺少.frm窗体文件B．该可执行文件有病毒

C．运行的机器上无VB系统D．以上原因都不对

7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（）

A．单击窗体上没有控件的地方B．单击任一个控件

C．不执行任何操作D．双击窗体的标题栏

8．一个VB应用程序可以包含几个vbp文件（）。

A．1个B．2个

C．可以没有D．不受限制

9．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。

A．TabStop B．MultiLine C．Locked D．Visible

10．要在窗体的标题内显示“VB编程世界”,使用的语句是（）。

A．Form1.Print"VB编程世界" B．Form.Print"VB编程世界"

C．Form.caption="VB编程世界" D．Form1.caption="VB编程世界"

11．要清除List列表框控件中的所有项目，可采用的方法是（）。

A．Erase B．Delete C．Click D．Clear

12．.要设置命令按钮的背景图形，必须设置的两个属性是（）。

A．Style和Picture B．Style和Icon

C．Caption和Picture D．Value和Icon

13．当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现MSDN窗口直接显示所需的帮助信息。

A．Help B．F10 C．Esc D．F1

14．下列可作为Visual Basic变量名的是（）。

A．A（A+B）B．Alpha

C．4ABC D．ABπ

15．下列可以用来存储图像供其他对象使用的控件是（）。

A．ToolBar B．StatursBar C．ImageList D．TreeView

16．表达式7+10 Mod 3*2+2（）。

A．1B．7 C．6 D．13

17．如果希望以模态方式显示窗体Form1，下列正确的语句是（）。

A．Form1.Show B．Form1.Show 0

C．Form1.Show 1 D．以下都不正确

18．文本框没有（）属性。

A．Text B．Name C．Caption D．BorderStyle

19．下列变量名中合法的是（）。

A．IF B．7XY C．X-Y7 D．XY_7

20．下列正确的赋值语句是（）。

A．x+y=20 B、y=x+20

C．3x=y D．s=π*r*r

21.对于窗体级变量，下列说法中错误的是（）。

A．所在窗体的各子程序都可以访问

B．其他窗体的子程序不能访问

C．所在窗体的子程序不能访问用Private定义的窗体级变量

D．一定要在所在窗体的通用区内定义

22．下列关于变量的说法不正确的是（）。

A．局部变量的作用域仅限于声明它的过程

B．静态局部变量是在过程中用Static语句声明的局部变量

C．在声明它的过程执行完毕后就被释放了

D．局部变量是指那些在过程中用Dim语句或Static语句声明的变量

23．为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（）。

A．在Dir1_Change事件中加入Dir1.Path = Drive1.Drive

B．在Drive1_Change事件中加入Dir1.Path = Drive1.Drive

C．在Dir1_Change事件中加入Drive1.Path = Dir1.Path

D．在Dir1_Change事件中加入Drive1.Path = Dir1.Path

24．Line(100,100)-Step(600,600)将在窗体（）画一直线。

A．（100，100）到（600，600）B．（100，100）到（500，500）

C．（100，100）到（700，700）D．（500，500）到（600，600）

25．Line(200,200)-Step(500,500)将在窗体（）画一直线。

A．（200，200）到（500，500）B．（200，200）到（300，300）

C．（200，200）到（700，700）D．（300，300）到（500，500）

26．13．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（）。

A．Execute B．CommandType

C．Open D．ActiveConnection

27．要绘制多种形状的图形，需要设置Shape控件的（）属性。

A．Shape B．Borderstyle

C．FillStyle D．Style

28．VB程序中设置断点的按键是（）。

A．F1键B．F9键

C．F8键D．Ctrl F8键

29．设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（）。

A．ADOrs.New “Select * From 学生基本情况表”

B．ADOrs.Open “Select * From 学生基本情况表”

C．ADOrs.Execute “Select * From 学生基本情况表”

D．ADOrs.Select “Select * From 学生基本情况表”

30．下列数组声明语句，正确的是（）。

A．Dim a[3,1To 4] As Integer B．Dim a(3 1To 4) As Integer

C．Dim a(n,n) As Integer D．Dim a(3,1To 4) As Integer

参考答案：

1.B

2.D

3.C

4.D

5.A

6.C

7.A

8.A

9.C 10.D 11.D 12.A 13.D 14.B 15.C 16.D

17.C 18.C 19.D 20.B 21.C 22.C 23．B 24．C 25．C 26．D 27.A 28.B 29.B 30.D

山东广播电视大学

《Visual Basic程序设计》课程期末复习题及参考答案

1. 变量的声明方法有隐式和两种，如果采用隐式声明方法，那么VB会自动将变量声明为。

2．工程文件的扩展名是，窗体文件的扩展名是。

3．矩形、三角形、正方形三种图形中，不能用Shape控件绘制的是。

4．欲设置定时器的时间间隔为0.5秒，则属性Interval的值为。

5．全局变量在整个应用程序中有效，一般在标准模块中使用语句声明。

6．在刚建工程时，使窗体上所有的控件具有相同的字体格式，应对___ ____ 的Font属性进行设置。

7．表达式14/2-2^3*7 MOD 6的值是。

8．为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为。

9．在VB中，将数据库分为本地数据库、和三种类型。

10.执行赋值语句a=”123”+”456”后，变量a的值是。

11．用Dim A(3,-2 To 3)语句声明二维数组后，数组A的元素共有个。

12．Winsock控件主要用来编制基于或协议的网络应用程序。

13．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过工程菜单的

菜单项，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行

语句。

14．vb应用程序与数据库进行通信的主要机制称为。

15．在VB的DAO、RDO、ADO三种数据对象模型中，主要采用OLE DB访问数据库的是。

16．列表框控件中最后一项的序号等于ListCount属性减。

17．程序的运行结果和程序员的设想有出入时产生的错误称为。

18．为了在编写代码时能自动进行语法检查，必须执行工具菜单中的命令，打开选项对话框，然后选

择“编辑器”选项卡中的。

19．如果希望得到本地计算机的IP地址，可以使用Winsock控件的属性。

20．列表框中项目的序号是从开始的。

参考答案：

1．显示variant或变体型

2．.vbp .frm

3．三角形

4．500

5．Public

6．Form窗体

7．5

8．Picture1. Picture = LoadPrcture("picturefile.jpg") 9．外部数据库远程数据库

10．123456

11．24

12.TCP/IP UDP

13.工程属性Form1.Show

14．数据库引擎

15．ADO

16.1

17．编译错误

18.选项自动语法检测

19．LocalIp

20．0

1．在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用循环；若要求先判断循环进行的条件，可使用While循环或循环。

2.在VB中，事件过程名由和构成。

3．VB中将数据库分为本地数据库、和三种类型。

4．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置。

5．使用ADO模型时，可通过属性建立Recordset和Connection对象的连接。

6．控件数组的名字由属性指定，而数组中的每个元素由属性决定。

7．表达式64 / 2 - 2 ^ 3 * 9 / 3 Mod 11 \ 2的值是。

8．要使标签框的大小随Caption属性做自动调整，应将AutoSize属性设置为。

9．Dim A(5, 6) As Integer定义的数组包含的元素个数是。

10．如果不能事先确定变量的数据类型，则可以把它声明为。

11．Winsock控件主要用来编制TCP/IP或协议的通话程序。

12．一般可使用关键字声明常量。

13. VB中的程序错误类型主要有编译错误、等三种。

14．在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用循环；若要求先判断循环进行的条件，可使用循环或Do循环。

15．如果希望将字符串“12345”转化为数值，那么可采用的函数是。

16．要想在代码中给名为mytext的文本框赋予文本：我的第1个应用程序！时，应当编写的语句

是。

17．VB程序中设置断点的按键是。

18．在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定

作为启动对象。

19．后缀为.bas的文件表示VB 的。

20．Winsock控件主要用来编制TCP/IP或协议的通话程序。

参考答案：

1．For Do

2．对象事件

3．外部数据库远程数据库

4．Timer Interval

5．ActiveConnection

6．Name Index

7．28

8．True

9．42

10．变体型或Variant

11．UDP

12．Const

13.实时错误、逻辑错误

14．For While

15．Val

16．mytext.text="我的第1个应用程序！"

17．F9

山东广播电视大学

《Visual Basic程序设计》课程期末复习题及参考答案

阅读下列程序并写出程序运行结果

1．

Private Sub Command1_Click()

Dim Sum1 As Integer, Sum2 As Integer

Sum1 = 2: Sum2 = 3

For i = 1 To 3

For j = 1 To i

Sum2 = Sum2 * j

Next j

Sum1 = Sum1 + Sum2

Next i

Print Sum1

End Sub

写出程序运行时单击Command1按纽后，Form1上的输出结果。

2．

Private Sub Command1_Click()

Static Sum As Integer

Dim I As Integer

I = 1

Sum = Sum + I

I = I + 1

Loop While I <= 6

Text1.Text = Sum

Text2.Text = I

End Sub

程序运行时Command1按钮，Text1和Text2中的输出结果是。

3．

Private Sub Command1_Click()

Static Sum As Integer

Dim I As Integer

I = 3

Sum = Sum + I

I = I + 1

Loop While I <= 6

Text1.Text = Sum

Text2.Text = I

End Sub

程序运行两次单击Command1按纽后，文本框Text1、Text2上的输出结果是：4．

Private Sub Command1_Click()

Dim Sum1 As Integer, Sum2 As Integer

Sum1 = 1: Sum2 = 2

For I = 1 To 3

For j = 1 To I

Sum2 = Sum2 * j

Next j

Sum1 = Sum1 + Sum2

Next I

Print Sum1

End Sub

程序运行时单击Command1后，窗体Form1上的输出结果是；

Function F(a As Integer)

Static c

b = b + 3

c = c + 3

F = a + b + c

End Function

Private Sub Command1_Click()

Dim a As Integer

a = 4

For I = 1 To 6 Step 2

Print F(a)

Next I

End Sub

程序运行后单击命令按钮，在窗体上的输出结果是：

Private Sub Form_Click()

Dim A(1 To 3) As String

Dim c As Integer

Dim j As Integer

A(1) = "10"

A(2) = "20"

A(3) = "30"

c = 2

For j = 1 To 3

c = c + Val(A(j))

Next j

Print c

End Sub

程序运行时单击窗体后，窗体上的输出结果是：

Private Sub Form_Click()

Dim A(1 To 3) As String

Dim c As Integer

Dim j As Integer

A(1) = "6"

A(2) = "12"

A(3) = "18"

c = 2

For j = 1 To 3

c = c + Val(A(j))

Next j

Print c

End Sub

程序运行后单击窗体，在窗体上显示的结果是：

Function F(a As Integer)

Dim b As Integer

Static c As Integer

b = b + 3

c = c + 3

F = a + b + c

End Function

Private Sub Command1_Click()

Dim a As Integer

a = 4

For i = 1 To 3

Print F(a)

Next i

End Sub

写出程序运行时，单击命令按钮在窗体上的输出结果。

参考答案：1. 47 2.21 7 3 .36 7 4. 31 5．10 13 16 6． 62 7． 38 8. 10 13 16 阅读下列程序并写出程序运行结果

1．

Private Sub Command1_Click()

Dim x As Integer

Static s As Integer

x = Val(InputBox("请输入一个正整数="))

If x < 5 Then

s = s * x

Else

s = s + x

End If

Text1.Text = "s=" & Str(s)

End Sub

程序运行后，连续3次单击Command按纽，且设输入的数据为5、4、3时，文本框Text1中显示的值为：。2．

Private Sub Form_Click()

Dim x As Integer

Static y As Integer

x = x + 2

y = x + y

Form1.Print "x="; x, "y="; y

End Sub

程序运行后三次单击窗体，写出Form1上的输出结果。3．

Private Sub Form_Click()

Dim c As Integer, j As Integer, k As Integer k = 2

c = 3

For j = 1 To 5

If j > 3 Then

c = c + 5

Exit For

Else

k = k + 1

End If

Next j

Print c, k

End Sub

写出程序运行时单击窗体后，c,k的值分别是：

4．

Sub test(i As Integer)

i = i + 4

End Sub

Private Sub Form_Click()

Dim x As Integer

x = 5

Print "x="; x

Call test(x)

Print "x="; x

End Sub

写出程序运行时,单击窗体后显示的值。

Function F(a As Integer)

Static c

b = b + 2

c = c + 2

F = a + b + c

End Function

Private Sub Command1_Click()

Dim a As Integer

a = 5

For i = 1 To 3

Print F(a);

Next i

End Sub

程序运行后，单击命令按钮在窗体上的输出结果是: 6.

Private Sub Command1_Click()

Dim s As Double

Dim i As Integer

s = 8

i = 1

Do While i < 5

i = i + 2

s = s + i

Loop

Text1.Text = s

End Sub

写出程序运行时,单击窗体后显示的值。

Public Sub change1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer

t = x

x = y

y = t

End Sub

Public Sub change2(x As Integer, y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = 20:

b = 40

change1 a, b

Form1.Print "A1="; a, "B1="; b

a = 20:

b = 40

change2 a, b

Form1.Print "A2="; a, "B2="; b

End Sub

写出程序运行时，单击窗体Form1上的输出结果。

Private Sub Form_Click()

Dim i As Integer, k As Integer, c As Integer

For i = 1 To 9

If i Mod 2 = 0 Then

k = k + 3

Else

c = c + 4

End If

Next i

Print k, c

End Sub

程序运行后单击窗体，写出Form1上的输出结果。

参考答案：

s= 60

x= 2 y= 2

x= 2 y= 4

x= 2 y= 6

8 5

x= 5 x= 9

5．

9 11 13

6．

7．

A1=20 B1=40

A2=40 B2=20

8．

12 20

18．Main子过程

19．标准类模块文件

20．UDP

山东广播电视大学

《Visual Basic程序设计》课程期末复习题及参考答案

1.假设用Access创建了一个名为“HRM.mdb”的数据库，并在其中创建了一张名为“档案”的数据表，表中存放了人员的基本信息，如图1所示。

要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图2、图3所示。

图1 用Access创建的档案数据表

程序如下，请补充完整。

Public ADOcn As New Connection

Public Sub main()

Dim strAccess As String

图3 程序运行界面

strAccess= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path _

+ "\HRM.mdb;Persist Security Info=False"

ADOcn.Open [1]

frmMain.Show

End Sub

Private Sub Myrefresh()

Dim ADOrs As [2]

Dim strtmp As String

Dim i As Integer

[3] = ADOcn

ADOrs.Open "Select * From 档案Order by 编号"

MSFlexGrid1.Clear

MSFlexGrid1.FixedRows = 0

MSFlexGrid1.Rows = 1

MSFlexGrid1.Cols = 4

MSFlexGrid1.AddItem "职工编号" + vbTab + "职工姓名" + vbTab + "职称" + vbTab + "简历", 0

i = 1

Do While [4] ADOrs.EOF

strtmp = rs("编号") + vbTab + rs("姓名") + vbTab + rs("职称") + vbTab + rs("简历")

MSFlexGrid1.AddItem strtmp, i

ADOrs.MoveNext

[5]

MSFlexGrid1.FixedRows = 1

End Sub

Private Sub Form_Load()

Myrefresh

End Sub

2.假设用Access创建了一个名为“学生.MDB ”的数据库，并在其中创建了一张名为“学生基本情况”的数据

表，表中存放了学生的基本信息，如图4所示。

现在要求利用VB编写一个数据库查询程序，程序的运行界面如图5所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。

图4用Access创建的学生基本情况数据表

图5 查询程序运行界面

程序如下，请补充完整。

Private ADOcn As Connection

Private Sub Form_Load()

[1]

ADOcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\学生.MDB"

End Sub

Private Sub Command1_Click()

Dim strSQL As String

Dim [2] As New Recordset

ADOrs.ActiveConnection = ADOcn

strSQL = "Select * From 学生基本情况Where 学号=" + " ' " + Text1 + " ' "

ADOrs.Open [3]

If [4] ADOrs.EOF Then

Text2 = ADOrs.Fields("学号")

Text3 = ADOrs.Fields("姓名")

Text4 = ADOrs.Fields("籍贯")

Else

MsgBox "要查询的学号不存在，请重新输入!", vbOKOnly, "信息提示"

Text1 = ""

[5]

End If

End Sub

Private Sub Command2_Click()

UnLoad Me

End

参考答案：

1 .

[1] strAccess

[2] New.Recordset

[3]ADOrs.ActiveConnection

[4] Not

[5] Loop

[1] Set ADOcn = New Connection

[2] ADOrs

[3] strSQL

[4] Not

[5]Text1.SetFocus

1.已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students 表中添加学生记录。其运行界面如图1所示。

图1

程序如下，请补充完整。

'声明对象变量ADOcn，用于创建与数据库的连接

Private ADOcn As Connection

Private Sub Form_Load()

'连接SQL Server数据库

Dim strDB As String

strDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 学生"

If ADOcn Is Nothing Then

[1] = New Connection

ADOcn.Open [2]

End If

End Sub

Private Sub Command1_Click()

'增加学生记录

Dim strSQL As String

Dim ADOrs As New Recordset

ADOrs. [3] =ADOcn

ADOrs.Open “Select 学号From Students Where 学号=”+” … “+Text1+” … “

If Not [4] Then

MsgBox “你输入的学号已存在，不能新增加！”

Else

St rSQL=”Insert Into students (学号,姓名,,籍贯, 性别)

StrSQL=strSQL+Values(”+” … “+text1+” … , … “+text2+” …,? “+text3+” …,? “+text4+” …)”

ADOcn.Execute [5]

MsgBox “添加成功，请继续！”

End If

Private Sub Command2_Click()

Unload Me

End Sub

2．假设在C盘根目录中存在一个名为“学生.MDB”的Access数据库，其中包含一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图2所示。

现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图3所示，基本逻辑是：分别在Text1、Text2、Text3中输入学号、姓名、籍贯信息，然后点击“保存”按钮(Command1)将该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦点置于Text1上，等待用户修改或重新输入。当点击退出按钮(Command2)时关闭本窗体。

图2用Access创建的学生基本情况数据表

图3 查询成绩运行界面

程序代码如下，请补充完整。

Private ADOcn As New Connection

Private Sub Form_Load()

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生.mdb"

End Sub

Private Sub Command1_Click()

Dim strSQL As String

Dim ADOrs As New Recordset

ADOrs.ActiveConnection = [2]

strSQL = "Select * from 学生基本情况Where 学号=" + " ' " + [3] + " ' "

ADOrs.Open strSQL

If [4] Then

MsgBox "学号已经存在，请重新输入!", vbOKOnly, "信息提示"

Text1.SetFocus

Else

strSQL = "Insert Into 学生基本情况(学号,姓名,籍贯) "

strSQL = strSQL + " Values ( '" + Text1 + " ','" + Text2 + "','" + Text3 + " ')"

[5] .Execute strSQL

MsgBox "添加成功!", vbOKOnly, "信息提示"

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

参考答案：

[1] Set ADOcn [2] strDB

[3] ActiveConnection [4] ADOrs.EOF [5] strSQL 2．

[1] ADOcn.Open [2] ADOcn [3] Text1

[4] Not ADOrs.EOF [5] ADOcn

山东广播电视大学

《Visual Basic 程序设计》课程期末复习题及参考答案

1.设计一个简单的倒计时程序，要求：在文本框中输入倒计时的分钟数后，单击开始按纽就开始倒计时，倒计时结束时，弹出 “时间到”的信息框。程序运行界面如图4所示：

2.编写一个用户界面如图5所示的列表框应用程序。

要求从文本框Text1中输入始发地名称，然后按“添加”按钮，把该名称添加到列表框List1中；当选择列表框

中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中

选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。

图5 程序运行界面参考答案：

1.参考答案： Dim m As Long '声明一个变量 Private Sub Command1_Click() Timer1.Enabled = True m = Val(Text1.Text) * 60

Label1.Caption = "现在开始倒计时" Command1.Visible = False

End Sub

Private Sub Timer1_Timer()

m = m - 1

(a)启动界面

(b) 输入1分钟数字界面

(c)倒计时进行中界面 (d)倒计时结束界面图4 时钟程序运行界面 List1

Command3 Command2

Command1 Text1

If m < 0 Then

Timer1.Enabled = False

MsgBox "时间到！", 0, "倒计时"

Label1.Caption = "请输入计时的分钟数"

Text1.Text = ""

Command1.Visible = True '

Else

Text1.Text = m

End If

End Sub

2.参考答案：

Private Sub Form_Load()

List1.AddItem "北京-上海"

List1.AddItem "北京-广州"

List1.AddItem "北京-四川"

List1.AddItem "北京-西安"

List1.AddItem "北京-重庆"

List1.AddItem "北京天津"

End Sub

Private Sub Command1_Click()

If Text1.Text <> "" Then

List1.AddItem Text1.Text

Text1.Text = ""

Else

MsgBox "请在文本框中输入信息！"

End If

End Sub

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex End Sub

Private Sub Command3_Click()

If Command3.Caption = "修改" Then

Text1.Text = List1.Text

Text1.SetFocus

Command1.Enabled = False

Command2.Enabled = False

Command3.Caption = "修改确认"

Else

List1.List(List1.ListIndex) = Text1.Text

Command1.Enabled = True

Command2.Enabled = True

Text1.Text = ""

Command3.Caption = "修改"

End If

End Sub

1．编写一收款计算程序。要求用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运行界面如图6所示。

图6

2．请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入在1000元以内，扣税3%；

（2）收入在1000-4000元内，800元以上部分扣税15%，

（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，（4）当收入达到5000元以上，扣税25%。程序运行界面如图7所示。

图7

Text3 Text1

Text4 Text2 Command1 Command2

参考答案：

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "至少要输出单价！"

Text1.SetFocus

Exit Sub

End If

If Text2.Text = "" Then Text2.Text = 1

If Text3.Text = "" Then Text3.Text = 1

Text4.Text = Text1.Text * Text2.Text * Text3.Text

End Sub

参考答案：

Private Sub Command1_Click()

Dim x As Integer, tax As Single

x = Val(Text1.Text)

If x < 1000 Then

tax = x * 0.03

Else

If x <= 4000 Then

tax = (x - 800) * 0.15

Else

If x <= 5000 Then

tax = (x - 800) * 0.15 + (x - 4000) * 0.05

Else

tax = x * 0.25

End If

Text2.Text = tax

End Sub

山东广播电视大学

开放教育Visual Basic课程随堂练习1 1．在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（）。

A．立即窗口B．属性窗口

C．代码窗口D．工程资源管理器窗口

2．后缀为.vbp的文件表示VB 的（）

A．窗体文件B．类模块文件

C．工程文件D．标准类模块文件

3．要在窗体Form1内显示“myfrm”，使用的语句是（）

A．Form.caption="myfrm" B．Form1.caption="myfrm"

C．Form1.print "myfrm" D．Form. print "myfrm"

4．表达式8+13 Mod 2*4+3（）。

A．8 B．16 C．15 D．12

5．文本框没有（）属性

A、Text

B、Name

C、Caption

D、BorderStyle

6.下列赋值语句正确的是（）

A．B+C =A B．A=B+C

C．-B=A D．5=A+B

7．如果准备向随机文件中写入数据，正确的语句是（）

A．Write # 1,rec B．Print # 1,rec

C．Get # 1,rec D．Put # 1,rec

8．Winsock控件的LocalHostName属性的作用是（）

A．仅返回所用端口B．返回本地计算机的名称

C．返回或设置所用端口D．返回本地计算机的IP地址

9.要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（）

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语言简介

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

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复习资料

第一、二章 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中的颜色资料讲解

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基本语法

1.1 VB的数据类型数据类型是数据的表示和存储形式。VB定义的基本数据类型如表5-1所示。表5-1 VB的基本数据类型 Integer（整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度长整型）及Currency（货币型）均为Numeric数据类型。其中整型是16位的整数，长整型是32位的整数。单精度及双精度浮点型就表示实数，常被用于数量较大的数字。Currency数据类型支持小数点右面15位，是定点数据类型，适用于货币计算。 String（字符串变量）的数据类型只存放文本，是一个字符序列，它的每一个字符用ASCII 编码表示。不包含任何字符的串称为空串。 Byte数据类型表示0到255之间的数，常用于访问二进制文件、图形和声音文件

等。当需要把数据存放成字节，必须访问各字节时可采用Byte类型。取值仅为True/False的类型称为Boolean（布尔）型，缺省值为False。 Date数据类型用于以特殊方式存放日期和时间。 Object变量可引用应用程序中或某些其他应用程序中的对象。 VB缺省规定，如果在生命中没有说明数据类型，则变量的数据类型为Variant（变体）。Variant数据类型还包含三种特定值：Empty、Null、Error。Empty值用于确定是否已将一个值赋予所创建的变量。赋值之前，Variant变量具有值Empty。 Null常用于数据库应用程序，表示未知或丢失为空的数据。 Error值是指已发出的过程中的错误状态。 Variant数据类型是最为灵活的数据类型，可以依据不同的需要进行各种数据类型的转换。它实际上包含两部分信息，一部分是数据类型的信息，一部分是表示数据值的信息。但正是由于它的灵活性，又使得它存在着一个明显的缺点，Variant数据类型比其他类型的数据占有更多的内存空间。 2 数组 VB中数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如：Dim Array（9）As Integer 数组中包含10个元素，脚标从0到9。也可以指定脚标的起始值，例如： Dim IntegerArray（2 to 10）As Integer 这个数组含有九个元素，脚标从2到10。还可以定义多维数组： Dim ThreeD（4,2 to 5,3 to 6）As Integer

VB程序练习资料

如下二维数组声明语句，________B____正确。 A、Dim a(n，n) As Integer B、Dim a(3，4) As Integer C、Dim a(34) As Integer D、Dim a[3，4] As Integer 下列语句可以用来正确地声明一个动态数组的是___B__。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n) D、Dim A(,) As Integer 如下二维数组声明语句，______C__正确。 A、Dim a(34) As Integer B、Dim a(n，n) As Integer C、Dim a(3，4) As Integer D、Dim a[3，4] As Integer 下列语句中的语句可以用来正确地声明一个动态数组。A A、Dim A() As Integer B、Private A(n) As Integer C、Dim A(,) As Integer D、Dim A(1 to n) 下面关于动态数组的叙述中，不正确的是__B________。 A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组 B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值 C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组 D、在重新定义动态数组时，变量不可以出现在维界表达式中若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用__D______关键字在该过程中定义局部变量。 A、Dim B、Private C、Public D、Static 在调用Sub或Function过程时，采用___A___传送相应过程的变量名、数组名、常数或表达式。 A、实际参数 B、形式参数 C、对象参数 D、数组参数给出下列程序代码，在单击命令按钮时的输出结果是___B_____。 Private Sub Command1_Click ( ) Dim x As Integer, y As Integer x=1:y=1 For n=1 TO 3 z=FirstFunc (x, y)

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

这些游戏以前玩过吧，快下载看它们是怎么编写的！目录： ·编写趣味撞球小游戏 ·用VB6.0设计简易赛车游戏 ·Visual Basic小游戏：猜英雄 ·VB游戏写作技巧（1）秀图篇 ·VB游戏写作技巧（2）网络篇 ·VB 贪吃蛇单人版游戏(一) ·VB 贪吃蛇单人版游戏(二) ·VB 贪吃蛇单人版游戏(三) ·VB 贪吃蛇单人版游戏(四) ·用VB开发即时战略游戏正文：编写趣味撞球小游戏文章来源：沐风经典文章作者：佚名 Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。首先启动VB5，新建一个标准的EXE工程。此时可以看到，工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控

VB6.0图文实例教程

VB教程：序言-不再游戏我们需要什么我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在

不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配臵情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。何为可视

Vb复习资料

Vb复习提纲 Vb的三种工作模式：设计模式；运行模式；中断模式。运行模式中不能编辑代码，不能编辑界面；中断模式中可以编辑代码，不能编辑界面。 Vb程序的执行方式：解释方式（便于程序的调试和修改，运行速度较慢）；编译方式对象：对象指现实世界中的实体，可以是抽象的也可以是实体的，有自己的特征（属性），行为（方法），活动（事件）的类：对同一种对象的集合与抽象，封装和隐藏是类的重要特性。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。 Vb对象的三要素：属性&方法&事件基本属性：name(名称)：所有对象都具有的属性，是创建对象的名称Caption：决定了控件上显示的文本内容。（文本框和combo框[也有list属性]为text属性，list框为list属性 Font：改变文本的外观，包括

1．Fontname：字体属性，是字符型（”“） 2．Fontsize：字体大小，是数字型 3．Fontbold：字体加粗，是逻辑型 4．Fontitalic：字体斜体，是逻辑型 5．Fontstrikethru：加删除线，是逻辑型 6．Fontunderline：加下划线，是逻辑型 Enable属性：决定控件能不能使用：true：可以使用，对操作做出响应；false：不能操作，呈灰色，对操作无响应。 Visible属性：决定控件是否可见：true：程序运行时控件可见；false：程序运行时控件隐藏，用户看不到，但控件本身存在。MouseIcon：鼠标的指针类型，鼠标类型设置值为0~15，值若为15则是用户自定义鼠标文件。事件： Load：窗体被装入是自动执行，用于对属性值和变量的初始化。Click，DblClick：单击和双击事件，由鼠标单击和双击时候触发事件。方法： Print：用于在窗体或者图形框中显示文本 Cls：在窗体或者图形框中清除运行时产生的图形或者文本 Move：移动一个窗体或者控件图片的引用——loadpicture（App.Path+ ” \summer.bmp ”）相对引用，图片和工程文件在一个文件夹中。Loadpicture ( “ D : \

VB详细数据类型

一、数据类型概述数据:计算机能够处理数值、文字、声音、图形、图像等信息，均称为数据。数据类型:根据数据描述信息的含义，将数据分为不同的种类，对数据种类的区分规定，称为数据类型。数据类型的不同，则在内存中的存储结构也不同，占用空间也不同 VB的基本数据类型：数值型数据（主要数据类型）日期型字节型货币型逻辑型字符串型对象型变体型二、数值数据类型数值类型分为整数型和实数型两大类。 1、整数型整数型是指不带小数点和指数符号的数。按表示范围整数型分为：整型、长整型（1）整型（Integer，类型符%）整型数在内存中占两个字节（16位）十进制整型数的取值范围：-32768 ~ +32767 例如：15，-345，654%都是整数型。而45678%则会发生溢出错误。（2）长整型（Long，类型符&）长整数型在内存中占4个字节（32位）。十进制长整型数的取值范围： -2147483648 ~ +2147483647 例如：123456，45678&都是长整数型。 2、实数型（浮点数或实型数）实数型数据是指带有小数部分的数。注意：数12和数12.0对计算机来说是不同的，前者是整数（占2个字节），后者是浮点数（占4个字节）实数型数据分为浮点数和定点数。浮点数由三部分组成：符号，指数和尾数。在VB中浮点数分为两种：单精度浮点数（Single ）双精度浮点数（Double ）（1）单精度数(Single，类型符！) 在内存中占4个字节（32位），,有效数字：7位十进制数取值范围：负数-3.402823E+38 ~ -1.401298E-45 正数1.401298E-45 ~ 3.402823E+38 在计算机程序里面不能有上标下标的写法，所以乘幂采用的是一种称为科学计数法的表达方法这里用E或者e表示10的次方(E/e大小写都可以）比如：1.401298E-45表示1.401298的10的负45次方

VB知识点整理

第四单元、VB基础知识 1、Visual basic开发应用程序的主要特点是：面向对象、可视化和事件驱动。 2、VB常用控件： 1）标签（Label）：用于显示不可交互操作的文本信息。 2）文本框（Textbox）：一个文本编辑区域，可在该区域输入、编辑和显示文本内容。 3）命令按钮（Commandbutton）：一般用来接收用户单击事件，在单击事件中执行特定的程序。 4）列表框（ListBox）：显示一个选项的列表，以供用户浏览或选择 5）计时器（Timer）：有规律的以一定的时间间隔触发Timer事件，从而执行相应的程序代码。控件在运行时不可见。 6）图像框（Image）：显示图片内容。 3、事件过程格式： Sub 对象名_事件名（[参数列表]）语句块 End sub 例如：若窗体中有一个命令按钮command1，则它的单击事件处理过程格式为： Sub command1_click() ...... End sub

4、VB程序部区分字母大小写，系统对用户代码按以下规则自动转换： 1）关键字首字母大写，其余字母小写； 2）多个英文单词组成的关键字，每个单词的首字母大写； 3）用户自定义的变量、过程名，以第一次定义为准，以后输入自动转换成首次定义的形式。 5、 VB语句书写规则： 1）VB以回车换行作为语句结束。一般一行一条语句。一行最多允许25个字符。 2）同一行上可以书写多条语句，语句间以冒号（：）分隔。 3）一条语句可以分多行书写，在本行后加续行符（空格和下划线）。 6、VB常用标准函数注：返回值中没有双引号，用双引号仅表示这是一个字符串，及空格明显。

VB属性使用大全

VB属性使用大全 AccessKeys AccessType ACStatus Action_command Action_MAPIMessages Action_MAPISession Action_OLE ActiveCodePane ActiveConnection ActiveControl ActiveForm ActiveRow ActiveSeriesCount ActiveVBProject ActiveWindow AddIns

AddNewMode AddressCaption AddressEditFieldCount AddressLabel AddressModifiable AddressResolveUI AggregateOn AggregateType Align Alignable Alignment Alignment_ ColumnHeader Alignment_Panel Alignment_UpDown

AllowAddNew AllowArrows AllowBigSelection AllowColumnReorder AllowCustomize AllowDelete AllowDithering AllowDynamicRotation AllowFocus AllowPromptAllowSeriesSelection AllowSizing AllowUpdate AllowUserResizing AllowVertical AllowZeroLength Ambient AmbientIntensity

VB学习资料

一、VB程序开发的一般步骤： 1、建立用户界面 2、设置对象属性 3、编写代码二、VB窗体和常用控件 1、窗体 Font中：FontName、FontSize、FontBold、FontItalic、FontUnderline、FontStrikethru （字体、字号、加粗、倾斜、下划线、删除线） 2、一般类控件的使用

三、选择类控件 1 说明： ①List属性是一个数组，一般格式为：List（x）如List（1）表示是第二个项目 ②ListIndex属性的值为当前选中的列表项的索引值，0表示选中，-1表示没有选中。 ③ListCount属性表示一共有多少个列表项 ④Text属性表示当前选中的列表项的内容。

方法是VB自身提供的一些特殊的过程，用来完成一定的操作。不同的对象可执行不同的操作，因此，对象调用的方法也有所不同。窗体上常用的方法有： (1)Show方法调用该方法可以将窗体显示在屏幕上。调用格式：[对象名].Show (2)Hide方法调用该方法可以隐藏窗体，但不会卸载窗体。调用格式：[对象名]. Hide (3)Move方法 (4)Cls方法可以清除窗体内的文本和图形。调用格式：[对象名]. Cls (5)Print方法在窗体上显示文字信息。调用格式：[对象名]. Print 五、VB的数据类型表

六、运算符和表达式

七、常用内部函数

八. 数据的输入输出 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中:提示为提示信息,标题为对话框标题,缺省为输入区缺省值函数返回字符类型. 2. MsgBox函数和MsgBox过程函数形式:变量[%] = MsgBox(提示[,按钮][，标题])

VB知识点总结

VB知识点总结大全第一章VB入门（*） 1.2.2 主窗口 1．标题栏三种工作模式（1）设计模式：可进行界面设计、代码编制（2）运行模式：不可编辑界面、代码（3）中断模式：不可编辑界面，可以编辑代码 2．菜单栏 3．工具栏 1.2.3 设计窗口 1．窗体设计窗口 2．代码设计窗口（1）打开方式： 1.单击菜单栏的视图——选择代码窗口 2.双击窗体、控件 3.单击工程资源管理器窗口的“查看代码” （2）主要内容 1.对象列表框：显示所选对象的名称。列出窗体所有可用的对象名。 2.过程列表框：列出所有对象列表框中对象的事件过程或自定义过程的名称。 1.2.4属性窗口由四部分组成： 1.对象列表框 2.属性排列方式：按字母排列、按分类排列 3.属性列表框：左边为属性名，右边为相应的属性值 4.属性含义说明：显示所选属性的含义 1.2.5 工程资源管理器窗口（1）3个按钮 1.“查看代码”：切换到代码窗口，显示和编辑代码 2.“查看对象”：切换到窗体窗口，显示和编辑对象 3.“切换文件夹”：切换到文件夹显示方式（2）包含两种类型的文件 1.窗体文件（.frm文件）：储存窗体上所有控件对象和有关的属性、对象相应的事件过程、程序代码。 2.标准模块文件（.bas文件）：储存所有模块级变量和用户定义的通用过程，该类型可选。 1.2.6 工具箱窗口

一般由21个按钮形式的图标构成。除指针外的20个为标准控件（指针不是控件），每个也是一个类。如：文本类、图形类等。 1.3.1 建立一个应用程序的步骤 1.建立用户界面的对象 2.对象属性的设置 3.创建对象事件过程及编程 4.运行和调试程序 5.保存程序和生成可执行文件 1.3.2 VB程序结构和编码规则 1.程序结构（1）最上面为通用声明段，主要编写模块级以上的变量声明、Option选项的设置等。（2）以下为程序代码的块结构，也就是事件过程或自定义过程，这构成程序的主体。块的先后次序与程序执行次序无关。 2.编码规则（1）代码不区分字母的大小写（2）语句书写自由 1.同一行可书写多个语句，语句间用冒号分隔 2.一个语句可分多行写，要在本行末加续行符“-”（空格和下划线）（3）为了程序的阅读、维护和调试，可加注释 1.一般用’(撇号)注释内容 2.也可使用工具栏的文本编辑器中的注释第二章可视化编程基础（***） 2.1.2 类和象 1.对象：具体的控件或窗体等都是对象。 2.类：工具箱上的可视图标是标准控件类，如：命令按钮类、文本框类等。注：窗体是个特例，它既是类也是对象。 2.1.3 对象的属性、方法和事件属性、方法和事件构成了对象的三要素。 1.属性（用来描述和反映对象特征的参数）设置属性的两种方法：（1）在设计时，通过属性窗口直接设置（2）在代码中设置，通过赋值实现大多数属性都可用以上两种方法设置，这种属性称为“可读写属性”，有一些只能通过属性窗口设置，此种属性称为“只读属性” 2.方法（附属于对象的行为和动作，也就是指使对象动作的命令）如：Text1.setFocus （其中setFocus就是方法） 3.事件（如单击、双击、装载等都是事件）事件和方法的简单区别：

VB基础入门教程

VB最简单入门教程

目录（提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)

1.1 1 我们需要什么我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。何为可视英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。

山东广播电视大学VB课程期末复习6

最新vbmapp学习资料资料

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

VB语言简介

VB学习资料

VB复习资料

VB中的颜色资料讲解

VB基本语法

VB程序练习资料

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

VB6.0图文实例教程

Vb复习资料

VB详细数据类型

VB知识点整理

VB属性使用大全

VB学习资料

VB知识点总结

最新vb编程代码大全资料

VB基础入门教程

最新VB程序知识点资料