vb模拟.docx
《vb模拟.docx》由会员分享，可在线阅读，更多相关《vb模拟.docx（11页珍藏版）》请在冰豆网上搜索。
vb模拟
一、单项选择题（20道小题，共20分）
1、在VisualBasic的工程中，工程文件的扩展名是（）。
（1分）
A、.frm
B、.vbg
C、.vbp
D、.bas
2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。
（1分）
A、工程资源管理器窗口
B、工具箱窗口
C、代码窗口
D、属性窗口
3、产生[1,100]区间的随机整数的随机函数表达式，正确的是（）。
（1分）
A、Rnd*99+1
B、Int（Rnd*99+1）
C、Rnd*90+10
D、Int（Rnd*100）+1
4、以下关于MsgBox的叙述中，错误的是（）。
（1分）
A、MsgBox函数返回一个整数
B、通过MsgBox函数可以设置信息框中图标和按钮的类型
C、MsgBox语句没有返回值
D、MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量
5、可以同时删除字符串前导和尾部空白的函数是（）。
（1分）
A、Ltrim
B、Rtrim
C、Trim
D、Mid
6、将字符串转换为数值的函数是（）。
（1分）
A、Chr（）
B、Asc（）
C、Val（）
D、Str（）
7、为了把焦点移到某个指定的控件，所使用的方法是（）。
（1分）
A、SetFocus
B、Visible
C、Refresh
D、GetFocus
8、为了使标签（名称为Label1）左移200，应使用的语句是（）。
（1分）
A、Label1.Move-200
B、Label1.Move200
C、Label1.Left=Label1.Left+200
D、Label1.Left=Label1.Left-200
9、当运行程序时，系统自动执行启动窗体的（）事件过程。
（1分）
A、Load
B、Click
C、GotFocus
D、Unload
10、要使某个控件在运行时不显示，应对（）属性进行设置。
（1分）
A、Caption
B、BackColor
C、Visible
D、Enabled
11、以下Case语句中错误的是（）。
（1分）
A、Case0To10
B、CaseIs>10
C、CaseIs>10AndIs<50
D、Case3,5,Is>10
12、语句Ifx=1Theny=1，下列说法正确的是（）。
（1分）
A、x=1和y=1均为赋值语句
B、x=1和y=1均为关系表达式
C、x=1为关系表达式，y=1为赋值语句
D、x=1为赋值语句，y=1为关系表达式
13、以下关于变量作用域的叙述中，正确的是（）。
（1分）
A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用B、全局变量必须在标准模块中声明
C、模块级变量只能用Private关键字声明
D、Static类型变量的作用域是它所在的窗体或模块文件
14、以下关于函数过程的叙述中，正确的是（）。
（1分）
A、函数过程形参的类型与函数返回值的类型没有关系
B、在函数过程中，过程的返回值可以有多个
C、数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D、如果不指明函数过程参数的类型，则该参数没有数据类型
15、以下能判断是否到达文件尾的函数是（）。
（1分）
A、BOF
B、LOC
C、LOF
D、EOF
16、下面关于顺序文件的描述正确的是（）。
（1分）
A、每条记录的长度必须相同
B、可通过编程对文件中的某条记录方便的修改
C、文件的组织结构复杂
D、数据以ASCII码形式存放在文件中，可以通过文本编辑器软件显示
17、在窗体上画两个单选按钮，名称分别为Optionl、Option2，标题分别为“宋体”和“黑体”。
一个复选框，名称为Check1，标题为“粗体”。
要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能实现上述功能的语句序列是（）。
（1分）
A、Option1.Value=True:
Check1.Value=0
B、Option1.Value=True:
Check1.value=1
C、宋体.Value=True:
粗体.Value=0
D、宋体.value=True:
粗体.Value=1
18、在3种不同风格的组合框中，用户不能输入数据的组合框是（）。
（1分）
A、下拉组合框
B、简单组合框
C、下拉式列表框
D、A、B、C均可
19、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。
（1分）
A、=
B、*
C、&
D、-
20、假设有一个菜单项，其名称为myMenu1，为了在运行时让该菜单项失效，下列语句哪句正确（）。
（1分）
A、myMenu1.Visible=False
B、myMenu1.Visible=True
C、myMenu1.Enabled=False
D、myMenu1.Enabled=True
二、判断题（10道小题，共10分）
1、VisualBasic是事件驱动型的可视化编程工具。
（1分）
正确
错误
2、使用Dim语句声明变量时，若省略As子句，系统默认变量为双精度型。
（1分）
正确
错误
3、InputBox函数的返回值是字符串类型。
（1分）
正确
错误
4、命令按钮对象上的文字不能为空。
（1分）
正确
错误
5、在For…Next语句中，循环体执行的条件是循环变量的值大于或等于终值。
（1分）
正确
错误
6、行If语句必须写在同一行上，且其后一定不能有EndIf。
（1分）
正确
错误
7、OptionBase5语句可以指定数组下标从5开始。
（1分）
正确
错误
8、控件数组中的对象具有相同的Index属性和不同的Name属性。
（1分）
正确
错误
9、在过程内不能再定义过程，但可以调用其它Sub过程或Function过程。
（1分）
正确
错误
10、以Output方式打开顺序文件时，如果文件存在，该文件中的数据全部丢失。
（1分）
正确
错误
三、填空题（16道小题，共34分）
1、将附图（a4-6）所示数学表达式，写成VB表达式为。
【附图3】（2分）
________________________________________
2、将附图（a4-4）所示数学表达式，写成VB表达式为。
【附图6】（2分）
________________________________________
3、将附图（a4-1）所示数学表达式，写成VB表达式为。
【附图8】（2分）
________________________________________
4、在VisualBasic中，日期型常量应使用符号将其括起来。
（1分）
________________________________________
5、设有如下程序段，运行后变量b$的值为。
a$="BeijingShanghai"
b$=Mid（a$,InStr（a$,"g"）+1）
（1分）
________________________________________
6、VisualBasic的字符串连接运算符有&和两种。
（1分）
________________________________________
7、可获得系统当前时间的函数为。
（1分）
________________________________________
8、若要用文本框显示不希望用户更改的文本，可以把文本框的属性设为True。
（1分）
________________________________________
9、文本框的属性决定所选择的字符个数。
（1分）
________________________________________
10、将窗体的属性设置为True，就能在窗体中看到在Load事件中用Print方法输出的结果。
（1分）
________________________________________
11、为了获取当前可使用的文件号，可利用VB提供的函数来实现。
（1分）
________________________________________
12、如果要使菜单在运行时不可用，可设置菜单项的属性为False。
（1分）
________________________________________
13、菜单一般可以分为标准菜单和两种类型。
（1分）
________________________________________
14、根据题意，将程序补充完整。
输入两个正整数，求它们的最大公约数。
PrivateSubCommand1_Click（）
DimmAsInteger,nAsInteger
DimrAsInteger
m=Val（InputBox（"请输入第1个数"））
n=Val（InputBox（"请输入第2个数"））
IfThent=m:
m=n:
n=t
r=mModn
DoWhiler<>0
m=n
n=r
Loop
MsgBox"最大公约数为"&
EndSub
（6分）
________________________________________
15、根据题意，将程序补充完整。
在窗体上输出如附图（a22-1）所示的图形。
PrivateSubCommand1_Click（）
s="ABCDE"
Fori=To1Step-1
c=
PrintTab（10-i）;String（2*i-1,）
Nexti
EndSub
【附图11】（6分）
________________________________________
16、根据题意，将程序补充完整。
下载题目所附文件“geci.txt”，保存在D盘。
统计该文件中以大写字母H开头的共有多少行,并使用列表框输出其所在行号及内容。
PrivateSubCommand5_Click（）
DimsAsString
DimcAsInteger,nAsInteger
c=0
OpenForInputAs#2
Do
LineInput#2,s
n=n+1
IfThen
c=c+1
EndIf
LoopUntilEOF
（2）
Print"以H开头的共有:
"&c&"行"
EndSub
（【下载文件“geci.txt”】；）下载方法：
在链接上右击打开弹出菜单，选择“目标另存为”。
（6分）
________________________________________
四、编程题（5道小题，共45分）
1、新建工程，在窗体上创建1个命令按钮（Command）、1个标签（Label）和3个单选钮（OptionButton）。
（1）按照附图（b1-3），在属性窗口中设置命令按钮、标签与3个单选钮上的文字。
（2）编写代码，要求：
运行程序，单击单选钮可相应改变标签文字的颜色。
单击按钮可关闭窗体。
【本题要求上传窗体文件】
【附图15】（9分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
________________________________________
2、输入一个百分制的成绩，判断并输出该成绩对应的等级。
其中，90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以下为“不及格”。
【本题要求粘贴源程序】
（9分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
________________________________________
3、有一个数列，其前二项分别为1、2，从第三项开始，每项均为其相邻的前二项之和的1/3。
判断该数列从第几项开始小于0.0001。
【本题要求粘贴源程序与运行结果】
（9分）
必须将本题程序最后的运行结果填入下面的框中。
否则，该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
________________________________________
4、【请在最后两道编程题中选作一题，并在未选题的源程序框中注明“未选”字样】
【两道题都有答案且未注明“未选”者，后一题无效】
声明一个有15个元素组成的一维数组，利用随机函数给数组赋值，要求计算其中最大的5个元素的平均值。
要求：
随机数种子Randomize2，产生的数据为（0,10）之间的实数。
【本题要求粘贴源程序与运行结果】
（9分）
必须将本题程序最后的运行结果填入下面的框中。
否则，该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
________________________________________
5、【请在最后两道编程题中选作一题，并在未选题的源程序框中注明“未选”字样】
【两道题都有答案且未注明“未选”者，后一题无效】
编写一个函数，能判断给定的数据是否为素数。
调用该函数，计算区间[100,1000]之间的素数之和。
【本题要求粘贴源程序与运行结果】
（9分）
必须将本题程序最后的运行结果填入下面的框中。
否则，该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
________________________________________
升级会员 