Visual Basic程序设计试题docx.docx
《Visual Basic程序设计试题docx.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计试题docx.docx(12页珍藏版)》请在冰豆网上搜索。
![Visual Basic程序设计试题docx.docx](https://file1.bdocx.com/fileroot1/2023-2/9/3a2b0fa7-a265-4828-b786-833fb8b7a0e4/3a2b0fa7-a265-4828-b786-833fb8b7a0e41.gif)
VisualBasic程序设计试题docx
VisualBasic程序设计试题
一、单项选择题(每小题2分,共30分)
1.VisualBasic是一种面向对象的可视化编程语言,采取了()的编程机制。
A.按过程顺序执行B.从主程序开始执行
C.事件驱动D.按模块顺序执行
2.要设置命令按钮的背景图形,必须设置的两个属性是()
A.Caption和Picture
C.Style和Icon
B.、Style和PictureD、Value和Icon
3.工程文件的扩展名是(
A..vbp
C..bas
)o
B..frm
D..frx
4.有程序代码如下:
Text1.Text="欢迎学习VB程序设计”
则Textl,Text,和”欢迎学习VB程序设计”分别代表()。
A.对象,值,属性
C.对象,方法,属性
B.对象,属性,值
D.属性,对象,值
5.VisualBasic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是()。
A.设计模式B.编写代码模式
C.执行模式D.中断模式
6.下列控件中,不能改变大小的是()。
A.TextBoxB.Label
C.TimerD.PictureBox
7.多窗体程序是由多个窗体组成,在缺省情况下,VB在应用程序执行时,总是把()
指定为启动窗体。
A.不包含任何控件的窗体B.命名为Frml的窗体
C.包含控件最多的窗体D.设计时的第一个窗体
8.DimA(1To4,0To3)定义的数组包含的元素的个数是()。
A.12B.16
C.15D.动态变化
9.如果创建了命令按纽控件数组,则Cilick事件的参数是()。
A.Caption
B.Index
C.Tag
D.没有参数
10.不属于VB数据库引擎的是()
A.ODBCB.Jet引擎
C.OLEDBD.BDE
11.要向图片框Pl中加载d:
\hainan\zhiwu.bmp,,图像文件,应使用语句()。
A.Picture1.Picture="d:
\hainan\zhiwu.bmp"
B.Picturel.Picture=LoadPicture(Hd:
\hainan\zhiwu.bmp")
C.Pl.Picture=LoadPicture("d:
\hainan\zhiwu.bmp")
D.P1.Picture=LoadPicture(d:
\hainan\zhiwu.bmp)
12..以下属性只能用程序代码设置,不能通过属性窗口设置的是()。
A.Index属性B.Pattern属性C.Visible属性D.Drive属性
13.以下有关VisualBasic语言描述中错误的是()。
A.语句是一行一句,以回车键结束
B.用分隔一行中的多个语句
C.不区分大小写
D.一条语句放在多行中,则在前一行结束处使用续行符“一”连接下一行
13.在下列选项中,不能将图像装入图片框和图像框的是()
A.在界面设计时,通过Picture属性装入
B.在界面设计时,手工在图像框和图片框中绘制图形
C.在界面设计时,利用剪贴板把图像粘贴上
D.在程序运行期间,用LoadPicture函数把图形文件装入
14.使用ADO对象模型时,使Recordset和Connection对象建立连接的属性是()。
A.OpenB.Execute
C.CommandTypeD.ActiveConnection
15.要发送数据,通常使用Winsock控件的()
A.ListenB.Accept
C.SendDataD.GetData
二、填空题(每小题2分,共20分)
1.每个应用程序必须有一个惟一的文件。
2.表达式13\2-2A3*5MOD6的值是。
3.如果要每隔3s产生一个Timer事件,则Interval属性应设置为。
4.VB中的程序错误类型主要有实时错误、三种。
5.控件数组的名字由属性指定,而数组中的每个元素由属性
决定。
6.Winsock控件主要用来编制基于或协议的网络应用程序。
7.如果不能事先确定变量的数据类型,则可以把它生命为类型。
8.以写方式打开D盘中的Text,dat文件,正确的语句是
9.全局变量是指那些在中有效的变量,一般在模块代码编辑器的
顶部使用声明。
10.VB中参数传递的机制有两种,一种是参数,另一种是
参数。
三、阅读程序题(共25分)
阅读下列程序并写出程序运行结果
1.(6分)
PrivateSubForm_Click()
DimxAsInteger
StaticyAsInteger
x=x+2
y=y+3
Forml.Print〃x二〃;x,〃y二〃;y
EndSub
写出程序运行时连续单击三次窗体后,Forml±的输出结果。
2.(6分)
PrivateSubCommandl_Click()
x=0
DoWhilex<60
x=(x+3)*(x+4)
n=n+1
Loop
Textl.Text=Str(n)
Text2.Text=Str(x)
Text3.Text=Val(Textl.Text)+Val(Text2.Text)
EndSub
写出程序运行后,文件框Text3的结果。
3.(6分)
PrivateSubFormClickO
DimA(1To3)AsString
DimcAsInteger
DimjAsInteger
A(l)=〃4〃
A
(2)=〃8〃
A(3)=〃12〃
c=1
Forj=1To3
c=c+Val(A(j))
Nextj
Printc
EndSub
写出程序运行时单击窗体后,窗体Forml上的结果。
4.(7分)
PublicSubchangel(ByVaixAsInteger,ByVaiyAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PublicSubchange2(xAsInteger,yAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=22:
b=33
changela,b
Forml.Print〃A1二〃;a,〃B1二〃;b
a=22:
b=33
change2a,b
Forml.Print〃A2=”;a,〃B2=";b
EndSub
写出程序运行时,单击窗体Forml上的输出结果。
四、完善程序题(共10分)
1.列表框应用程序。
要求从文本框中输入课程名称,然后按“添加”按钮,将该课程名程添加到列表框中;当选择列表框中某一项后,按“删除”按钮,则从列表框中删除该项;当选择列表框中某一项后,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为"修改确认”。
在文本框的内容修改好后,按"修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图1所示。
Command1
Commands
Textl
Listl
图1
程序如下,请补充完整。
PrivateSubForm_Load()
Listl.Additem"VisualBasic程序设计”
Listl.Additem"SQLSERVER数据库应用
Listl.Additem"信息管理系统"
Listl.Additem"ERP原理与应用"
Listl.Additem"网络实用技术基础"
Listl.Additem”系统开发规范与文档编写,
Listl.Additem"信息系统测试"
EndSub
PrivateSubCommand1_Click()
IfTextl.Text<>,,HThen
[11
Textl.Text="
⑵
MsgBox”请在文本框中输入信息!
”
EndIf
EndSub
PrivateSubCommand2_Click()
[31
EndSub
PrivateSubCommand3_Click()
IfCommands.Caption=[4]
Textl.Text=「5]
Textl.SetFocus
Command1.Enabled=⑹
'将文本框中的内容加到列表框中
'删除选定的项目
Then
Command2.Enabled=False
Command3.Caption-[71
Else
List1.List(List1.Listindex)=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Textl.Text=',H
Commands.Caption=[81
EndIf
EndSub
五、编写程序题(共15分)
编写一工资调整程序。
若基本工资大于等于800元,增加工资20%,若小于800元大于600元,则增加工资15%;若小于600元则增加工资10%。
要求在文本框Textl中输入某职工的基本工资,单击“计算”按钮,在标签框Labell中输出增加后的工资。
程序运行界面如图4所示。
图2
答案:
一、单项选择题(每小题2分,共30分)
l.C2.B3.A4.B5.B6.C7.D8.B9.B10.D11.C
12.D13.B14.D15.C
二、填空题(每空1分,共15分)
1.vbp
2.2
3.3000
4.逻辑错误编译错误
5.NameIndex
6.TCP/IPUDP
7.变体型(或Variant)
8.open"D:
\text.datHForOutputAs#1
9.整个应用程序Public
10.引用参数传递(或按址传递)按值传递
三、阅读程序题(每小题5分,共20分)
y=3
y=6
y=9
Bl二33
B2=22
1.x=2
x=2
x=2
2.
242
3.
25
4.
Al=22
A2=33
四、完善程序题(共10分)
[1]Listl.AddItemText1.Text
[2]Else
[3]Listl.RemoveitemList1.Listindex
[4]”修改”
[5]List1.Text
[6]False
[7]”修改确认”
[8]“修改”
五、编写程序题(共15分)
参考答案:
PrivateSubCommandl_Click()
DimxAsInteger,yAsSinglex=Vai(Textl.Text)
SelectCasex
CaseIs>=800
y二x*1.2
CaseIs>=600
y二x*1.15
CaseElse
y二x*1.1
EndSelect
Label1.Caption=y
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub