VB练习题
Visual Basic练习题
1、当文本框的内容发生变化时，必将触发（ C ）事件。
A、LostFocus
B、KeyPress
C、Change
D、Click
2、在Visual Basic中，下列（ D ）函数的值只为1，0，-1。
A、INT(X)
B、ABS(X)
C、SQR(X)
D、SGN(X)
3、下列Visual Basic程序段运行后，变量 a、b、c的值为（）。
a = 1 :
b = 1 :
c = 1
Do While a + b + c < = 10
a = a + 1
b = b * 2
c = b / 2
Loop
A、2 2 1
B、3 4 2
C、4 8 4
D、4 4 2
4、当程序在运行过程中因某种原因中断时，VB进入（ C ）模式。
A、设计
B、运行
C、中断
D、工具
5、要改变控件的高度，应改变（ A ）属性。
A、Height
B、Width
C、Top
D、Left
6、下列Visual Basic程序段运行后，变量x的值为（）。
x = 3
y = 77
Do
x = x + 2
Loop Until x > Sqr (y)
A、7
B、8
C、9
D、10
7、在Visual Basic中，建立一个文本编辑区域，可采用下列（ C ）。
A、命令按钮
B、标签控件
C、文本控件
D、定时器控件
8、下列（ D ）表达式的值不等于4。
A、Int (4.1)
B、Int (4.9)
C、Abs (int (-3.9))
D、Abs (int (-4.5))
9、下列Visual Basic程序段运行后，变量m 的值为（）。
a = 2 :
b = 1 :
c = 5
If a < b Then m = a Else m = b
If c < m Then m = c
A、2
B、1
C、5
D、三项答案均不是
10、窗体模块文件的扩展名是（ A ）。
A、frm
B、bas
C、vbp
D、txt
11、对象的三个要素是（ A ）。
A、属性、方法、事件
B、色彩、高度、宽度
C、事件、属性、色彩
D、属性、高度、宽度
12、下列合法的变量名是（ C ）。
A、na + e
B、e 3r
C、r_3
D、5we
13、标准模块文件的扩展名是（ B ）。
A、frm
B、bas
C、vbp
D、txt
14、要把光标移到文本框Text1上，以便接收输入数据，正确的命令是（ C ）。
A、Text1.LostFocus
B、Text1.GotFocus
C、Text1.SetFocus
D、GotFocus.Text1
15、下列不合法的变量名是（ D ）。
A、name
B、e3
C、r_3
D、we – 5
16、在VB中，通过改变下面（ A ）属性，可以改变按钮控件上的文字。
A、Caption
B、Font
C、ForColor
D、Alignment
17、在VB中，下列（ C ）函数的值不等于1。
A、Sgn (10.5)
B、Exp (0)
C、Rnd
D、Int (1.999)
18、下列Visual Basic程序段运行后，变量x的值为（ A ）。
x = 2 : Print x + 2 : Print x + 3
A、2
B、3
C、5
D、8
19、在Visual Basic中，设置控件的大小，可改变下列（ A ）属性。
A、Height 与Width
B、Height 与Top
C、Left 与Top
D、Left 与Width
20、在Visual Basic中，设置控件的位置，可改变下列（ C ）属性。
A、Height 与Width
B、Height 与Top
C、Left 与Top
D、Left 与Width
21、在Visual Basic中，下列（ C ）程序运行是对的。
A、X – 5 = Y = 5
B、A + B = C ^ 3
C、Y = 1 ：Y = Y + 1
D、I = 5 ；I = “X10”
22、下列VB程序段中，循环体执行的次数为（）。
y = 2
Do While y < = 8
y = y + y
Loop
A、2
B、3
C、4
D、5
23、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2（ A ）。
A、用于测试X是否偶数
B、返回一个整数
C、返回一个奇数
D、用于测试X是否整数
24、下列 Visual Basic 程序段运行后，变量Value的值为（）。
x = 20
If x > = 10 Then Value = 5 * x Else Value = 4 * x
A、100
B、80
C、90
D、70
25、在Visual Basic中调整应用程序的文件集合时,通常采用（ D ）。
A、属性窗口
B、代码编辑窗口
C、窗体设计器窗口
D、工程资源管理器窗口
26、下列（ A ）不是Visual Basic程序的基本结构。
A、层次结构
B、分支结构
C、循环结构
D、顺序结构
27、下列Visual Basic程序段运行后，变量n 的值为（）。
n = 0
For x = 3 To 11 Step 2
n = n + 1
Next x
A、4
B、5
C、6
D、7
28、从下图可知当前Visual Basic的运行模式是（ C ）。
A、设计模式
B、运行模式
C、中断模式
D、不确定
29、要改变新建立对象的缺省名称，应使用属性（ C ）。
A、Font
B、ForeColor
C、Name
D、Height
30、下列属于字符常量的是（ B ）。
A、abs (x)
B、“100”
C、val (“100”)
D、10000/100
31、当在Visual Basic要设置某个对象的属性时，应进入（ A ）。
A、设计模式
B、运行模式
C、中断模式
D、任意模式
32、要改变一个对象的高度，应使用属性（ D ）。
A、Font
B、ForcColor
C、Name
D、Height
33、下列语句中（ B ）定义了一个实型变量。
A、Dim I As Integer
B、Dim Sum As Single
C、Dim Name As String
D、wjm =“信息技术”
34、下面四项都与工具栏相关，其中正确的叙述是（ C ）。
A、 VB将所有的命令编制成图标形式的命令按钮
B、工具栏不可以隐藏
C、工具栏中的命令按钮与“文件”菜单中的“保存工程”功能相同
D、工具栏中的命令按钮的功能就是播放音乐
35、要使一个控件在运行时无效，正确的设置是（ B ）。
A、把属性Enabled设置为True
B、把属性Enabled设置为False
C、把属性Visibled设置为True
D、把属性Visibled设置为False
36、函数Int (-3.6)的值是（ C ）。
A、-3
B、3
C、-4
D、4
37、要改变控件的宽度，应改变控件的（ A ）属性。
A、width
B、height
C、top
D、left
38、要使一个命令按钮显示文字“确定”，正确的设置是把该命令的（ C ）。
A、属性Font设置为“确定”
B、属性ForeColor设置为“确定”
C、属性Caption设置为“确定”
D、属性BorderStyle设置为“确定”
39、表达式abs (-3.6 ) * sqr (100 ) 的值是（D）。
A、-360
B、360
C、-36
D、36
40、要在窗体中创建一个标签，可使用工具箱中的（）控件。
A、B、C、D、
41、单击命令按钮Command1必将调用已写在（）事件中的代码。
A、LostFocus
B、KeyPress
C、Dbclick
D、Click
一、单项选择题
1．在下列有关Visual Basic的叙述中，错误的是（）。
A．采用了事件驱动的编程机制B．是面向对象的编程语言
C．是可视化的程序设计语言D是面向过程的程序设计语言．2．应用程序打包后，其包文件的后缀为（）。
A．.exe B．.txt
C．.cab D．.ocx
3．在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（）。
A．列表框B．通用对话框
C．驱动器列表框D．图片框
4．设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（）。
A．Form1_Click() B. Form1_DbClick()
C．Form_Click() D．Form_DbClick()
5．对于定时器（Timer）控件,设置其定时是否开启的属性是（）。
A．Index B．Tag C．Enabled D．Interval
6．在Visual Basic中，工程文件的扩展名为（）。
A．.frm B．.vbp
C．.cls D．.bas
7．有程序代码如下：
Text1.Text = "欢迎走进VB世界！"
则Text1，Text ，和"欢迎走进VB世界！"分别代表（）。
A．对象，值，属性B．对象，属性，值
C．对象，方法，属性D．属性，对象，值
8．以下叙述中正确的是（）。
A．窗体的Name属性指定窗体的名称，用来标识一个窗体
B．窗体的Name属性的值是显示在窗体标题栏中的文本
C．可以在运行期间改变对象的Name属性的值
D．对象的Name属性值可以为空
9. VB提供了结构化程序设计的三种基本结构是（）。
A．选择结构、过程结构、顺序结构
B．选择结构、循环结构、顺序结构
C．过程结构、转向结构、递归结构
D．递归结构、选择结构、循环结构
10．在VB中，下列变量名不合法的是（）。
A．take_1 B．take C．take_1_2 D．take-1
11．下列说法中正确的是（）。
为了保存一个Visua Basic应用程序，应当
A．只保存窗体文件
B．只保存工程文件
C．分别保存工程文件和标准模块文件
D．分别保存工程文件、窗体文件和标准模块文件
12．确定一个控件在窗体上的位置的属性是（）。
A．Width或Height B．Width和Height
C．Top和Left D．Top或Left
13．确定一个窗体或控件的大小的属性是（）
A．Width或Height B．Width和Height
C．Top或Left D．Top和Left
14．当一个工程含有多个窗体时，其中的启动窗体是（）。
A．第一个添加的窗体 B．最后一个添加的窗体
C．包含控件最多的窗体 D．在“工程属性”对话框中指定的窗体
15．在一个语句行内写多条语句时，语句之间应该用（）分隔。
A．逗号B．冒号
C．顿号D．分号
16．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Style和Picture B．Style和Icon
C．Caption和Picture D．Value和Icon
17．目录列表框的Path属性的作用是（）。
A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．只显示当前路径下的文件
C．显示根目录下的文件名
D．显示当前驱动器或指定驱动器上的路径
18．将数据" China"项添加到列表框（List1）中成为第一项应使用的语句是（）。A．List1.AddItem 0, " China" B．List1.AddItem 1, " China"
C．List1.AddItem " China" ,0 D．List1.AddItem " China" ,1
19．要绘制多种形状的图形，需要设置Shape控件的（）属性。
A、Style
B、Borderstyle
C、FillStyle
D、Shape
20．下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（）。A．Picture1=" pic1.jpg "
B．Picture1 =LoadPicture("pic1.jpg")
C．Picture 1.Picture=LoadPicture(("pic1.jpg")
D．Picture 1.Picture=LoadPicture(("pic1 ")
21．如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。A．Public Sub B．Private Sub
C．Public Function D．Private Function
22．不属于VB数据库引擎的是（）。
A．ODBC B．BDE C．Jet引擎D．OLEDB
23. 在VB应用程序中，进行断点设置的按键是（）。
A．Ctrl+F9键B．F9键
C．Ctrl+F8键D．F8键
24．如果准备读文件，打开顺序文件”text.dat”的正确语句是（）。
A．open"text.dat"For wrire As # 1
B．open"text.dat"For Binary As # 1
C．open"text.dat"For Input As # 1
D．open"text.dat"For Random As # 1
25．使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。 A．Open B．Execute
C．CommandType D．ActiveConnection
26.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。 A．Open B．Execute
C．CommandType D．ActiveConnection
27．在VB中，一旦数据到达，将首先触发Winsock控件的（）。
A．DataArrival事件B．ConnectionRequest事件
C．DataSend事件 D．GetGet事件
28．Winsock控件的LocalPort属性的作用是（）
A ．仅返回所用断口B．仅设置所用端口
C．返回或设置所用端口D．返回或设置IP地址
二、填空题
1．每个应用程序必须有一个惟一的文件。
2．窗体文件和类模块文件的扩展名分别是和。
3．表达式6 + 15 \ 2 * 2 Mod 2的值是。
4．表达式17\2-2^3*5MOD6的值是。
5．计时器控件响应的事件是。
6．在Visual Basic中，变量的默认类型是。
7．为了在运行时把当前路径下的图形文件show.jpg装入图片框P1，所使用的语句为。
8．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从0到2，第二维下标从1到3，则相应数组声明语句为。
9．用Dim A(-2 to 3)语句声明二维数组后，数组A的元素共有个。
10. VB中参数传递的机制有两种，一种是参数，另一种是
参数。
11. 控件数组的名字由属性指定，而数组中的每个元素由属性决定。
12．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向，Y轴的正向向。
13．窗体、图片框或图像框中的图形通过对象属性。
14．在VB中，将Foxpro称为外部数据库，Access称为，SQL Server 称为。
15．vb应用程序与数据库进行通信的主要机制称为。
16．全局变量必须在模块中定义，所使用的关键字为。17．全局变量是指那些在中有效的变量，一般在模块代码编辑器的顶部使用声明。
18．Winsock控件主要用来编制或协议的网络应用程序。
三、阅读程序题（共25分）
阅读下列程序并写出程序运行结果
1．
Private Sub Command1_Click()
Dim x As Integer
Static s As Integer
x = V al(InputBox("请输入一个正整数="))
If x < 5 Then
s = s * x
Else
s = s + x
End If
Text1.Text = "s=" & Str(s)
End Sub
程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。
2.
Private Sub Form_Click()
Static a As Integer
Dim b As Integer
a = a + 3
b = b + 4
Text1 = a
Text2 = b
End Sub
写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。
3.
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer, j As Integer
A(1) = "2"
A(2) = "4"
A(3) = "6"
c = 2
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
4.
Private Sub Form_Click()
n = 0
For i = 1 To 2
For j = 2 To 4
If j Mod 2 <> 0 Then
n = n + 1
End If
n = n + 2
Next j
Next i
Print n
End Sub
写出程序运行时单击窗体后，窗体Form1上的输出结果。
5.
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 2:
b = 3
For i = 1 To 3
For j = 1 To i
b = b + j
Next j
a = a + b
Next i
Print a
End Sub
写出程序运行时单击命令按钮后，窗体Form1上的输出结果。
6.
Private Sub Form_Click()
Dim A(1 To 4) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "6"
A(3) = "8"
A(4) = "10"
c = 1
For j = 1 To 4
c = c + Val(A(j))
Next j
Print c
End Sub写出程序运行时单击窗体后，窗体Form1上的结果。
7.
Sub Change(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
Print x, y
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 10:
b = 20
Change a, b
Print a, b
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
8.
Function F(n As Integer) As Long
Dim i As Integer, Temp As Long
Temp = 1
For i = 1 To n
Temp = Temp * i
Next i
F = Temp
End Function
Private Sub Form_Click()
Dim k As Integer, nj As Integer
k = 5
nj = F(k)
Print k; "！="; nj
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
四、完善程序题（共10分）
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 = [1] "
If ADOcn Is Nothing Then
[2]
[3]
End If
End Sub
Private Sub Command1_Click()
'增加学生记录
Dim strSQL As String
Dim ADOrs As [4]
[5] =ADOcn
ADOrs.Open “Select学号From Students Where 学号=”+” … “+Text1+” … “
[6] Then
MsgBox “你输入的学号已存在，不能新增加！”
Else
StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别)
StrSQL=strSQL+Values(”+”…“+text1+”… , …“+text2+”…,?“+text3+”…,?“+text4+”…)”
ADOrs.Execute [7]
MsgBox “添加成功，请继续！”
End If
Private Sub Command2_Click()
Unload Me
End Sub
2．
在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为E盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。
图2
程序如下，请补充完整。
Private Sub Form_Load()
Drive1.Drive = [1]
[2] = "*.bmp;*.gif;*.jpg"
End Sub
Private Sub Drive1_change()
[3] = Drive1.Drive
Text1.Text = Drive1.Drive
End Sub
Private Sub Dir1_Change()
[4]
Text1.Text = Dir1.Path
End Sub
Private Sub File1_click()
Picture1. [5] = LoadPicture(File1.Path + "\" + File1.FileName)
FileName = File1.Path + "\" + File1.FileName
Text1.Text = [6]
End Sub
五、编写程序题
1.按下述规定，编写一征收所得税程序。
（1）收入在1000元以内，不纳税；
（2）收入超过1000元以上的部分，纳税20%
（3）当收入达到5000元或超过时，5000元以上的部分，纳税22%。
程序运行界面如图3所示：
图3
答案
一、单项选择题
1.D
2.C
3.B
4.C
5.C
6.B
7.B
8.A
9.B 10.D 11.D 12.C 13.B 14.D 15.B 16.A 17.D 18.C 19.D 20.C 21．B 22．B 23．B 24．C 25.D 26.D 27.A 28.C
二、填空题（每小题2分，共20分）
1．.vbp
2．.frm .cls
3．7
4．4
5．Timer
6．Variant 或变体型
7．P1. Picture = LoadPrcture("show.jpg")
8．Dim A(0 To 2,1To 3) As Integer
9．6
10．引用参数传递（或按址传递）按值传递
11．Name Index
12.右上
13Picture
14.本地数据库、远程数据库
15.数据库引擎
16.标准Public
17.整个应用程序Public
18.CP/IP UDP
三、阅读程序题
1.s =6 s =11 s =44
2.
3 4
6 4
9 4
3.
14
4.
14
5．
26
6．
29
7．
30 20
20 30
8．
5！=120
四、完善程序题
1．
[1]学生
[2] Set ADOcn =New Connection
[3]ADOcn.Open strDB
[4]New Recordset
[5] ADOrs.ActiveConnection
[6]If Not ADOrs.EOF
[7] str SQL
2．
[1] "E:\"
[2]File1.Pattern
[3] Dir1.Path
[4] File1.Path = Dir1.Path
[5] Picture
[6] FileName
五、编写程序题
参考答案：
Private Sub Command1_Click()
Dim x As Integer, tax As Single
x = V al(Text1.Text)
If x <= 1000 Then
tax = 0
ElseIf x <= 5000 Then
tax = (x - 1000) * 0.2
Else
tax = (x - 5000) * 0.22 + 4000 * 0.2 End If
Label3.Caption = tax
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
一、单项选择题
1．后缀为.bas的文件表示（）。
A．类模块文件B．窗体文件
C．标准类模块文件D．窗体二进制数据文件
2．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。
A．事件驱动B．按过程顺序执行
C．从主程序开始执行D．按模块顺序执行
3．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。
A．不包含任何控件的窗体B．设计时的第一个窗体
C．最后一个添加的窗体D．命名为Frm1的窗体
4．Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。
A．设计模式B．执行模式
C．中断模式D．编写代码模式
5．当运行程序时，系统自动执行启动窗体的（）事件过程。
A．Load B．Unload
C．Click D．GotFocus
6．下列关于变量的说法不正确的是（）。
A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B．局部变量的作用域仅限于声明它的过程
C．静态局部变量是在过程中用Static语句声明的
D．局部变量在声明它的过程执行完毕后就被释放了
7．能够改变标签（Label）控件显示标题的属性是（）。
A．Name B．Text
C．Caption D．Click
8. 工程文件的扩展名是（）。
A．.frm B．.bas
C．.vbp D．.frx
9．启动VB后，系统为用户新建的工程名称是（）。
A．窗体1 B．窗体
C．工程1 D．工程
10．要在窗体的标题内显示“myfrm”,使用的语句是（）。
A．Form.caption="myfrm" B．Form1.caption="myfrm"
C．Form1.Print"myfrm" D．Form.Print"myfrm"
11．在设计动画时，用时钟控件来控制动画速度的属性是（）
A．Enabled B．Interval
C．Timer D．Move
12．在VB中，下列变量名不合法的是（）。
A．ab_1 B．ab C．ab-1 D．ab_1_2
13．用于设置在文本框中显示字符的属性是（）。
A．AutoSizi B．Passwordchar
C．MultiLine D．ScrollBars
14．要从For…Next循环中退出循环，应使用（）语句。
A．Exit B．Exit For C．Continue D．Stop Loop
15．下列赋值语句正确的是（）。
A．x = y + z B．y + z = x
C．-y = x D．4 = x +y
16．要利用公用对话框控件来显示“打开文件”对话框，需要调用控件的（）方法。A、ShowPrinter B、ShowOpen C、ShowSave D、ShowColor
17．在Visual Basic中，变量的默认类型是（）。
A．Double B．V ariant
C．Currency D．Integer
18．确定一个控件在窗体上位置的属性是（）
A．Width和Height B．Width或Height
C．Top和Left D．Top或Left
19．KILL语句在VB语言中的功能是（）。
A．清内存B．清病毒
C．删除磁盘上的文件D．清屏幕
20．如果希望以模态方式显示窗体Form1，下列正确的语句是（）
A．Form1.Show 0 B．Form1.Show
C．Form1.Show 1 D．以下都不正确
21．在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（）。
A．通用对话框
B．列表框
C．文本框
D．命令按纽
22．如果创建了命令按钮的控件数组，那么Click事件的参数是（）。
A．Caption B．Index
C．Tag D．没有参数
23．为了使图像框中的图形自动适应图像框的大小，则应（）。
A．将其AutoSize属性值设置为True B．将其AutoSize属性值设置为False C．将其Stretch属性值设置为True D．将其Stretch属性值设置为False
24．如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。A．Public Sub B．Private Sub
C．Public Function D．Private Function
25．不属于VB数据库引擎的是（）。
A．ODBC
B．OLE DB
C．Jet引擎
D．BDE
26. 下列叙述不正确的是（）。
A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译
B.注释语句不能放在代码中的任何位置
C.注释语句可以放在代码中的任何位置
D.代码中加入注释语句的目的是提高程序的可读性
27．ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（）。A．Command B．Connection
C．Recordset D．Field
28．ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（）。
https://www.360docs.net/doc/153295127.html,mand
B.Connection
C.Recordset
D.Field
29．下列只能用程序代码设置，不能通过属性窗口设置的属性是（）。
A．Drive属性B．Pattern属性C．Visible属性D．Index属性
30．要发送数据，通常使用Winsock控件的（）。
A．GetDate方法B．Listen方法
C．Accept方法D．SendData方法
二、填空题
1. 工程文件的扩展名是，窗体文件的扩展名是。
2．一个VB应用程序可以包含个vbp文件。
3．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置。
4．表达式8 + 17 \ 2 * 3 Mod 2的值是。
5．表达式6 + 13 Mod 4 * 2 + 2的值是。
6．列表框中项目的序号是从开始的。
7．变量的声明方法有隐式和声明两种。任何变量在声明后均有一个初始值，一般情况下，数值型变量的初始值为。
8．为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picture1，所使用的语句为。
9．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是，全局变量在整个应用程序中有效，其作用域是。
10. VB中的程序错误类型主要有、、等三种。11．在VB中进行程序调试时，若需要逐语句调试按键，若要设置断点，需按键。
12．数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主要机制称为。
13．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到3，第二维下标从-1到3，则相应的数组声明语句为。14．用Dim A(4,4)语句声明二维数组后，数组A的元素共有个。
15．执行赋值语句a = "123" + "456"后，变量a的值是。
16．欲设置定时器的时间间隔为2秒，则属性Interval的值为。
17．VB应用程序可分为单窗体、多窗体和。
18．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向，Y轴的正向向。
19．Winsock控件主要用来编制或协议的通话程序。
20．VB中将数据库分为本地数据库、和三种类型。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 4
y = x + y
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
2．
Private Sub Form_Click()
Static a As String
Dim b As String
a = a + "A"
b = b + "B"
Text1 = a
Text2 = b
End Sub
写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。3．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
k = 1
c = 2
For j = 1 To 5
If j > 3 Then
c = c + 6
Exit For
Else
k = k + 3
End If
Next j
Print c, k
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
4．
Private Sub Command1_Click()
Dim A(1 To 5) As Integer
Dim x As Integer
For i = 1 To 5
A(i) = i
Next i
i = 1
Do While x < 5
A(i) = A(i) + x
x = x + 2
i = i + 1
Loop
Text1.Text = A(1)
Text2.Text = A(3)
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
5.
Private Sub Command1_Click()
Dim n As Integer, y As Integer, x As Integer
a = 1
Do While a < 8
n = n + 1
b = b + 1
a = a * (a + 1)
Loop
Text1.Text = n
Text2.Text = a
Text3.Text = b
End Sub
写出程序运行时单击Command1后，文件框Text1、Text2和Text3的输出结果。
6.
Private Sub Command1_Click()
Dim X As Integer, Y As Integer
X = 1 : Y = 1
For i = 1 To 3
For j = 1 To i
Y = Y + j
Next j
X = X + Y
Next i
Print X
End Sub
写出程序运行时单击命令按钮后，窗体Form1上的输出结果。
7.
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
写出程序运行时，单击命令按钮在窗体上的输出结果。
8.
Function F(a As Integer, b As Integer) As Integer
F = a + b
End Function
Private Sub Form_Click()
Dim a As Integer, b As Integer, z As Integer
a = 2:
b = 3
z = F(a, b)
Print z
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
四、完善程序题
1．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图1所示。
Visual Basic练习题1
习题
一、填空题
1.VB6.0中应用( ）的程序设计方法，采用（）驱动的编程机制．
2.VB6.0的主要功能特点是具有面向对象( ）设计工具，非常适合于（）的编程
方式．
3.当进入VB集成环境,发现没有显示"工具箱"窗口,应选择( ）菜单的
（）选项，使＂工具箱＂窗口显示．
4.要使新建工程时，在模块的＂通用声明＂段自动加入Ｏption Ｅxplicit语
句，应对菜单的（）的（）选项卡进行相应选项的选择．
5.对象的属性是指（）
6.对象的方法是指（）
二、选择题
1.保存新建的工程时，默然的路径是（）
A）MyDocuments B）VB98 C）\ D)Windows
2.将调试通过的工程经"文件"菜单的"生成exe文件"编译成名.exe,将该可执行文件到其他机器上不能运行的主要原因是()
A)运行的机器上无ＶＢ系统 B）缺少．frm窗体文件
C）该可执行文件有病毒D）以上原因都不对
3.制作成安装盘时，多个压缩文件和单个压缩文件结果的区别涉及到（）
扩展名文件的大小．
A)．exe B)．txt C)．cab D)．ocx
4.当使用上下文相关的帮助时，选择要帮助的内容，然后按（），就可出现
MSDN窗口直接显示所需的帮助信息
A)Help B)F10 C)Esc D)F1
三、简答题
1.如何添加或删除VB部件？
2.什么是对象、事件和方法？
3.属性和方法有何区别和联系？
Visual Basic入门练习题1答案
一、填空题
1.面向对象事件
2.可视化的图形用户界面
3.“视图”“工具箱”
4.“选项”“编辑箱”
5.对象的性质，来描述和反映对象特征的参数
6.对象的动作、行为
二、选择题
1.B
2.A
3.C
4.D
三、简答题
1.添加或删除VB部件的步骤为：
(1)Visual Basic6.0安装程序,打开"安装向导"对话框可以出现.
(2)选择:"工作站工具和组件"选项后,单击"安装向导"中的"下一步"按钮,打开"添加/删除"对话框
(3)在"添加/删除"对话框中单击"添加/删除","重新安装"或"全部删除"按钮可以实现组件的部分添加/删除重新安装以恢复被破坏的文件和Visual Basic6.0的卸载.如果用户选择了"添加/删除"按钮,将打开"选择添加 /删除组件"对话框
(4)改变(添加/删除)安装组件后,单击"继续"按钮,安装程序将开始添加或删除选中的组件,最后单击"确定"按钮完成添加/删除工作
2.从广义上来说,对象是客观事物中的一个实体.在可视化编程语言中,对象是代码和数据的集合,它可以是窗
体和控件,也可以是菜单元或数据库等事件是预先定义好的、能够被对象识别的动作，在VB中,系统为每个
对象预先定义了一毓的事件，如单击（Click）时间（DblClick）事件、装载（Load）事件、鼠标移
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
心得体会数据库VB课程设计心得体会
三一文库（https://www.360docs.net/doc/153295127.html,）/心得体会范文/心得体会数据库VB课程设计心得体会 数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇*，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹 并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下（老大劝我学https://www.360docs.net/doc/153295127.html,），我接触到microsoft公司的.net产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.net是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如
使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sqlserverxx，以前学asp的时候用的是access，那个时候只是照着人家做，理论是什么也不是很清楚。 通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，justdoit！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseuml建模工具。在此之前，我脑袋里面没有软件建模的思想，什么uml建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。
大一VB期末考试试卷及答案
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
九江学院VB期末考试题目及详细答案
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件
【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
vb期末考试试题
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
Vb课程设计-学生成绩处理
学生成绩处理设计报告 一、设计思路 1.要达到的目的 学习VB程序设计的方法，充分体会VB在程序设计方面的强大功能和特点，培养运用VB解决实际问题的能力。通过本次课程设计，使学生进一步巩固课堂上学到的知识，能利用VB中的基本控件和数组编写一个小的应用软件—学生成绩处理。 2.关键问题的解决 ①设计程序界面 ②选取ProgressBar 控件 ③添加TXT文件 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Dim data(100, 3) As String Dim num As Integer Private Sub Command1_Click(Index As Integer) Close #1 Select Case Index Case 0 Open "d:\成绩.txt" For Append As #1 Dim flag As Boolean For i = 0 To 3 If Text1(i) = "" Then MsgBox "请确认学号,姓名,分数都已输入", vbOKOnly, "提示" flag = True
Next If Not flag Then Write #1, Text1(0).Text; Text1(1).Text; Val(Text1(2).Text); Val(Text1(3).Text) MsgBox "添加成功" End If Case 1 Picture1.Cls Dim StrLine As String, a() As String Dim x As Integer, b As Integer Open "D:\成绩.txt" For Input As #1 i = 0 Do While Not EOF(1) Line Input #1, StrLine If StrLine <> "" Then a() = Split(StrLine, ",") For j = 0 To 3 data(i, j) = a(j) Next End If i = i + 1 Loop num = i For x = 0 To num For j = 0 To 3 Picture1.Print data(x, j) + " "; Next Picture1.Print Next Case 2 Picture2.Cls Open "d:\成绩.txt" For Input As #1 While Not EOF(1) Line Input #1, StrLine ss = ss + StrLine + vbCrLf Wend Picture2.Print ss End Select Close #1 End Sub Private Sub Form_Load() Open "D:\成绩.txt" For Append As #1
大学VB期末考试试题
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。
VB期末考试试题
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
VB期末考试试题及答案 (1)
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
排序演示 vb课程设计论文
成绩南京工程学院课程设计报告（论文） 题目排序演示 课程名称程序设计基础---VB 院（系、部、中心）先进制造技术工程中心 专业机械制造及其自动化 班级D机加工091 学生姓名钱丽 学号231090406 设计地点图书馆A307 指导教师黄陈蓉 设计起止时间： 2011 年 1月4 日至 2011 年 1月 6日
目录 一、设计任务 (3) 二、总体设计思路 (4) 三、画出程序总体框图 (4) 四、系统的调试 (6) 五、收获体会 (8) 六、源代码 (9) 七、主要参考资料 (23)
一、设计任务 （1）程序启动后，显示主界面。首先单击“产生10个随机数”按钮来产生10个随机数，并显示在10个文本框中；然后选择一种“演示模式”和“排序方式”，其中演示模式可以直接给出排序结果，也可以通过动画动态演示整个排序过程，排序方式可以按从小到大顺序，也可以按从大到小顺序排序。 （2）在主窗口的空白区单击鼠标右键，弹出快捷菜单。从中选择“排序算法”命令，打开对话框，从中选择一种排序方式，单击不同排序方式时，“算法描述”中简要介绍了这种算法。单击“确定”按钮返回到主窗口，主窗口中最上方框架控件的标题文字显示当前所选的排序算法。 （3）设置完毕，单击“开始排序”按钮（此按钮在生成数据之前是不可用的），启动排序过程。若选择了动画方式，红色背景的文本框表示当前正在比较的元素，黄色的代表已排序的元素，2个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条的位置来控制演示过程的速度。排序结束后程序以消息框的形式报告数据交换的次数。可以使用快捷菜单中的“将数据写入文件”命令将排序后的数据保存到“data.txt”中覆盖原有内容。 （4）选择窗口主菜单中的“颜色设置”命令，主窗口扩大，底部显示“颜色设置”框架，可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择此命令，窗口恢复到原来的大小。（5）选择主菜单中的“退出”命令可退出本程序，程序显示消息对话
【期末复习】计算机VB期末考试试题及答案
20**-20**学年VB期末考试试题A 一、填空题 1、VB程序设计的主要特点 是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。
13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font
初三_vb期末考试试卷+答案
九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度
VB课程设计总结
通过几周对ＶＢ的学习，使我增加了对ＶＢ课程的了解． 首先了解到ＶＢ的特点，ＶＢ是在原来的Ｂasic语言基础上发展而来的．Ｖisual指的是可视的图形用户界面开发方法.不需编写大量代码去描述界面元素的外观和位置,只要把预先建立的对象添加到屏幕上的某点即可.如果使用者诸多PAINT之类的绘图程序,则实际上已经掌握了创建用户界面的必要技巧.BASIC指的是B语言,一种在计算机技术发展历史上应用得最为广泛的语言之一.VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句,函数及关键词,其中很多和WINDOWS GUI有直接关系,VB不仅是可视语言,而且是面向对象的编程语言.其特点是概念多,实践性强,涉及面广. 之后,了解到一些基本的概念,含义.例如类,就是创建对象实例的模板包含了创建的属性描述和行为特征的定义.而此中的对象又是类的一个实例,继承了类的属性,方法,而VB中长用的对象有窗体,控件等.但我们在建立之前必须清楚对象的三要素:属性,方法和事件.而建立程序的步骤大致可分为:(1)启动程序,装载和显示窗体.(2)窗体等待事件的发生.(3)事件发生时,执行对应的事件发生过程.(4)再重复(2)(3)的过程(5)最后直接遇到"END"结束语句结束程序的运行或按"结束"强行停止程序的运行. 再用VB创建一个应用程序,第一步骤是创建窗体,它是用户与应用程序进行交互操作的可视部分,窗体是创建界面的基本构造模块,也是创建应用程序所使用的对象.而后必要设置窗体的属性,从而构出窗体的外观,设置好的窗体,窗体就作为对象,能够对其定义的事件作出响应,这也是所谓的窗体事件,而窗体事件又包括窗体本身事件,键盘事件和鼠标事件.在了解窗体基本知识就还应了解VB的语言基础,其中包括了代码模块(窗体模块,标准模块,类模块),注释,分行和续行,数据类节(字节型,逻辑型,数值型,日期型),变量与常数,运算符与表达式,数组,控制结构,子过程和函数.同时,为了编程,我们还应培养良好的编程习惯,首先是对象,变量及过程的命名约定,然结构化编码约定. 在VB中创建应用程序之际也就是和对象打交道之时,对象是代码和数据的组合,可以作为一个单位来处理,对象可以是应用程序的一部分,比如可以是控件,窗体,或数据访问对象.控件也是对象中的一种,主要用来获取用户的输入信息和显示输出信息.应用程序中可用的控件包括文本框,命令按扭和列表框.而通过另外一些控件可以访问其他应用程序并处理数据. VB程序设计同时可设计出一个更好的菜单系统,这样就可以使用户了解到更大量有关应用程序设计和结构的信息,精心规划菜单与工具栏有助于提高应用程序的可用性.同时在基于WINDOWS的应用程序中,对话框被用来提示应用程序继续运行所需的数据或者用户显示信息.对话框是一种特殊类型的窗体对象,在VB中按对话框的创建有三种类型的对话框,他们是
VB期末考试试题及答案
VB期末考试试题及答案 一、填空题 1、VB程序设计的主要特点是可视化设计和事件 编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。
VB程序设计课程设计报告完整版
V B程序设计课程设计 报告 HEN system office room 【HEN16H-HENS2AHENS8Q8-HENH1688】
《VB程序设计》 课程设计报告（2016 — 2017 学年第 1 学期） 题目：排序演示 学院：经济与管理学院 班级：物流管理1502 学号： 姓名： 指导教师：阮冰 时间：起 2017年1月3日止 1月6日
一、课程设计基本信息 课程代码：05190124 课程名称：计算机基础课程设计 课程英文名称: Computer-based Course Design 课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群 课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制 剂、物流管理 课程类型：必修课 先修课程：大学计算机基础通识选修课程、Visual Basic程序设计课程学分：1 总学时：16 二、课程设计目标 掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。通过综合设计要求达到下列基本技能： 1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。 2．通过对所选题目方案分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。 3．系统设计编程简练，可用，功能全面，并有一定的容错能力。用户界面良好，有较好的输出功能。在完成课题基本要求后，具有创新型设计，具有一定的实用价值。 4．根据个人的设计调试过程，撰写设计报告。 三、课程设计内容 利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。在强化巩固已有编程知识基础之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。 四、课程设计要求 1.要求每个同学都要认真对待，积极参与。 2.课程设计结束时，提交完成的所有源程序、相关文件和可执行文件。同 时填写并完成《课程设计报告册》。 3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计 中完全未参与的将作不及格处理。 五、考核方式
VB期末考试试卷及答案.doc
VB 期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A 属性、控件和方法 B 属性、事件和方法 C 窗体、控件和过程 D 控件、过程和模块 2.所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3.下列叙述中错误的是（ A ） A工程文件扩展名是 .vbgB 标准模块文件的扩展名是 .basC窗体模块的扩展 名是 .frmD 类模块的扩展名是 .cls 4.当要编写一个新的 Visual Basic程序时，所做的第一件事是（ A ）A xx 一个工程 B 编写代码 C 设置属性 D 添加 Active X控件 5.下面控件中，没有caption 属性的是（ B ） A框架B组合框 C 命令按钮 D 复选按钮 6.在文件框中输入字符时，若只显示某个字符，如（* ），应设置属性是（B）A MultiLine B PasswordChar C Text D selText 7.若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide
C Load D UnLoad 8.下列关于过程叙述不正确的是（ D ） A过程的传值调用是将实参的具体值传值传递给形参 B过程的传址调用是将实参在内存的地址传递给形参 C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D无论过程传值调用还是传地址调用，参数传递都是双向的 9.某人创建 1 个工程，其中的窗体名为Form1，之后又添加了 1 个名为Form2 的窗体，并希望程序执行时先显示Form2 窗体，那么，他需要做的工作 是（ C ）A 在 Form1 的 Load 事件过程中加入语句Load Form2 B 在 Form2 的 Load 事件过程中加入语句Form2.Show C在“过程属性”对话框中把“启动对象”设置为 Form2 D在 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex属性设置为 2 10.以下关于文件的叙述中，正确的是（ B ） A 以 Output 方式打开一个不存在的文件时，系统将显示出错信息 B 以Append 方式打开的文件，既可以进行读操作，也可以进行写操作 C 在随机文件在，每个记录的长度是固定的 D无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相 同的 11.设 a=6，b=8，c=10则函数 IIf(a 高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc" B) "ABC" = UCase("abc") C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2 B) 3 C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ?? ?≠≥=<=) (2) c (1 d c b a d b a x 且且 B) ?? ?≠<=<=)(2) c (1 d c b a d b a x 且且 C) ? ? ?≥=<=)(2) c (1b a d b a x 且 D) ? ? ?≠=<=)(2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0 Visual Basic课程设计报告 题目1：拼图游戏难度： *** 指导教师： 姓名： 学号： 专业： 班级： 学院： 日期： 1．题目简介 （1）本题目要求设计一个拼图游戏程序，要求如下： 指定一幅完整的图片，将其分割成m*n个小图块，打乱后重新排列，其中有一个没有图片的“空当”如图———— （2）使用鼠标单击与空当相邻的图块可以与其互换位置。 （3）利用空当位置使原图恢复原来的顺序，并记下玩家的移动步数，游戏过程中可以查看参考图以方便顺利通过游戏。 2、设计思路与总体方案 本程序包含五个窗体模块，其中以窗体frmMain的作用最为主要，该模块负责加载选定的图片并按所选的行列数分割，进行随机排列并加载空当，实现鼠标点击时其中的图块时与相邻的空当进行替换，实现拼图完成这个结束动作。 该模块中主要的变量有Rows ，Cols ，Arrange() ，space，started，steps showref Function isOK() 其中，Rows ，Cols ，showref这三个为全局变量，分别表示行数，列数，以及是否显示参考图（因此showref为逻辑型变量）其余变量为模块级变量，started也为逻辑变量，负责显示游戏是否已开始，Arrange()数组表示联系图像控件与数组的关系，space显示空当的位置，steps来记录玩家所走的步数，Function isOK()用来检验拼图是否已经完成的函数，为逻辑性变量。除外，过程变量tt（0 to2），b（0 to 2），s ，r ，c用来写入或读取排行榜中的记录。 其中，还设有菜单栏，通过CommonDialog控件负责实现“打开图片”与“配置颜色”对话框，并同时还拥有打开frmRecod（排行榜窗体模块）的工能。 主要代码（游戏初始时加载图片）： Dim i As Integer Dim n As Integer CD.Filter = "图片文件(*.JPG,*.BMP)|*.jpg;*.bmp" CD.DialogTitle = "打开图片" CD.InitDir = App.Path & "\pics" CD.ShowOpen （显示指定图片对话框）If CD.FileName = "" Then Exit Sub If started Then For i = 1 To Rows * Cols - 1 '（清除已有的控件数组元素） Unload imgPT(i) Next imgPT(0).Picture = LoadPicture() If showref Then frmRef.Image1.Picture = LoadPicture() Else Me.Picture = LoadPicture() End If frmDivide.Show 1, Me ' （显示指定行列对话框）PC.Picture = LoadPicture(CD.FileName) PC.Rows = Rows PC.Cols = Cols n = Rows * Cols imgPT(0).Width = 320 / Cols （'窗体以像素为单位）VB期末试卷(A卷带答案 )
VB课程设计：拼图游戏