二级VB语言笔试真题及答案Word下载.docx

1、下列叙述中正确的是A）提高耦合性降低内聚性有利于提高模块的独立性B）降低耦合性提高内聚性有利于提高模块的独立性C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度D）内聚性是指模块间互相连接的紧密程度8.（8）数据库应用系统中的核心问题是A）数据库设计B）数据库系统设计C）数据库维护D）数据库管理员培训9.（9）有两个关系R,S如下：由关系R通过运算得到关系S,则所使用的运算为A）选择B）投影C）插入D）连接10.（10）将E-R图转换为关系模式时,实体和联系都可以表示为A）属性B）键C）关系D）域11.（11）执行语句 Dim X,Y As Integer 后,A）X和Y均被定义为整型变量

2、B）X和Y均被定义为变体类型变量C）X被定义为整型变量,Y被定义为变体变量D）X被定义为变体类型变量,Y被定义为整型变量12.（12）以下关系表达式中，其值为True的是A）XYZXYzB）VisualBasicvisualbasicC）the=thereD）IntegerInt13.（13）执行以下程序段a$=Visual Basic Programmingb$=C+C$=UCase（Left$（a$,7） & b$ & Right$（a$,12）后,变量C$的值为A）Visual BASIC ProgrammingB）VISUAL C+ ProgrammingC）Visual C+ Pro

3、grammingD）VISUAL BASIC Programming14.（14）下列叙述中正确的是A）MsgBox语句的返回值是一个整数B）执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C）MsgBox语句的第一个参数不能省略D）如果省略MsgBox语句的第三个参数（Title）,则信息框的标题为空15.（15）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1）,程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A）Private Sub Text1_Change（）Label1.Capti

4、on=str（Len（Text1.Text）End SubB）Private Sub Text1_Click（）C）Private Sub Text1_Change（）Label1.Caption=Text1.TextD）Private Sub Label1_Change（）16.（16）在窗体上画两个单选按钮（名称分别为Option1,Option2,标题分别为宋体和黑体）,1个复选框（名称为Check1,标题为粗体）和1个文本框（名称为Text1,Text属性为改变文字字体），窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是A）O

5、ption1.Value=FalseCheck1.Value=TrueB）Option1.Value=TrueCheck1.Value=0C）Option2.Value=FalseCheck1.Value=2D）Option1.Value=TrueCheck1.Value=117.（17）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click（）c=1234c1=Trim（Str（c）Fori=1To4Print_NextEndSub程序运行后,单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为A

6、）Right（c1,i）B）Left（c1,i）C）Mid（c1,i,1）D）Mid（c1,i,1）18.（18）假定有一下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Print i*j 的执行次数是A）15B）16C）17D）1819.（19）在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：x=0DoWhilex50x=（x+2）*（x+3）n=n+1LoopText1.Text=Str（n）Text2.Text=Str（x）程序运行后，单击命令按钮，在两个文本框中显示

7、的值分别为A）1和0B）2和72C）3和50D）4和16820.（20）阅读程序：a=0Forj=1To15a=a+jMod3NextjPrinta程序运行后，单击窗体，输出结果是A）105B）1C）120D）1521.（21）以下说法中正确的是A）当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B）因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C）若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同D）在KeyPress事件过程中，KeyAscii参数可以省略22.（22）语句

8、Dim a（-3 To 4,3 To 6） As Integer 定义的数组的元素个数是A）18B）28C）21D）3223.（23）在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBase1Dimaa=Array（1,2,3,4）j=1Fori=4To1Step-1s=s+a（i）*jj=j*10NextiPrints程序运行后，单击命令按钮，其输出结果是A）4321B）1234C）34D）1224.（24）假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是A）数组中每个命令按钮的名称（Name属性）均为Command1B）若未做

9、修改,数组中每个命令按钮的大小都一样C）数组中各个命令按钮使用同一个Click事件过程D）数组中每个命令按钮的Index属性值都相同25.（25）在窗体上画一个命令按钮，名称为Command1,然后编写如下代码：OptionBase0DimA1（4）AsInteger,A2（4）AsIntegerFork=0To2A1（k+1）=InputBox（请输入一个整数）A2（3-k）=A1（k+1）NextkPrintA2（k）程序运行后,单击命令按钮，在输入对话框中依次输入2、4、6则输出结果为A）0C）2D）326.（26）以下关于函数过程的叙述中，正确的是A）函数过程形参的类型与函数返回值的类

10、型没有关系B）在函数过程中，过程的返回值可以有多个C）当数组作为函数过程的参数是，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型27.（27）在窗体上画两个标签按钮和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：PrivateSubfunc（LAsLabel）L.Caption=1234PrivateSubForm_Load（）Label1.Caption=ABCDELabel2.Caption=10a=Val（Label2.Caption）Callfunc（Label1）Label2.Caption=a

11、程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A）ABCD和10B）1234和100C）ABCD和100D）1234和1028.（28）在窗体上画一个命令按钮（名称为Command1），并编写如下代码:Functionfun1（ByValaAsInteger,bAsInteger）AsIntegerDimtAsIntegert=a-bb=t+afun1=t+bEndFunctionDimxAsIntegerx=10Printfun1（fun1（x,（fun1（x,x-1）,x-1）程序运行后，单击命令按钮，输出结果是B）0C）11D）2129.（29）以下关于过程及过程参数的描述中，

12、错误的是A）过程的参数可以是控件名称B）调用过程时使用的实参的个数应与过程形参的个数相同C）只有函数过程能够将过程中处理的信息返回到调用程序中D）窗体可以作为过程的参数30.（30）设有如下通用过程PublicFunctionFun（xStrAsString）AsStringDimtStrAsString,strLAsIntegertStr=strL=Len（xStr）i=strL/2DoWhilei 【7】 ThenImage1.Left = 【8】 - 100End If上一题【7】的答案是上一题【8】的答案是（7）设窗体上有一个名称为Combo1的组合框,并有以下程序：Private S

13、ub Combo1_KeyPress（KeyAscii As Integer）If 【9】 = 13 ThenFor k = 0 To Combo1.ListCount - 1If Combo1.Text = Combo1.List（k） ThenCombo1.Text = Exit ForNext kIf Combo1.Text ThenCombo1.AddItem 【10】程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。上一题【10】的答案是（8）在当前目录下有一个名为myf

14、ile.txt的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空Dimch$,asciiAsIntegerOpenFor【11】As#1WhileNotEOF（1）LineInput#1,chascii=toascii（【12】）PrintasciiWendClose#1PrivateFunctiontoascii（mystr$）AsIntegern=0Fork=1To【13】n=n+Asc（Mid（mystr,k,1）Nextktoascii=n上一题【12】的答案是上一题【13】的答案是（9）本程序实现文本加密。先给定序列:a1,a2,.,an,它们的取值范围是1n,而且互不相同。加密算法是:把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前面n个字符加密,后面的字符不变；若原文本长度小于n，则在后面补字符*使文本长度为n后再加密。例如：若给定序列a1,a2,.a7分别为2,5,3,7,6,1,4当文本为“PRO