VB模拟试题八套题.docx

VB模拟试题八套题.docx

《VB模拟试题八套题.docx》由会员分享，可在线阅读，更多相关《VB模拟试题八套题.docx（90页珍藏版）》请在冰点文库上搜索。

VB模拟试题八套题

一、单选题

（1）（30分，每小题1分）

◆一个完整计算机系统应包括___

（1）____。

（A）主机、键盘、和显示器（B）硬件系统和软件系统

（C）主机和其他外部设备（D）系统软件和应用软件

◆打印机属于计算机部件中的___

（2）___。

（A）输出设备（B）输入设备（C）存储设备（D）缓冲设备

◆下列表示存储容量的数据中，____（3）____是最大的。

（A）20480KB（B）1.44MB（C）1GB（D）4865723Byte

◆在计算机内部能够直接执行的程序语言是___（4）____。

（A）数据库语言   （B）高级语言（C）机器语言    （D）汇编语言

◆下列叙述正确的是___（5）____。

（A）程序设计就是编制程序    （B）程序的测试必须由程序员自己去完成

（C）程序经调试改错后还应进行再测试（D）程序经调试改错后不必进行再测试

◆以下叙述中错误的是___（6）___。

（A）VisualBasic是事件驱动型可视化编程工具

（B）VisualBasic应用程序不具有明显的开始和结束语句

（C）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性

（D）VisualBasic中控件的某些属性只能在运行时设置

◆以下不属于VB工作模式的是___（7）___模式。

（A）编译（B）设计（C）运行（D）中断

◆以下语句的输出结果是___（8）___。

PrintFormat$（32548.5,“000,000.00”）

（A）32548.5（B）32,548.5（C）032,548.50（D）32,548.50

◆若要使某可见控件获得焦点，则可使用___（9）_____方法来实现。

（A）Refresh（B）SetFocus（C）Value（D）GotFocus

◆在下列说法中，正确的是___（10）___。

（A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上

（B）在列表框中不能进行多项选择

（C）VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列

（D）复选框的Value属性值为布尔型

◆执行以下程序段,输出的结果为___（11）___。

a$="abbacddcba"

Fori=6To2Step-2

x=Mid（a,i,i）:

y=Left（a,i）

z=Right（a,i）:

z=UCase（X&Y&z）

Nexti

Printz

（A）ABA（B）BBABBA（C）ABBABA（D）AABAAB

◆控件在窗体上的位置是由___（12）___属性确定的。

（A）Width和Height（B）Top和Left（C）Width和Left（D）Top和Width

◆关于Name属性，以下叙述中___（13）___是正确的。

（A）窗体的Name属性指定窗体的名称，用于标识一个窗体。

（B）窗体的Name属性用于设置显示在窗体标题栏的文本。

（C）可以通过代码在程序运行中改变某个对象的Name属性值。

（D）对象的Name属性值可以设置为空。

◆下列名称中___（14）___可以作为VB的变量名。

（A）mod（B）m-d（C）tempVal（D）left

◆要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中___（15）___是不正确的。

（A）Max=IIf（x>y,x,y）

（B）Ifx>yThenMax=xElseMax=y

（C）Max=x

Ify>=xThenMax=y

（D）Ify>xThenMax=y

Max=x

◆执行以下语句后，a的值为___（16）___

DimaAsInteger

a=1

DoUntila=100

a=a+2

Loop

（A）102（B）100（C）溢出（D）101

◆对于语句Ifa=bThenc=d的语法分析，___（17）___是正确的。

（A）a=b和c=d都是赋值语句（B）a=b是关系表达式，c=d是赋值语句

（C）a=b和c=d都是关系表达式（D）a=b是赋值语句，c=d是关系表达式

◆运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是__（18）__。

PrivateSubCommand1_Click（）

DimaAsInteger

StaticbAsInteger

a=a+5:

b=b+5

Printa,b

EndSub

（A）510（B）55（C）1010（D）00

◆在系统默认的情况下，Dima（3,4,2To5）定义的数组共有___（19）___个元素。

（A）36（B）48（C）60（D）80

◆下面的子过程定义语句中没有语法和逻辑错误的是___（20）___。

（A）SubS1（ByValn%（））（B）SubS1（nAsInteger）AsInteger

（C）FunctionS1（ByValnAsInteger）（D）FunctionS1%（ByValS1AsInteger）

◆执行了下面程序后，组合框中数据项的值是___（21）___。

PrivateSubForm_Click（）

Fori=1to6

Combo1.AddItemi

Nexti

Fori=1to3

Combo1.RemoveItemi

Nexti

EndSub

（A）156（B）135（C）456（D）246

◆设窗体上有一个列表框控件List1，且其中含有若干列表项。

则以下能表示当前被选中的列表项内容的是__（22）___.

（A）List1.ListB）List1.ListIndex（C）List1.Index（D）List1.Text

◆在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

PrivateSubCommand1_Click（）

n=Val（Text1.Text）

Fori=2Ton

Forj=2Tosqr（i）

IfiModj=0ThenExitFor

Nextj

Ifj>Sqr（i）ThenPrinti

Nexti

EndSub

该事件过程的功能是__（23）__

（A）输出n以内的奇数（B）输出n以内的偶数

（C）输出n以内的素数（D）输出n以内能被j整除的数

◆如果要在菜单中添加一个分隔线，则应将其标题属性设置为___（24）_____。

（A）=（B）*（C）&（D）-

◆以下关于文件的叙述中正确的是__（25）__。

（A）一个记录中所包含的各元素的数据类型都是相同的

（B）随机文件中每个记录的长度是固定的

（C）Open命令的作用是打开一个已经存在的文件

（D）使用Input#语句可以从随时机文件中读取数据

◆以下定义数组或给数组元素赋值的语句中，正确的是__（26）__。

（A）DimaAsVariant（B）Dima（10）AsIntegera=Array（1,2,3,4,5）a=Array（1,2,3,4,5）（C）Dima%（10）（D）Dima（3）,b（3）AsIntegera

（1）="ABCDE"a（0）=0:

a

（1）=1:

a

（2）=2:

b=a

窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为___（27）___。

PrivateSubtest（p,m,n）

p=p+1:

m=m+1:

n=n+1

Print“Sub:

”;p;m;n

EndSub

PrivateSubCommand1_Click（）

a1=1:

b1=2:

c1=3

Calltest（a1,b1+3,（c1））

Print“Main:

”;a1;b1;c1

EndSub

（A）Sub:

264

Main:

264

（B）Sub:

264

Main:

164

（C）Sub:

264

Main:

123

（D）Sub:

264

Main:

223

◆以下语句用于打开一个顺序文件Open"C:

\MyFile.txt"ForOutPut,但是该语句的一个重要错误是没有___（28）_____。

（A）指定打开方式（B）指定文件号（C）指定打开文件名（D）指定文件类型

◆

PrivateSubTimer1_Timer（）

IfLabel1.Left

Label1.Left=Label1.Left+20

Else

Label1.Left=0

EndIf

EndSub

在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。

编写如下程序：

PrivateSubForm_Load（）

Timer1.Enabled=False

EndSub

PrivateSubCommand1_Click（）

Timer1.Enabled=True

EndSub

程序运行后，单击“开始”按钮，标签在窗体中移动。

对于这个程序，以下叙述中错误的是___（29）___

（A）标签的移动方向为自右向左

（B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

（C）当标签全部移出窗体后，将从窗体的另一端出现并重新移动

（D）标签按指定的时间时隔移动

◆设有如下程序，通过For循环计算一个表达式的值，这个表达式是___（30）____：

PrivateSubCommand1_Click（）

DimsumAsDouble,xAsDouble

sum=0:

n=0

Fori=1To5

x=n/i:

n=n+1:

sum=sum+x

Next

EndSub

（A）1+1/2+2/3+3/4+4/5（B）1+1/2+2/3+3/4

（C）1/2+2/3+3/4+4/5（D）1+1/2+1/3+1/4+1/5

二、填空题（50分，每空2分）

◆VisualBasic中有三种类型的模块文件，即类模块、标准模块和_窗体__模块。

◆将数学式

写成VB表达式，应该是__sqrt（y^3+3/abs（a*b））____。

◆赋值语句：

a=123+MID（"123456",3,2）执行后，a变量中的值_157___。

◆VisualBasic提供的对数据文件的三种访问方式为顺序访问方式、_随机访问方式___

和二进制访问方式。

◆执行下列语句序列，显示的结果是___FALSE_。

a=2:

b=3:

c=4:

d=5

Print3>2*bOra=cAndb<>cOrc>d

◆运行下列程序，单击命令按钮，则Text1中显示___5_，窗体中显示__0__。

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger,a（5,4）AsInteger

Fori=2To3

Forj=2To4

a（i,j）=i+j

Nextj

Nexti

Text1.Text=a（3,2）

Printa（3,1）

EndSub

◆如下图，窗体上有两个命令按扭C1,C2及一个文本框Text1，当按下C1时，将C2的标题与Text1中的内容交换。

C2

C1

PrivateSubC1_Click（）

DimaAsString

Form1.Caption="交换后"

a=_Text1.Txt__

Text1.Text=_C2.Caption___

C2.Caption=a

EndSub

◆

请完善以下判断完数的程序。

一个数如果恰好等于它的因子之和，这个数就被称为“完数”。

一个数的因子是指除了该数本身以外能够被其整除的数。

例如6是一个完数，因为6=1+2+3。

PrivateSubCmdJudge_Click（）

If__m=k___Then

Picture1.Printm&"是完数"

Picture1.Printm;"=";

Fori=1ToUBound（a）-1

Picture1.Printa（i）;"+";

Nexti

Picture1.Print___a（ubound（a））___

Else

Picture1.Printm&"不是完数"

EndIf

EndSub

Dima（）

m=Val（Text1.Text）

ReDima

（1）

a

（1）=1

k=_1_

j=1

Fori=2Tom-1

IfmModi=0Then

k=k+i'因数和

j=j+1'因数个数

ReDim___preserve___a（j）

a（j）=__i___

EndIf

NextI（转右）

◆

编写程序。

在窗体上显示如下图所示的“九九加法表”。

__option_Explicit

PrivateSubForm_Click（）

Dimi%,j%

Print"+123456789"

Fori=1To___9__

Printi;

Forj=1To__i___

Ifi+j<10__thenPrint"";

Print_i+j_;

Nextj

_print___

Nexti

EndSub

◆在窗体上画一个名称为Command1的命令按钮，然后编写如下程序,通过调用过程Swap，调换数组中数值的存放位置，即a

（1）与a（10）的值互换，a

（2）与a（9）的值互换，……，a（5）与a（6）的值互换。

请填空

OptionBase1

PrivateSubCommand1_Click（）

Dima（10）AsInteger

Fori=1To10

a（i）=i

Next

CallSwap（__a___）

Fori=1To10

Printa（i）;

Next

EndSub

SubSwap（b（）AsInteger）

n=___Ubound（b）__

Fori=1Ton/2

t=b（i）

b（i）=b（n）

b（n）=t

__n=n-1_

Next

EndSub

◆设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。

现要将t2.txt的内容合并到t1.txt中。

例如t1.txt原来内容为"ABCD",t2.txt原来内容为"1234"，合并后t1.txt的内容将成为“ABCD1234”

PrivateSubCommand1_Click（）

Open"t1.txt"_forappend__As#1

Open"t2.txt"ForInputAs#2

DoWhileNotEOF

（2）

LineInput#2,s

_Print#1,s___

Loop

Close

EndSub

三、编程题（20分，每题10分）

1．编写一个自定义函数Gcd（m,n）,实现求m和n两个正整数的最大公约数。

2．在文本框Text1中输入一串字符，用标签Label1显示其中出现频率最高的字母（不区分大小写）及其出现次数。

例如：

输入“Thisisabeautifulworld.”则输出“使用频率最高的是i，共出现3次。

”

一、单选题

（2）（30分，每小题1分）

1、（）字节称为一个MB。

（A）1024（B）1000K（C）1024*1024（D）10000K

2、计算机硬件系统的五大部件是（）。

   （A）CPU、内存储器、输入设备、输出设备、外存储器

   （B）运算器、控制器、存储器、输出设备、输入设备

   （C）CPU、总线、存储器、外设、主板

   （D）主机箱、显示器、音箱、鼠标、键盘

3、常用的输入设备有（）。

   （A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标

   （C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标

4、计算机网络的主要作用是（）。

（A）数据处理（B）信息传输与数据处理

（C）文献查询（D）资源共享与信息传输

5、二进制数1010等于十六进制数（）。

（A）10（B）11（C）A（D）B

6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句（）。

（A）OptionBase0（B）OptionExplicit（C）OptionBase1（D）OptionCompare

7、下列程序段的执行结果为（）。

J1=10

J2=30

IfJ1

PrintJ1

（A）10（B）30（C）1030（D）3010

8、假设变量x1是一个布尔型（逻辑型）的变量，则下面正确的赋值语句是（）

（A）x1="False"（B）x1='False'（C）x1=False（D）x1=#False#

9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（）。

（A）PrivateSubText1_LostFocus（）

Text1.SelStart=0

Text1.SelLength=Len（Text1.text）

EndSub

（B）PrivateSubText1_GotFocus（）

Text1.SelStart=0

Text1.SelLength=Len（Text1.text）

EndSub

（C）PrivateSubText1_SetFocus（）

Text1.SelStart=0

Text1.SelLength=Len（Text1.Text）

EndSub

（D）PrivateSubText1_Change（）

Text1.SelStart=0

Text1.SelLength=Len（Text1.Text）

EndSub

10、设用复制、粘贴的方法建立了一个单选按钮数组Option1，以下对该数组的说法错误的是（）。

（A）所有单选按钮的Caption属性都是Option1

（B）单选按钮的大小都相同

（C）在代码中访问任意一个单选按钮只需使用名称Option1

（D）单选按钮共享相同的事件过程

11、下面过程说明语句中合法的是（）。

（A）Subf1（ByValn（）AsInteger）（B）Functionf1（ByValnAsInteger）

（C）Functionf1（f1AsInteger）AsInteger（D）Subf1（n（）AsInteger）AsInteger

12、Cls方法可清除窗体或图片框中的（）信息。

（A）Picture属性设置的背景图案（B）在设计时放置的控件

（C）程序运行时产生的图形和文字（D）以上都对

13、在窗体中右击鼠标能弹出菜单test的是（）。

（A）SubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2ThenPopupMenutest

EndSub

（B）SubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

PopupMenutest

EndSub

（C）SubForm_Click（）

PopupMenutest

EndSub

（D）SubForm_DblClick（）

PopupMenutest

EndSub

14、下列符号常量的声明中，（）是不合法的。

（A）ConstaAsSingle=1.1（B）ConstaAsInteger="12"

（C）ConstaAsDouble=Sin

（1）（D）Consta="OK"

15、下列程序段的执行结果为（）。

DimS（9）

Fori=0To9

S（i）=3*I

Nexti

PrintS（S（3））

（A）12（B）27（C）0（D）出错

16、下列数组声明正确的是（）。

（A）n=5

Dima（1ton）AsInteger

（B）Dima（10）AsInteger

ReDima（1to12）

（C）Dima（）AsSingle

ReDima（3,4）AsInteger

（D）Dima（）AsInteger

n=5

ReDima（1ton）AsInteger

17、下列控件中，没有Caption属性的是（）。

（A）框架（B）列表框（C）复选框（D）单选按钮

18、下面关于计时器控件（Timer）的叙述中，错误的是（）。

（A）计时器控件运行时不可见

（B）通过Color属性可设置计时器控件的颜色

（C）计时器控件只有一个事件即Timer事件

（D）计时器的Interval属性值设为0时，计时器无效

19、表达式2^2*5+3Mod10\3的值是（）。

（A）0（B）18（C）19（D）20

20、在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别