1.下列关于变量的说法不正确的是( )
A.局部变最是指那些在过程中用Dim语句或Static语句声明的变量
B.局部变量的作用域仅限于声明它的过程
C.静态局部变量是在过程中用Static语句声明的
D.局部变量在声明它的过程执行完毕后就被释放了
2无论何种控件，共同具有的属性是( )
A. Text属性B. Name属性 C. Caption属性D. Autosize属性
3.如果想让文本框中的内容在运行时不能编辑，需将文本框的()属性设置为True
A. Locked B. MultiLine
C. TabStop D. Visible
4.后缀为.f rm的文件表示VB的()
A.类模块文件B.窗体文件 C.工程文件D.标准类模块文件
5.下列变量名合法的是()
A.20ab B. a-b C. a_2 D. integer
6.为了在运行时把d:/pic文件夹下的图形文件a. jpg装入图片框Picturel中，所使用的语句为( )
A. Picturel. Text=LoadPicture("d:/pic/a. jpg")
B. Picturel. Picture = LoadPicture("d;/pic}a.jpg")
C. Picturel. Picture = LoadPicture(d:/pic/a.jpg)
D.Picturel. Picture = Load("d;/pic/a.jpg")
7.逻辑表达式Not 5〉3 And 9<3 Or 7>5( )
A. True B. False C.表达式有错D.条件不足
8.表达式4+19/6*7/8 Mod 2的值是( )
A. 4 B. 5 C. 6 D. 7
9.下列可以用来存储图像供其他对象使用的控件是( )
A. ToolBar B.StatursBar C. ImageList D. TreeView
10.下列数据对象模型中采用OLE DB访问数据库的是( )
A. DAO B. RDO C. ADO D. RDO和ADO
11.要以读方式打开D盘的一个顺序文件Stu. dat，应使用的语句是(
A. Open "Stu. dat" For Output As#1
B. Open "D:/Stu. dat" For Input As# 1
C. Open "D:/Stu, dat" For Output As#1
D. Open "Stu. dat" For Input As T #1
12. VB程序中设置断点的按键是( )
A. F5键B. F6键 C. F9键D. F 10键
13.为使文本框显示滚动条，必须首先设置的属性是()
A. AutoSize B. Alignment C. Multiline D. TabStop
14，要设置命令按钮的背景图形，必须设置的两个属性是( )
A. Style和Picture B. Style和Icon
C. Caption和Picture D. Value和Icon
15.下面关于多窗体的叙述中，正确的是( )
A.作为启动对象的Main子过程只能放在窗体模块内
B.如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据 不同情况决定是否加载及加载哪一窗体
C.没有启动窗体，程序不能执行
D.以上都不对
16. Visual Basic应用程序处于中断模式时，应用程序暂时中断，这时不可( )
A.编辑代码。B.设计界面和编辑代码 C.继续运行程序D.设计界面
17.当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信
息，应按的键是( )
A. Help B. F10 C. Esc D. P1
18.当运行程序时，系统自动执行启动窗体的( )
A. Load事件过程 B.Click事件过程
C. LL nload事件过程 D. GotFocus事件过程
19.后缀为.Vbp的文件表示VB的( )
A.类模块文件B.窗体文件 C.工程文件D.标准类模块文件
20.要在窗体Forml内显示”myfrm"，使用的语句是( )
A.Form. caption= "myfrm"
B. Forrnl. caption="myfrm"
C. Forml.print"myfrm"
D. Form. print"myfrm"
21.在设计动画时，用时钟控件来控制动画速度的属性是( )
A. Enabled B. Interval C. Timer D. Move
22.把字符串型转换为数值型需要使用的函数是()
A. Val B. Str C. Asc D. Chr
23.表达式7+10Mod3*2+2()
A. 7 B.13 C. 6 D. 1
24.可用来改变坐标度量单位的是( )
A.Drawstyle属性B. DrawWidtl属性C. Scale方法D. ScaleMode属性
25.在用Line方法时，参数B与F可组合使用，下列组合中不允许的是( )
A. BF B. F C. B D.不使用
26.下列赋值语句正确的是()
A. A=B+C B. B+C=A C.-B=A D. 2=A+B
27.如果仅需要得到当前系统时间，则可以使用哪个函数( )
A. Time B. Year C. Now D.Date
28.键盘事件的执行顺序是( )
A.KeyPress KeylDown,KeyUp B. KeyDown,KeyPress,KeyUp
C.KeyUp,KeyDown,KeyPress D.KeyUp,KeyPress,KeyDown
29.如果准备向随机文件中写人数据，正确的语句是( )
A.Print# 1 ,rec B.Write#1，recC. Put#1，，recD.Ge#1，，rec
30. Winsocli控件的LocalPort属性的作用是( )
A.仅返回所用端口 B.仅设置所用端口 C.返回或设置所用端口D.返回或设置IP地址
31.为了保存一个Visual Basic应用程序，下列说法正确的是( )
A.只保存窗体文件(.frm) B.只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块文件
32.语句Print 5*5/5 /5的输出结果是()
A.5 B.25 C. 0 D. 1
33.下列可作为Visual Basic变量名的是( )
A. A( A+B) B.Alpha C. 4ABC D. ABπ
34.标准SQL语言本身不提供的功能是( )
A.数据表定义B.查询 C:修改、删除D.绑定到数据库
35.以下4个控件中，不属于数据绑定控件的是( )
A. Text控件B. OLE控件 C. Option控件D. Image控件
36.在窗体上按下鼠标左键时产生的事件是( )
A. KeyDown B. MouseUp C. MouseMove D. MouseDown
37.下列控件中不能响应Click事件的是()
A. Frame B. Label C. Form D. Timer
38.下列语句语法正确的是()
A. a=1 b=2 c=3 I3. a=1:b=2:c=3
C. a=1, b=2, c=3 D. a=1 ;b=2; c=3
39.确定一个控件在窗体上位置的属性是( )
A. width或Height & Width和Height
C. Top或Left D. Top和Left
40. KILL语句在VB语言中的功能是( )
A.清内存B.清病毒 C.删除磁盘上的文件D.格式化硬盘
41.要清除列表框的所有内容，可用来实现的方法是( )
A. RemoveTtem B. Cls C. Clear D.以上均不可以
42.如下数组声明语句，正确的是()
A. Dirn 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
43.下列控件中，没有Caption属性的是( )
A.框架 B.列表框 C.复选框 D.单选按纽
44.如果准备读文件，打开顺序文件”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
45.当Winsock控件处于关闭状态时，其State属性的值是( )
A.1 B.0 C.2 D.6
二、填空题
1.数学关系3≤x<10表示成正确的Visual Basic表达式为 。
2.已知A=2,B=3,C=4，则表达式A>B AND C>A OR Not C>B的值为 。
3. Visual Basic提供了结构化程序设计的3种基本结构，这3种基本结构是 、
_、和 。
4.用Dim A(3，-2 To 3)语句声明二维数组后，数组A的元素共有 个。
5.在Visual Basic程序中实现删除文件”d;/tem. tmp"的语句为 。
6.日期表达式#2/24/03#-#2/12/03#的值为 。
7.改变容器对象的ScaleMode属性值，容器的大小 改变，它在屏幕上的位置
改变.
8.设Picturel. ScaleLeft=-200, Picturel. ScaleTop=250, Picturel. Width=500，Pic
turel. Height=-400。则Picturel右下角坐标为 。
9. ActiveX EXE文件的后缀是_。
10.Winsockl. Listen语句的含义是 。
11.在整个程序运行时，用Static声明的局部变量是静态的，其值可以在该过程所在的模块运行期间 ，而用Dim声明的变量只能在 才存在。
12.数学表达式 cos600写成等价的Visual Basic表达式为 /
13.以下语句的输出结果是 。
Dim a As Integer
a=6.28
Print a
14.用Dim A(4,4)语句声明二维数组后，数组A的元素共有 个
15. Label和TextBox控件用来显示和输人文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 控件;若允许用户输入文本，则通常使用 控件。
16.在Visual Basic程序中实现复制文件”C：/command, com”到d:盘根目录一下的语句为
.
17.若已建立了Forml和Form2两个窗体，默认启动窗体为Forml。通过______菜单
命令的 选项卡，可将启动窗体设置为Form2。在程序中若要显示Forml窗体，则执行 语句。
18.VB中的程序错误类型主要有 、 、 三种。
19.用Line方法画直线后，当前坐标为 。
20.使用ADO模型时，可通过 属性建立Recordset和Connection对象的连接。
21.Visual Balic开发环境总是处于下列的三种模式之一，它们是: 、
和 ，而集成环境的标题栏总是显示 。
22.要使文本框控件可以接受多行文本，需将其属性Multiline设置为 .
23. VB坐标系的歇认单位是 ，除此之外，用户还可以选用其它的度里单位，这需要通过对象 的属性来实现。
24.以窗体Forml的中心为目心，画一个半径为800的圆的语句是 。
25.列表框控件中最后一项的序号等于ListCount属性减 。
26.在VisualBasic中，除了可以指定某个窗体作为启动对象之外，还可以指定
作为启动对象。
27.闰年的条件是:年号(Y)能被4整除，但不能被100整除;或者年号能被400整除.表示该条件的逻辑表达式是
28.设某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从-1到2,第二维下标从-1到1，则相应数组声明语句为 。
29.COM对象有两种类型接口，即用户自定义接口和 。
三、阅读程序题
阅读下列程序并写出程序运行结果
1. Private Sub Commandl Click)
n = 0: x = 1:Y=0
Do While x<3
n=n+1
y=x+y
x=x*(x+1)
Loop
Textl. Text="n=a" ＆Str(n)
Text2. Text=" x="＆Str(x)
Text3. Text=" Y="＆Str(y)
End Sub
程序运行时单击Commandl后，分别写出文本框Textl ,Text2和Text3的值。
2. Private Sub Commandl 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
Textl. Text="s="＆Str(s)
End Sub
程序运行时连续3次单击Commandl，且设输入的数据为5,4.3时，分别写出文本框Textl的值。
3. Private Sub Form_Click( )
Dim c As Integer, j As Integer, k As Integer
k=0
c=0
For j，1 To 5
If j>3 Then
c=c十4
Exit For
Else
K=k十1
End If
Next j
Print c, k
End Sub
写出程序运行时单击窗体后,c,k的值分别是:
4. Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer,j As Integer
A(1)=“1”
A(2)=“3”
A(3)=“4”
c=0
For j=1 to 3
c“c十Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，c的结果是:
5. Private Sub Form_Click( )
Dim s As Long，f As Long
Dim n As Integer, i As Integer
f=1
n=3
For i=1 To n
f=f+i
s=s+f
Next
Print“s=”;s
End Sub
写出程序运行时单击窗体后，窗体Forml上的输出结果
6. Private Sub Commandl_Click()
x=0
Do While x<50
x= (x+2)*(x+3)
n=n-1
Loop
Textl.Text=Str(n)
Text2. Text=Str(x)
Text3. Test=Textl. Text+Text2.
Text4. Tcxt=Va1(Tcxt1.Text)+Val(Tcxt. Text)
End Sub
文件框Text3和Text4的结果分别是:
7. Private Suh Form_Click( )
For i=1 To 2
For k=1 To 2
a=a+1
Next k
Next i
Print a
End Sub
写出程序运行时单击窗体后，窗体Forml上的输出结果。
8.Dim nFlag As Integer, sMystring As String
Private Sub Form_Click()
Select Case nFlag
Case 1
Forml. FontNamc=“黑体”
Print sMystring
nFlag= nFlag+1
Case 2
Forml. FontName=“宋体”
Print sMystring
nFlag=nFlag+1
Case 3
Forml. FontName=“楷体_(GB2312”)
Prints Mystring
nFlag= nFlag+1
Case Else
Cls
nFlag=1
End Select
End Sub
Private Sub Form_I,oad()
nFlag=1
sMystring=”欢迎使用Visual Basic!
End Sub
写出三次单击窗体后程序的运行结果:
9. Private Sub Form Click()
Dim x As Integer
Static y As Integer
x = x+1
Y = Y+1
Forml. Print "x=";x. "Y=": Y
End Sub
写出程序运行时连续单击三次窗体后，Forml上的输出结果。
10. Private Sub Commandl_Click()
Dim s As Double
Dim i As Integer
S=5
i=1
Do While I < 9
i=I + 2
s=s + i
Loop
Text1，Text=s
文件框Textl的输出结果是:
11. Private Sub Forte Click()
Dim T as integer, j as integer
Dim c as integer
c=0
For I=1 To 3
For j=1 to 3
c=c十1
Nextj
Next I
Print c
End Sub
写出程序运行时单击窗体后，c的输出结果:
12. Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
Private Sub Commandl_Click()
Dim a As Integer
A=2
For I=1 To 3
Print F(a)
Next i
End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。
四、完善程序题
1.列表框应用程序。要求在文本框Textl中输入课程名称，然后按”添加”按钮，把课程名称添加到列表框中;当选择列表框中某一项后，按”删除”按钮，则从列表框中删除该项;按”统计”按钮，在文本框Text2中输出课程数量总数;按结束”按纽，退出应用程序。程序运行结果如图1所示
程序如下，请补充完整。
Private Sub Form_Load（ )
Listl. AddItem”计算机应用基础”
Listl. Addltem”程序设计基础”
Listl. Addltem”软件技术基础”
Listi. AddItem "VisualBasic程序设计”
Listl. AddItem "SQLSERVER数据库应用”
Listl. Addltem”计算机专业英语”
Listl. Addltem "Delphi程序设计”
End Sub
Private Sub Commandl Click( )
If Textl. Text<>””Then
[1]
Textl. Text =[2]
Else
MsgBox “请在文本框中输人信息!”
[3]
End Sub
Private Sub Command2_Click()
Listl. RemoveItem [4]
End Sub
Private Sub Command3 Click)
Text2. Text=[5]
End Sub
Private Sub Command4_Click( )
Unload Me
End Sub
2.以厘米为单位，以窗体的中心点为坐标原点，以窗体的宽度与高度绘制坐标轴，并以窗体宽度与高度中最小值的1/3为半径画圆和椭圆，程序运行界面如图2所示。
程序如下，请补充完整。
Private Sub Form_Click()
Dim r As Integer
ScaleMode=7
Scale(-Forml. ScaleWidth /2，-Forml. ScaleHeight/2)-(Forml. ScaleWidth /2, Forml. ScaleHeight/Z)
Line(-Forml. ScaleWidth /2,0)-(Forml. ScaleWidth /2, 0) ‘画x轴
[1] ’画Y轴
CurrentX=0: CurrentY=0: [2] ‘标记坐标原点
If Forml. ScaleWidth>Forml. ScaleHeight Then
[3]
Else
r=Forml. ScaleWidth
[4]
DrawWidth=3
[5] ，vbBlue
Circle (0，0)，r /3，vbGreen,，，2.5
Circle C0, 0)，r /3，vbRed,，，0.4
End Sub
3.列表框应用程序。要求从文本框中输人姓名，然后按”添加”按钮，把姓名添加到列表框中;当选择列表框中某一项后，按”删除”按钮，则从列表框中删除该项;当选择列表框中某一项后，按”修改‘’按钮，把列表框中选取的项送往文本框且”修改”按钮变为”修改确认”。在文本框的内容修改好后，按”修改确认”按钮，再把文本框中修改后的信息送到列表框且”修改确认”按钮变为”修改”。程序运行结果如图1所示。
程序如下，请补充完整。
Private Sub Form_ Load()
Listl. AddItem”李敏”
Listl. AddItem”张华”
Listl. Addltem”吕晓烨”
Listl. AddItem”赵巍”
Listl. Addltem”袁莉”
Listl. AddItem”王津”
Listl. AddItem”何小渴”
Listl. AddItem”崔宁”
ListL. Addltem”何月”
End Sub
Private Sub Commandl_ Click()
If Textl. Text<>"Then
Listl. AddItemTextl. Text
Textl. Text=””
[l]
MsgBox”请在文本框中输人信息!”
End If
End Sub
Private Sub Command2_Click()
Listl. RemoveItem Listl. ListIndex
End Sub
Private Sub Command3 Click( )
If Command3. Caption=[2]. Then
Textl. Text= [3]
Textl. SetFocus
Commandl. Enabled=False
Command2. Enabled=[4]
Command3. Caption=”修改确认’，
Else
Listl. List(Listl. Listlndex)=Textl. Text
Commandl. Enabled=True
Command2. Enabled=True
Text1. Text= [5]
Command3. Caption=”修改”
End If
End Sub
4.创建一个绘图程序。当程序运行时，单击”开始”按纽，在Picture控件上画出随机彩色同心圈，单击”清屏”按钮，则图像消失。要求坐标度t单位为毫米，边线的宽度为2像素，绘制的回不超出窗体。程序运行界面如图1所示。
程序如下，请补充完整。
Private Sub Commandl_Click()
Dim X As Integer, Y As Integer, r As Integer, r1 As Integer,i As Integer
ScaleMode = 6
DrawWidth=[1]
X=Picturel. ScaleWidth /2
X=Picturel. ScaleHeight/2
If ScaleWidth>ScaleHeight Then
[2]
Else
[3]
End If
For r1=0 To r
Picturel.[4]
Next
End Sub
Private Sub Command2_Click()
[5]
End Sub
五、编写程序题
1.编写一个角度与弧度互相转换的程序，程序运行界面如图3所示。要求程序运行时，在文本框Textl中输人角度值，单击”角度转弧度”按钮〔Command 1〕，在文本框'fext2中输出弧度值;在文本框Text2中输人弧度值，单击”弧度转角度”按钮(Command2)，在Textl中输出角度值。
2. 请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下:
(1)收人在1000以内，扣税3%
（2）收人在1000-3000元内，800元以上部分扣税15%;
(3)收人在3000-5000元内，3000元以内按(2)的方法扣税，3000元以上部分，扣税20%;
(4)当收人达到5000元以上，扣税25%。
程序运行界面如图3所示。
需要使用的转换公式是:弧度“角度Xπ/180，π=3. 1415926
提示:化为角度的方法为
（1）先将弧度值变为十进制。以1.233为例
1.233 ×（180/π）=70.6457558
（2）去掉整数部分70，余0. 6457558
（3） 0.6457558×60=39.745528
（4）去掉39，余0. 745528
（5）0.745528×60=44. 7316845"
即换算成了70039'45”
一、单项选择题
1.D 2.B 3.A 4.B 5.C 6.B 7.A 8.B 9.C 10.C 11.B 12.C 13.C 14.A 15.B
16.D 17.D 18.A 19.C 20.C 21.B 22.A 23.B 24.D 25.B 26.A 27.A 28.B 29.C 30.C 31.D 32.B 33.B 34.D 35.C 36. D 37.D 38.B 39.D 40.C 41.C 42. B 43.B 44. C 45. B
二、填空题
1. 3<=x And x<10 2. False 3，顺序结构.选择结构(或分支结构). 循环结构
4. 24 5. Kill"d:/tem. tmp" 6. 12 7.不会.不会8.(300，-150)9.EXE
10.使服务程序处于侦听状态11.一直存在.过程执行期间
12.5'（1/2）*cos(60*3.14/180)，或者Sqr(5)*cos(60*3.14/180) 13.6 14. 25 15.Label TextBox 16.FileCopy“c/command, com",”d:/command. com"
17.工程、工程属性、通用、Forml. Show 18.编译错误、实时错误、逻辑错误
19.直线的终点 20.ActiveConnection 21.设计模式、运行模式、中断模式、当前模式 22. True 23.绳(或Twigs) ScaleMode
24. Circle(ScaleWidth/2,ScaleHeight/2),800 25.1 26. Main子过程
27. Y MOD 4=0 And Y MOD 100<>0 OR }( MOD 400=0
28. Dim A(-1 To 2，-1 To 1) As Integer 29.标准接口
三、阅读程序题
1.n= 2 x=6 y=3 2.s=5 s=20 s=60 3.4 3 4.8 5.S=13 6.2 72 74 7.4
8.第一次单击以黑体显示”欢迎使用Visual Basic! ";第二次单击以宋体显示;第三次单击以楷体显示。再次单击则清屏并还原成初始状态。
9.x=1 y=1
x=1 y=2
x=1 y=3
10.29
11.9
12.4 5 6
四、完善程序题(每题10分，共20分)
[1] Listl. AddItem Textl. Text
[2]“”
[3] End If
[4] Listl. ListIndex
[5] Listl. ListCount
2.
[1]Line (0，Forml. ScaleHeight /2)-(0，-Forml. ScaleHeight/2)
[2] Print 0
[3] r=Forml. ScaleHeight
[4] End If
[5] Circle (0，0)，r /3
3.[1]Else
[2]”修改”
[3] Listl. Text
[4] False
[5]“”
4. [1] 2
[2] r=Y
[3] r=X
[4] Circle (X, Y)，r1，RGB(255 * Rnd, 255，Rnd, 255 * Rnd)
[5] Picturel. Cls
五、编写程序题
1.
Private Sub Commandl Click()
Const pi=3. 1415926
If Textl. Text<>“”Then
Text2. Text=Val(Textl. Text)*3. 1415926 /180
End If
End Sub
Private Sub Command2_ Click（ ）
Const pi=3.1415926
Dim x As Single，a As Single, al As Single
Dim d As Integer, f As Integer, m As Integer
Dim y As String
X=Val(Text2. Text)
a=x;(180 /pi)
d=Fix(a)
al=(a一d) * 60
f=Fix(al)
m=Fix（（al一f）* 60十0. 5)
Y=Str(d)&”“”&Str<f)&”‘”&Str(m)&””””
Textl. Text=Y
End Sub
2. Private Sub CommandlaClickC)
Din: x As Integer, t.ax As Single
x=Val(Textl.Text)
II X<1000 Then。
TaX=1000*0.03
Else
if x<=3000 Then
tax(x-800)*0.15
Xlse
If x<=5000 Then
tax=(x-800)*0.15+ (x-3000)*0.05
E1se
tax=x*0.25
End If
End If
End 1f
Text2.Text=tax
End sub
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
2022年中考生物：消化系统的组成04-27
高三上册历史必修三知识点04-27
2022年生物：传粉和受精04-27
高三上册历史必修一知识点整理04-27
高三年级下册历史必修二知识点04-27
高三历史必修三知识点整理04-27
2022年初中生物：真皮组成04-27
高三历史必修一上册知识点04-27
高三历册必修一知识点04-27