vb程序设计总复习模拟题.docx
《vb程序设计总复习模拟题.docx》由会员分享，可在线阅读，更多相关《vb程序设计总复习模拟题.docx（12页珍藏版）》请在冰豆网上搜索。
vb程序设计总复习模拟题
一、单项选择题
1．利用VB设计程序的基本步骤可分四步：
A
（1）设计用户界；
（2）_______；（3）运行调试程序；（4）生成执行文件。
A、编写代码B、设计算法C、信息反馈D、系统集成
2.在一行内写多条语句时，每个语句之间用_______符号分隔A
A、, B、：
C、. D、；
3下面_______是合法的字符常量。
B
A、ABC$ B、“ABC” C、‘ABC’ D、ABC
4．Functionfun（mAsInteger）AsInteger
DimkAsInteger,sumAsInteger
sum=0
Fork=mTo1step-2
sum=sum+k
Nextk
fun=sum
EndFunction
若在程序中用语句用s=fun（8）调用此函数，则s的值为_______。
A.20B.30C.40D.10
5.语句Print5/4*6\5Mod2的输出结果是_____B__。
A）0B）1C）2D）3
6．在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommandl_Click（）
DimiAsInteger
Dima（1To4）AsInteger
Fori=1To4
a（i）=i
Nexti
j=1
S=0
Fori=4To1Step-1
S=S+a（i）*j
j=j*10
Nexti
PrintS
EndSub
运行上面的程序，单击命令按钮，其输出结果是____D___。
A）4321 B）12C）34 D）1234
7、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程,程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为”计算机等级考试”.以下能实现上述操作的事件过程是__A_____。
APrivateSubText1_Change（）
Command1.Caption=“计算机等级考试”
EndSub
BPrivateSubCommand1_Click（）
Caption=“计算机等级考试”
EndSub
CPrivateSubForm1_Click（）
Text1.Caption=“计算机等级考试”
EndSub
DPrivateSubCommand1_Click（）
Text1.Text1=“计算机等级考试”
EndSub
8．设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf（（ad）,"A","B"）后，x的值为B
A、"a"B、"b"C、"B"D、"A
9．在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是______B_。
A、AND->NOT->OR B、NOT->AND->OR
C、OR->NOT->AND D、NOT->OR->AND
10．在VB中，复写框（Check）的Value值有三种，分别是__B_____。
。
A、-1，0，1B、0，1，2
C、1，2，3D、True，False，0
11．下列操作不能打开代码窗口的是__D_____。
A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B、选中对象,双击鼠标左键
C、按F7键
D、按F4键
12．定时器控件的Interval属性值是指时间间隔，单位为 ___ ；当每隔此间隔的时间，定时器会触发一次_A__ 事件。
（A）毫秒，Timer（B）秒，Timer（C）毫秒，ScrollBar（D）秒，ScrollBar
13．下列关于控件数组的说法错误的是A
A）定义控件数组的方法与定义一般数组的方法是相同的
B）使用Load语句载入的控件数组元素在默认的情况下是不可见的
C）对于不再使用的控件可以使用unload语句将其卸载
D）控件数组中的控件事件过程与其他控件事件过程的结构类似
14．保存文件时，窗体的所有数据存储格式为（D）
A、*．PRGB、*．FRMC、*．VBPD、*．EXE
15.VB中的变量如果没有显示声明其数据类型，则默认为__D_____。
A、日期型date）B、数据型C、字符型string）D、变体型（variant）
16.以下叙述中正确的是___C____。
A．一个记录中所包含的各个元素的数据类型必须相同
B．随机文件中每个记录的长度是固定的
C．Open命令的作用是打开一个已经存在的文件
D．使用Input#语句可以从随机文件中读取数据
17.在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后，单击命令按钮，输出结果是____B_。
A）7B）15C）157D）53
18.以下程序运行后，单击命令按钮，在窗体上显示的内容是____C___。
PrivateSubCommand1_Click（）
DimxAsInteger
DimyAsInteger
x=10
y=5
callf1（x,y）
Printx,y
EndSub
PrivateSubf1（Byvalx1AsInteger,y1AsInteger）
x1=x1+2
y1=y1+2
EndSub
A）105B）125C）107D）127
19.下列对顺序文件描述正确的是:
_D______。
A.记录之间有明确的分隔符B.可通过记录号读出
C.每条记录的长度必须相等D.可编程对某条记录方便的修改
20.在列表框的方法中，______B__方法用于删除列表框中的一项。
A）AddItemB）RemoveItemC）ClearD）cls
21.框架是一个容器控件，其用于设置框架控件是否能够响应用户事件的是下列哪个属性：
C
AName属性BCaption属性CEnable属性Dleft属性
22.用来测试指定文件结束状态的函数是_A____。
A、EofB、FreeFileC、Loc D、Open
23.以下Case语句中错误的是:
____D___。
A）Case0To10B）CaseIs>10
C）CaseIs>10AndIs<50D）Case3,5,Is>10
24.文本框的ScrollBars属性只有在__A___属性为Ture时才有效。
A、MultiLineB、TextC、FontD、PasswordChar
25.下列程序段的执行结果为____D___。
m=1
n=1
SelectCasem
Case1
SelectCasen
Case0
Print“**0**”
Case1
Print“**1**”
EndSelect
Case2
Print“**2**”
EndSelect
A、**0**B、0C、**2**D、**1**
26.下列命令中____C___可实现对二进制文件的读操作。
A）LineInputB）.PutC）.GetD）.Read
27. 阅读以下程序：
FunctionF（aAsInteger）
b=0
Staticc
b=b+1
c=c+1
F=a+b+c
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger
a=2
Fori=1To3
PrintF（a）
Nexti
EndSub
运行上面的程序，单击命令按钮，输出结果为B______。
A）4 B）4 C）4 D）4
4 5 67
4 6 89
28.以下哪种不能使控件获得输入焦点：
____A___。
1）用鼠标单击指定的控件
2）反复按Tab键直到指定控件获得输入焦点
3）按Shift键使指定控件获得输入焦点
4）调用控件的SetFocus方法
29.在标题的字符串中的某个字符前加上符号&便可以建立该命令按钮的___B____。
A.默认值B、快捷键C、输入焦点D、编辑器
29.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
functionf（mAsInteger）asLong
IfmMod2=0Then
f=m
Else
f=1
EndIf
EndFunction
privateSubCommand1_Click（）
DimiAsInteger
s=0
Fori=1To5
s=s+f（i）
Next
prints
EndSub
程序运行后，单击命令按钮，在窗体上显示的是:
A
A）11B）10C）9D）8
30.有程序代码如下：
Text1.Text=”Text1.Text”
则Text1、Text、”Text1.Text”分别代表（A）
A、对象、值、属性
B、对象、方法、属性
C、对象、属性、值
D、属性、对象、值
31.以下程序段的输出结果为B
x=1
y=4
Do
x=x*y
y=y＋1
LoopUntily>4
Printx
A．1B．4C．8D.20
二、填空题
1.数学关系3<=x<10表示成正确的VB表达式为___B____。
A、3<=x<10B、3<=xANDx<10
C、x>=3ORx<10D、3<=xAND<10
2.阅读以下程序：
Functionfun（ByValnumAsLong）AsLong
DimkAsLong
k=1
num=Abs（num）
DoWhilenum
k=k*（numMod10）
num=num\10
Loop
fun=k
EndFunction
PrivateSubCommand1_Click（）
DimnAsLong
DimrAsLong
n=InputBox（"请输入一个数"）
r=fun（n）
Printr
EndSub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为[_24____]
3．插入排序法的算法思想是：
逐个处理待排序的数据，每个新的数据都与前面已经排序的子序列进行比较，如果新的数据比前面的数据小（升序），将它们交换位置，再与前面的数据比较。
这样经过多次的比较，便可将新的数据插入到最前面的位置。
使用插入排序对以下给定的8个数按从大到小的顺序进行排序。
请在下列三处括号内将程序补充完整。
OptionBase1
PrivateSubCommand1
_Click（）
DimintNum
DimintTmpAsInteger
DimiAsInteger
DimjAsInteger
intNum=Array（43，21，18，15，28，16，23，17
）
Fori=2To8
Forj=iTo2Step-1
IfintNum（j）intTmp=intNum（j）'交换两个元素
intNum（j）=_intnum（j-1）________
intNum（j–1）=intTmp
Else
ExitFor
EndIf
Nextj
Nexti
Print"排序结果是：
"
Fori=1To8
Print_____（i）___;
Next
EndSub
4．在窗体上有一个名称为Label1的标签和一个名称为List1在列表框。
程序运行后，在列表框中添加若干列表项。
当单击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。
请在_______处填入适当的内容，将程序补充完整。
（3分）
PrivateSubForm_Load（）
List1.AddItem“香蕉”
List1.AddItem“苹果”
List1.AddItem“西瓜”
EndSub
PrivateSubList1_Click（）
Label1.Caption=_lstfruit.text__
EndSu
5.PrintFormat（123.5,"###.00"）显示_123.50______。
6.在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，该文本框的ScrollBars属性设置为Both，Text属性设置为空。
以下程序的功能是，把磁盘文件d:
\test\smtext1.txt的内容读到内存并在文本框中显示出来。
然后把该文本框中的内容写入磁盘文件smtext2.txt中去。
（提示：
为了判断一个文件的当前读入的位置是否位于文件结束位置，可以使用EOF函数。
EOF函数将返回一个表示文件指针是否到达文件末尾的标志。
如果到了文件末尾，EOF函数返回TRUE，否则返回FALSE。
）
PrivateSubForm_Click（）
DimiAsInteger
DimstrTmpAsString
Open"d:
\test\smtext1.txt"ForInputAs#1
StrTmp=""
DoWhileNot_____
LineInput#1,strTmp
Text1.Text=Text1.Text&vbCrLf&strTmp
Loop
Close#1
Open"d:
\test\smtext2.txt"ForOutputAs#1
Print#1,_____i___
Close#1
EndSub
三、编程题
一、如下图，设计一个界面，给出3个可选答案，用于允许选择某人的兴趣，某人的兴趣是“音乐”，选择完毕后单击“完成”命令按钮可弹出一个消息框显示用户选择的内容。
如果单击的是“音乐”，则显示“答对了”。
否则，则显示“答错了”。
1．要求填写程序设计对象属性表；
2.编写程序
单选钮1
单选钮2
单选钮3
（1）填写对象属性设置表：
对象类型
属性名
属性值
窗体
Name
Form1
Caption
单选钮1
Name
Option1
Caption
单选钮2
Name
Option2
Caption
单选钮3
Name
Option3
Caption
框架
Name
Frame1
Caption
“确定”按钮
Name
Command1
Caption
（2）在“确定”命令的单击事件过程中键入如下代码：
PrivateSubCommand1_Click（）
EndSub
二、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方时，程序用随机函数产生15个随机数，然后程序把刚才产生的15个整数分3行在在窗体上显示，每行5个整数。
三、设有一维数组A（1to10）,用键盘（Inputbox（）函数）输入10个整数到数组A中，然后将数组元素倒置。
例如；输入2、4、6、8、10、1、3、5、7、9
输出9、7、5、3、1、10、8、6、4、2
升级会员 