国家二级（VB）机试模拟试卷38.pdfVIP

国家二级(VB)机试模拟试卷38

一、选择题(本题共40题，每题1.0分，共40分。)

1、文件d:\cily.txt的内容如下：BeijingTianjinShangHaiChongQing编如下事件

过程；PrivateSubrorm_Clic()DimInDOpend:\city.txtForInputAs#1DoWhile

NotEOF(l)LineInput#1,InDLoopClose1PrintInDEndSub运行程序，单击窗

体，输出结果是

文件city.txt的全部内容

BNBciJing

C、ChongQing

D、空白

标准答案：C

知识点解析：#1文件以读操作的方式打开。在文件结尾的部分退出。退出时InD

内存储的内容是ChongQing,打印的内容就是ChongQing,选

2、在窗体上画一个文本框，其名称为Textl,然后编如下程序：OptionBase1

PrivateSubForm_Clic()DimArr(10)AsIntegerFori=6To10Arr(i)=i-3Nexti

Text1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)))EndSub程序运行后,单击窗体，在

文本框中显示的内容是

A、7

B、8

C、9

D、10

标准答案：D

知识点解析：For循环对数组Arr的第6个到第10个元素赋值。Arr(6)=3；

Arr(10)=7；因此，输出结果是10。选D)。

3、在窗体上画一个命令按钮(其Name属性为Commandl),然后编如下代

码：PrivateSubCommandl_Clic()Dimn()AsIntegerDima,bAsIntegera=

InputBox(*Enterthefirstnumber)b=InputBox(Enterthesecondnumber)ReDimn(a

Tob)For=LBound(n)ToUBound(n)n()=Printn();NextEndSub程序运行

后，单击命令按钮，在输入对话框中分别输入2和3,输出结果为

A、I2

B、23

C、34

D、45

标准答案：B

知识点解析：输入2和3后，n被重新定义，下标为2,上标为3。For循环执行2

次，=2和=30因此选B)。

4、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Tcxtl,

然后编如下程序:FunctionFun(xAsInteger,yAsInteger)AsIntegerFun=IIf(x

y,x,y)EndFunctionPrivateSubForm_Load()Command1.Default=TrueEndSub

PrivateSubCommand1_Clic()DimaAsInteger,bAsIntegera=20b=12Text1.Text

=Str(Fun(a,b))EndSub程序运行后，按回车键，文本框中显示的内容为

A、12

B、20

C、24

D、40

标准答案：A

知识点解析：Form.Load()过程中，Command1获得焦点。当按回车键时，触发

Commandl_Clic()事件。该事件中给定a和b的值,并调用函数Fun。函数Fun返

回整型数据。111^乂儿丫)表示的意思是*丫成立时，返回x,否则返回y。函数

调用时传过来的参数是x=20,y