VB程序设计_期末复习资料2.doc
Visual Basic程序设计期末综合练习
2008年11月
一、单项选择题
1．一个VB应用程序可以包含几个vbp文件（A．1个）。
2．启动VB后，就意味着要建立一个新（ C．工程）。
3．后缀为.bas的文件表示（D．标准类模块文件）。
4．当一个工程中含有多个窗体时，其中的启动窗体是（ D．在“工程属性”对话框中指定的窗体）。
5．在文本框控件中将Text的内容全部显示为所定义的字符的属性是（B．PasswordChar ）。
A．Password B．PasswordChar
C．需要编程来实现D．以上都不是
6．Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（C．事件驱动）。
A．从主程序开始执行B．按过程顺序执行
C．事件驱动D．按模块顺序执行
7．下列四项中合法的变量名是（B．a_bc ）。
A．a-bc B．a_bc
C．4abc D．integer
8．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（C．运行的机器上无VB系统）。
A．缺少.frm窗体文件B．该可执行文件有病毒
C．运行的机器上无VB系统D．以上原因都不对
9．无论何种控件，共同具有的属性是（B．Name）
A．Text B．Name
C．Caption D．ForeColor
10．有程序代码如下：
Text1.Text = "Visual Basic程序设计"
则Text1，Text ，和"Visual Basic程序设计"分别代表（C．对象，属性，值）。
A．对象，值，属性B．对象，方法，属性
C．对象，属性，值D．属性，对象，值
11．如果仅需要得到当前系统时间，使用的函数是（B．Time ）
A．Now B．Time
C．Year D．Date
12．表达式16/4-2^5*8/4MOD5\2（D．4 ）。
A．20 B．14 C．2 D．4
13.以下叙述中错误的是（D、在一个窗体文件中用Private定义的通用过程能被其它窗体调用）。
A、一个工程中可以包含多个窗体文件
B、全局变量必须在标准模块中定义
C、在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型
的文件
D、在一个窗体文件中用Private定义的通用过程能被其它窗体调用
14．下列赋值语句正确的是（B．c=a+b ）。
A．a+b=c B．c=a+b
C．-a=b D．5=a+b
15．要在窗体Form1内显示“myfrm”，使用的语句是（C．Form1.print "myfrm" ）A．Form.caption="myfrm" B．Form1.caption="myfrm"
C．Form1.print "myfrm" D．Form. print "myfrm"
16．确定一个控件在窗体上位置的属性是（D．Top和Left ）
A．Width或Height B．Width和Height
C．Top或Left D．Top和Left
17．将数据项“China”添加到列表框（List1中成为第一项，应使用的语句是（B．List1.AddItem"China",0）
A．List1.AddItem"China", B．List1.AddItem"China",0
C．List1.AddItem"China",1 D．List1.AddItem"1,China"
18．如果创建了命令按钮数组控件，那么Click事件的参数是（A．Index ）A．Index B．Caption
C．Tag D．没有参数
19．在设计动画时，用时钟控件来控制动画速度的属性是（B．Interval ）
A．Enabled B．Interval
C．Timer D．Move
20．以下叙述中错误的是（C．窗体的Hide方法和Unload方法的作用完全相同）。
A．一个工程中只能有一个Sub Main过程
B．窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体
C．窗体的Hide方法和Unload方法的作用完全相同
D．若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体21．使图像框Image控件中的图像自动适应控件的大小应（C．将控件的Stretche属性设为True）。
A．将控件的AutoSize属性设为True B．将控件的AutoSize属性设为False C．将控件的Stretche属性设为True D．将控件的Stretche属性设为False 22．若使图像框Image控件自动适应其中的图形大小，应（B．将控件的Stretche属性设为False）。
A．将控件的Stretche属性设为True B．将控件的Stretche属性设为False
C．将控件的AutoSize属性设为True D ．将控件的AutoSize属性设为False
23．在Visual Basic中，变量的默认类型是（D．Variant ）
A．Integer B．Double
C．Currency D．Variant
24．使用ADO数据模型时，使Recordset和Connection对象建立连接的属性是（C．ActiveConnection）。
A．CommandType B．Open
C．ActiveConnection D．Execute
25．下列控件中不能响应Click事件的是（C．Timer ）。
A．Frame B．Label C．Timer D．Form
26．如果准备读文件，打开顺序文件”text.dat”的正确语句是（C．open"text.dat" For Input As # 1 ）
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
27．用Line方法画直线后,当前坐标在（C、直线终点）。
A、（0，0）
B、直线起点
C、直线终点
D、容器的中心
28．不属于VB数据库引擎的是（C．BDE）
A．ODBC B．Jet引擎
C．BDE D．OLE DB
29．MsgBox函数的返回值的数据类型是（D．整型）
A．字符串B．日期型
C．逻辑型D．整型
30．VB程序中通常不会产生错误提示的是（D．逻辑错误）。
A．编译错误B．实时错误
C．运行时错误D．逻辑错误
31．如果希望以模态方式显示窗体Form1，下列正确的语句是（C．Form1.Show 1 ）A．Form1.Show 0 B．Form1.Show
C．Form1.Show 1 D．以下都不正确
32．下列关于变量的说法不正确的是（D．局部变量在声明它的过程执行完毕后就被释放了）。
A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B．局部变量的作用域仅限于声明它的过程
C．静态局部变量是在过程中用Static语句声明的
D．局部变量在声明它的过程执行完毕后就被释放了
33．改变驱动器列表框的Drive属性值，将激活（C．Change）事件。
A．KeyDown B．KeyUp
C．Change D．Scoll
34.在下列选项中，不能将图像装入图片框和图像框的是（B．在界面设计时，手工在图像框和图片框中绘制图形）
A．在界面设计时，通过Picture属性装入
B．在界面设计时，手工在图像框和图片框中绘制图形
C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入
35．要发送数据，通常使用Winsock控件的（A．SendData方法）。
A．SendData方法B．Listen方法
C．Accept方法D．GetDate方法
36．VB程序中设置断点的按键是（C、F9键）。
A、F5键
B、F6键
C、F9键
D、F10键
37．下列数组声明语句，正确的是（B．Dim a(3,4) As Integer）
A．Dim a[3,4] As Integer B．Dim a(3,4) As Integer
C．Dim a(n,n) As Integer D．Dim a(3 4) As Integer
38．当Winsock控件处于打开状态时，其State属性的值是（B．1）
A．0 B．1
C．2D．6
二、填空题
1. TextBox和Label控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用控件；若允许用户输入文本，则应使用控件。
2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按键。
3．欲设置定时器的时间间隔为2秒，则属性Interval的值为。
4．应用程序打包后，其包文件的后缀为。
5．Visual Basic程序开发有三种模式，即设计模式、模式和模式。
6．是应用程序的对外接口，是其它控件的载体和容器。
7．表达式14/2-2^3*7 MOD 6的值是。
8．每个应用程序都有开始执行的入口，在VB中将这种窗体称为。
9．控件数组的名字由属性指定，而数组中的每个元素由属性决定。
10.执行赋值语句a="Visual"+"Basic"后，变量a的值是。
11．在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用循环；若要求先判断循环进行的条件，可使用循环。
12．数学关系8≤x<30表示成正确的VB表达式为。
13．在VB中，将Access称为，SQL Server称为。
14．以窗体Form1的中心为圆心，画一个半径为500的圆的语句是
。
15．为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为。
16．变量的声明方法有隐式和两种，如果采用隐式声明方法，那么VB会自动将变量声明为。
17．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是，全局变量在整个应用程序中有效，其作用
域是。
18．VB提供了结构化程序设计的三种基本结构，这三种基本结构是选择结构、
、。
19.将图片框的AutoSize属性设置成时，可使图片框根据图片调整大小。
20．VB中的程序错误类型主要有编译错误、等三种。
21．在VB中想获得帮助，需要按的键是；要设置断点需要按键。
22．Winsock控件主要用来编制基于或协议的网络应用程序。
23．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置。
24．在控件数组中，所有元素的属性均相同，数组中的每个元素由属性指定。
25．假设ADOcn为一个Connection对象，那么在VB程序中声明并创建ADOcn的语句是。
26．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从0到3，则相应数组声明语句为。
27．在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定
作为启动对象。
28．闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是。
29．常用的VB网络编程控件主要有、Internet Transfer和
三种。
30．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向，Y轴的正向向。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = x + 3
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
2．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
k = 0
c = 1
For j = 1 To 6
If j > 4 Then
c = c + 4
Exit For
Else
k = k + 1
End If
Next j
Print c, k
End Sub
写出程序运行时单击窗体后，c,k的值分别是：
3．
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 7
i = 1
Do While i < 10
i = i + 2
s = s + i
Loop
Text1.Text = s
End Sub
文件框Text1的输出结果是：
4．
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的值分别是：
5.
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，窗体Form1上的结果：
6．
Private Sub Form_Click()
Dim i As Integer, k As Integer
k = 0
For i = 1 To 4
If i > 2 Then
k = k + 5
Exit For
Else
k = k + 2
End If
Next i
Print k
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
7.
Function F(a As Integer)
Dim b As Integer
Static c As Integer
b = b + 2
c = c + 2
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.
Private Sub Form_Click()
Dim I As Integer, j As Integer
Dim c As Integer
c = 0
For I = 1 To 4
For j = 1 To 2
c = c + 4
Next j
Next I
Print c
End Sub
文件框Text1的输出结果是：
9.
Sub Change(x As Integer, 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 = 50:
b = 40
Change a, b
Print a, b
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
10.
Private Sub Form_Click()
Dim i As Integer, k As Integer, c As Integer For i = 1 To 5
If i Mod 2 = 0 Then
k = k + 2
Else
c = c + 2
End If
Next i
Print k, c
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
四、完善程序题
1．程序运行界面如图1所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
图1
程序如下，请补充完整。
Private Sub Form_Load()
List1.AddItem "计算机应用基础"
List1.AddItem "程序设计基础"
List1.AddItem "VB 程序设计"
List1.AddItem "SQLServer 数据库应用"
List1.AddItem "网站设计技术"
List1.AddItem "系统开发规范与文档编写"
List1.AddItem "信息系统测试"
End Sub
Private Sub Command1_Click() List1
Command3
Command2 Command1 Text1
If Text1.Text <> "" Then
List1. [1] Text1.Text'将文本框中的内容添加到列表框中
Text1.Text = ""
Else
MsgBox "请在文本框中输入信息！"
End If
End Sub
Private Sub Command2_Click()
List1.RemoveItem [2] '删除选定的项目End Sub
Private Sub Command3_Click()
If Command3.Caption = "修改" Then
Text1.Text = [3]
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Caption = " [4] "
Else
[5] = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text = [56
Command3.Caption = " [7] "
End If
End Sub
2．
已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图2所示。
图2
程序如下，请补充完整。
'声明对象变量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
Set ADOcn =[2]
ADOcn.Open strDB
End If
End Sub
Private Sub Command1_Click()
'增加学生记录
Dim strSQL As String
Dim ADOrs [3]
ADOrs. [4] =ADOcn
ADOrs.Open “Select 学号From Students Where 学号=”+” ‘ “+Text1+” ‘ “
If Not [5] Then
MsgBox “你输入的学号已存在，不能新增加！”
Else
StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别)
StrSQL=strSQL+Values(”+” ‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+” ‘,’ “+text4+” ‘)”
ADOcn.Execute [6]
MsgBox “添加成功，请继续！”
End If
Private Sub Command2_Click()
[7]
End Sub
3．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3所示。
图3
程序代码如下，请补充完整
Private Sub Form_Load()
Drive1.Drive = [1]
File1.Pattern = "*.bmp;*.gif;*.jpg"
End Sub
Private Sub Drive1_change()
Dir1.Path = [2]
Text1.Text = Drive1.Drive
End Sub
Private Sub Dir1_Change()
[3]
[4]
End Sub
Private Sub File1_click()
Picture1. [5] = LoadPicture(File1.Path + "\" + File1.FileName)
FileName = File1.Path + "\" + File1.FileName
Text1.Text = FileName
End Sub
五、编写程序题
1．编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若小于800元大于600元，则增加工资15%；若小于600元则增加工资10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。
图程序运行效果
2．购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在500元以上者，按9.5折优惠；（2）在800元以上者，按9折优惠；（3）1000元以上者，按8折优惠；（4）1500元以上者按7折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。程序运行结果如图5所示。
图程序运行效果
3．请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：
（1）收入在1200元以内，扣税3%；
（2）收入在1200-4000元内，1000元以上部分扣税15%，
（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，
（4）当收入达到5000元以上，扣税25%。
程序运行界面如图所示
综合练习题答案
一、单项选择题
1.A
2.C
3.D
4.D
5.B
6.C
7.B
8.C
9.B 10.C 11.B 12.D 13.D 14.B 15.C 16.D 17.B 18.A 19.B 20.C 21．C 22．B 23.D 24．C 25.C 26.C 27.C 28.C 29.D 30.D 31.C 32.D 33.C 34．B 35.A 36.C 37.B 38.B
二、填空题
1．Label TextBox
2．F1
3．2000
4．.cab
5．中断执行
6．窗体
7．5
8．启动窗体
9．Name Index
10．VisualBasic
11．For???Next循环Do???Loop循环
12. 8<=x AND x<30
13．本地数据库远程数据库
14．Circle(ScaleWidth/2,ScaleHeight/2),500
15．Picture1. Picture = LoadPrcture("picturefile.jpg")
16．显示，变体型(或写成Variant型)
17．整个模块或窗体整个应用程序（或工程中所有的模块和所有的过程）18．循环结构顺序结构
19．True
20．实时错误逻辑错误
21．F1 F9
22.TCP/IP UDP
23.Timer Interval
24．Name Index
25．Dim ADOcn As New Connection
26.Dim A(-1 To 2,0 To 3) As Integer
27．Main子过程
28.Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=0
29．Winsock WebBrowser
30．右上
三、阅读程序题
1.
x=2 y=3
x=2 y=6
x=2 y=9
2.
5 4
3.
42
4.
8 5
5．
25
6.
9
7．
8
10
12
8．
32
9．
40 50
40 50
10．
4 6
四、完善程序题
1．
[1] AddItem
[2] List1.ListIndex
[3] List1.Text
[4]修改确认
[5] List1.List(List1.ListIndex)
[6] ""
[7]修改
2．
[1]学生
[2]New Connection
[3] As New Recordset
[4] ActiveConnection
[5] ADOrs.EOF
[6] strSQL
[7] Unload Me
3.
[1]"D:\"
[2] Drive1.Drive
[3] File1.Path = Dir1.Path
[4] Text1.Text = Dir1.Path
[5] Picture
五、编写程序题
1．参考答案：
Private Sub Command1_Click()
Dim x As Integer, y As Single x = Val(Text1.Text)
Select Case x
Case Is >= 800
y = x * 1.2
Case Is >= 600
y = x * 1.15
Case Else
y = x * 1.1
End Select
Label1.Caption = y
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
2．参考答案：
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 500 Then
y = x
Else
If x < 800 Then
y = 0.95 * x
Else
If x < 1000 Then
y = 0.9 * x
Else
If x < 1500 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If
End If
Text2.Text = y
End Sub
3．参考答案：
Private Sub Command1_Click()
Dim x As Integer, tax As Single
x = Val(Text1.Text)
If x < 1200 Then
tax = x * 0.03
Else
If x <= 4000 Then
tax = (x - 1000) * 0.15
Else
If x <= 5000 Then
tax = (x - 1000) * 0.15 + (x - 4000) * 0.05 Else
tax = x * 0.25
End If
End If
End If
Text2.Text = tax
End Sub
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程序设计期末考试复习题
VB复习题 一．选择题 1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE
VB题库—程序设计[1]
程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)
vb程序设计的几个简单例子
Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print "最大公约数是" & i r = Val(InputBox("输入半径")) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End function Public Function 定积分() End Function
Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = V al(InputBox("请输入一个3到100的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub
《VB程序设计》考试题型练习 答案
《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)
vb题库程序设计
一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m
《VB程序设计》期末考试试卷(A)附答案
******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x （5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为VB的变量名的是＿＿＿。 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100” D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。 VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… '以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:")) 《VB程序设计》期末试卷 一、判断题（每题１分，共10分） （）１、设置属性的语句格式为：“对象名．属性名＝属性值”。 （）２、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。（）３、ＶＢ的赋值语句只能给变量赋值。 （）４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。 （）５、窗体大小只能通过鼠标拖动窗体边框来设置。 （）６、VB的Double类型数据，可以精确表示其数值范围内的所有实数。 （）７、若用户在键盘上按下一个键，则会产生一个Click事件。 （）８、罗马数制是进位计数制。 （）９、事件过程可以由用户事件触发执行，也可以由其他过程所调用。 （）１０、Do While条件.....Loop和DO Until Not条件.....Loop 两条循环语句，实现循环控制是等效的。 二、单项选择题。（每小题2分，共50分） （）1．设a=“Visual Basic”，下面使b=“Visual”的语句是 A. b=Left(a,6) B. b=Mid(a,1) C. b=Rigth(a,5,5) D. b=Left(a,1,6) （）2．在立即窗口中执行？9>=9，输出结果是 A．0 B．True C．False D. －1 （）3．语句Dim var1 As Boolean作用是:将var1定义为什么类型变量 A.单精度型 B. 整型 C. 布尔型 D.字符型 （）4．Int(—0.618*10)/10的值是 A.—0.7 B.—0.6 C. —1 D. —0.1 （）5．表达式2 + 8 * 6 / 4 Mod 2的值是 A.5 B.2 C.6 D.9 （）6．在VB中快捷键F4打开哪个窗口？ A. 资源管理器窗口 B. 属性窗口 C. 代码窗口 D. 立即窗口 （）7．函数Int( 64 * RND() )的值是在哪个范围内的整数？ A. [0,63] B. [0,64] C. [1,63] D. [1,64] （）8.下列叙述中正确的是 A. 只有窗体才是Visual Basic中的对象 B. 只有控件才是Visual Basic中的对象 C. 窗体和控件都是Visual Basic中的对象 D. 窗体和控件都不是Visual Basic中的对象 （）9.用于Visual Basic程序设计的控件在 A. 工具箱中 B.工具菜单中 C. 工程窗口中 D.工具栏上 （）10．Visual Basic程序中表示续行的字符是 A. ： B. _ C. \ D. ’ （）11．决定按钮显示内容的属性是 A. Text https://www.360docs.net/doc/344289919.html, C. Caption D.BackStyle （）12．下列可以把图形文件c:\地鼠1.jpg装入窗体FORM1中的语句为 A. Form1.Picture= LoadPicture("c:\ 地鼠1.jpg") B. Form1.Handle = " c:\ 地鼠1 .jpg" C. Form1 = LoadPicture("c:\ 地鼠1.jpg") D. Form1 = " c:\ 地鼠1.jpg" （）13．设a、b、c为整型变量，执行以下程序后a、b、c的值是 a=1:b=2:c=3 a=b:b=c:c=a A.2 3 1 B.2 3 2 C.3 2 1 D.1 3 2 （）14．将数学表达式2 2* 5 ) ( cos e b a+ +写成Visual Basic的表达式，其正确的形式是 A.Cos (a+b) ^2+5*exp(2) B.Cos^2(a+b)+ 5*exp(2) C.Cos (a+b) ^2+5*ln(2) D.Cos^2(a+b)+ 5*ln(2) （）15．下列描述图片框和图像框区别，那条是错误的 A．图像框中显示图片一般用作背景 B．图片框有拉伸属性 VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x VB可视化程序设计实例——小时钟 本例专门针对程序设计初学者而设计，尤其适合第一次接触VB的学生学习。通过用VB来设计如图3.39所示的时钟程序，初步感受一下可视化和面向对象的程序设计过程。 图3.39 时钟程序运行效果 小时钟程序中包含窗体控件、标签控件和计时器控件等3个控件。窗体控件是小时钟程序运行时的窗口，标题栏上的标题是“时钟”，在右上角有最小化、最大化和关闭按钮。标签控件可以用来显示文本，本例中用来显示时间，如“9:48:57”。计时器控件每秒一次把计算机的当前系统时间显示到标签控件中，使得小时钟不停地运行。Array启动VB，首先显示“新建工程”对话框（图3.40），在选择“新建”选项卡中的“标 准EXE”项后，单击“打开”按钮，进入VB编程环境，如图3.41所示。 图3.40 “新建工程”对话框 图3.41 VB 可视化编程环境 除了标题栏、菜单栏和标准工具栏外，编程环境中还有工具箱、窗体和属性等窗口。 双击工具箱（图3.42）中的标签控件，在窗体Form1中放置可以显示文本信息的标签控件Label1，见图3.43。时钟的时、分和秒以后就显示在Label1中。拖曳Label1可以移动它，拖曳它的八个控制点，可以改变它的大小。 图3.42 工具箱 图3.43 label1控件 图3.44 计时器控件 双击工具箱中的计时器控件，在窗体Form1中放置计时器控件Timer1，见图3.44。计时器控件以一定的时间周期，调用一个事件。计时器控件只有在设计阶段出现在窗体上，程序运行时是不可见的，它的位置和大小无关紧要。 到目前为止，已经建立了窗体Form1、标签控件Label1和计时器控件Timer1等3个对象。下面，将设置它们的属性。 窗体窗口vb程序设计试题(含答案)
VB程序设计期末模拟试卷
VB程序设计 试题与答案-1
完整word版,VB程序设计例题12例
VB考试题及答案
VB程序设计试题及答案一
VB程序设计例题程序改错程序填空程序设计
VB程序设计期末试卷
VB程序设计试题及答案(一)
VB可视化程序设计实例——小时钟