国家二级VB机试(数据类型及运算)模拟试卷25
国家二级VB机试（数据类型及运算）模拟试卷25(总分：68.00，做题时间：90分钟)一、选择题(总题数：34，分数：68.00)1.执行以下程序段aS=”Visual Basic Programming”：b$=”C++”c$：UCase(LeR$(a$，7))&b$&RightS(aS，12) 变量c$的值为（分数：2.00）A.Visual BASIC ProgrammingB.VISUAL C++Programming √C.Visual C++ProgrammingD.VISUAL BASIC Programming解析：解析：本题考查的考点是有关取子串函数的。
在VB中有3种取子串函数：Left函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。
UCase函数用于把字符串转换成大写表示。
2.可以产生30~50(含30和50)之间的随机整数的表达式是（分数：2.00）A.Int(Rnd*21+30) √B.Int(Rnd*20+30)C.Int(Rnd*50．Rnd*30)D.Int(Rnd*30+50)解析：解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。
为了生成某个指定范围内的随机整数，可使用以下公式： Int((upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。
本题中upperbound为50，lowerbound为30。
3.能够产生1到50之间(含1和50)随机整数的表达式是（分数：2.00）A.Int(Rnd*51)B.Int(Rnd(50)+1)C.Int(Rnd*50)D.Int(Rnd*50+1) √解析：解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。
为了生成某个指定范围内的随机整数，可使用以下公式： Int((upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。
本题中upperbound为50，lowerbound为1。
4.表达式Sgn(0．25)的值是（分数：2.00）A.1B.0C.1 √D.0．5解析：解析：Sgn函数会返回参数的符号，如果参数为正数返回1，为负数返回．1。
5.要计算x的平方根并放入变量y，正确的语句是（分数：2.00）A.y=Exp(x)B.y=Sgn(x)C.y=Int(x)D.y=Sqr(x) √解析：解析：。
Exp函数是求指数函数；Sgn函数是求符号函数；Int函数是取整函数，平方根函数(Sqr)可以返回N的算术平方根，N必须大于或等于0。
6.Print Right(”VB Programming”，2)语句的输出结果是（分数：2.00）A.VBB.ProgrammingC.ng √D.2解析：解析：Right()函数用于取出已有字符串最右边指定个数的字符串，本题中取出的是最后两位字符。
7.以下表达式与Int(3．5)的值相同的是（分数：2.00）A.CInt(3．5)B.Val(3．5)C.Fix(3．5) √D.Abs(3．5)解析：解析：Int函数的作用是去返回不大于参数的最大整数，例如Int(4．6)=4，Int(一4．6)=一5；Fix 函数的作用是去掉参数的小数部分只保留整数部分，在参数为正数的时候，Int函数和Fix函数的返回值是相同的。
8.以下能对正实数d的第3位小数四舍五入的表达式是（分数：2.00）A.0．01*Int(d+0．005)B.0．01*Int(100*(d+0．005)) √C.0．01*Int(100*(d+0．05))D.0．01*Int(d+0．05)解析：解析：Int函数会返回不大于参数的最大整数，要对第3位小数进行四舍五入，需要先将d自加0．005，这样如果第三位小数大于5就将进位；接下来乘以100，这样第3位小数就变成了第一位小数，对其做Int 函数留下整数部分，最终再乘以0．01得到结果。
9.语句：Print Asc(Chr$(Mid$(”98765432”，4，2)))的输出是（分数：2.00）A.65 √B.AC.8765D.W解析：解析：Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾，本题中是从第4位取长度为2的子串即“65”。
Chr函数可以将ASCII码转成对应的字符，ASC函数将字符转换成对应的ASCII码。
10.语句：Print Int(Rnd*5+20)的输出不可能是（分数：2.00）A.20B.22C.24D.25 √解析：解析：随机数函数Rnd用于产生一个小于1但大于或等于0的随机数值，Int函数会返回不大于参数的最大整数值。
由于Rnd函数的值不能到达1，所以整个表达式也不可能到达25。
11.产生100以内(不含100)2位随机整数的Visual Basic表达式是（分数：2.00）A.Int(Rnd(1)*91)+10B.Int(Rnd(1)*90)+10 √C.Int(Rnd(1)*91)+11D.Int(Rnd(1)*90)+11解析：解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。
为了生成某个指定范围内的随机整数，可使用以下公式： Int((upperbound—10werbound+1)*Rnd+lowerbound) ，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。
12.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load() Text1．Text=””：Text2．Text=""：Text1．SetFocus End Sub Private Sub Text1_Change()Text2．Text=Mid(Text1．Text，6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是（分数：2.00）A.ChinaBeijingB.ChinaC.Beijing √D.ChinaB解析：解析：Mid(string，stan[，lengthl)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，如果stan参数超过了string参数中字符的数目，将返回空字符串，如果省略或length参数超过文本的字符数(包括start处的字符)，将返回字符串中从stan到字符串结束的所有字符。
本题程序运行后，当在文本框Textl中输入字符数达到或超过6时，在文本框Text2中将随即显示输入字符中从第6个字符开始的所有字符，全部字符输入后，文本框Text2中的内容为“Beijing”。
13.设有如下通用过程：Public Function Fun(xStr As String)As String Dim tSt]r As String．strL As Integer tStr="" strL=Len(xStr)i=1 Do While i＜=strL／2 tStr=tStr&Mid(xStr,i，1)&Mid(xStr,strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。
然后编写如下的事件过程：Private Sub Commandl_Click() Dim S1 As String S1=”abcdef”：Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.ABCDEFB.abcdefC.AFBECD √D.DEFABC解析：解析：本题通用过程的功能是：从字符串变量xStr值的左右两端同时开始，由外向里每次取出两个字符(左右各一个)，组成一个新的字符串。
本题程序运行后，当调用通用过程函数Fun后，返回值应为“afbecd”，转换为大写后在文本框中的显示结果为“AFBECD”。
14.假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) sl=LCase(Mid(S，i，1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String．Str2 As String Str1=InputBox(”请输入一个字符串”)：Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（分数：2.00）A.ABCDEFGB.abcdefgC.GFEDCBAD.gfedcba √解析：解析：本题考查的考点是有关取子串函数的。
本题也比较简单，循环次数就是字符串的长度，每次都在第i位取一个字母转换成小写，最后倒序连接起来，注意每次都把新取得的字符连接到s1的前面，所以为倒序连接。
15.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click() c=1234 c1=Trim(Str(c)) For i=l To 4 Print_______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示内容：112 123 1234则在横线处应填入的内容为（分数：2.00）A.Right(c1,i)B.Left(c1，i) √C.Mid(c1，i，1)D.Mid(c1，i，i)解析：解析：本题考查的考点是有关取子串函数的。
在VB中有3种取子串函数：Left函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。
本题中显示出来的结果可以看出，第一行是字符串的第一个字符，第二行是字符串的前两个字符……所以每行输出的应该是字符串的前i位。
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
国家二级VB机试(选择题)模拟试卷365(题后含答案及解析)
国家二级VB机试（选择题）模拟试卷365(题后含答案及解析) 题型有：1.1．算法的空间复杂度是指( )。
A．算法在执行过程中所需要的计算机存储空间B．算法所处理的数据量C．算法程序中的语句或指令条数D．算法在执行过程中所需要的临时工作单元数正确答案：A解析：算法的空间复杂度是指算法在执行过程中所需要的内存空间。
所以选择A。
知识模块：数据结构与算法2．如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是( )。
A．它的Y1、Y2属性的值相等B．它的X1、X2属性的值相等C．它的X1、Y1属性的值分别与X2、Y2属性的值相等D．它的X1、X2属性的值分别与Y1、Y2属性的值相等正确答案：B解析：Line控件有四个属性分别为X1、Y1，X2、Y2，分别代表两个端点的横坐标和纵坐标，如果显示为一条纵线，则意味着两个端点的横坐标一致，即X1＝X2。
3．数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是A．DB包含DBS和DBMSB．DBMS包含DB和DBSC．DBS包含DB和DBMSD．没有任何关系正确答案：C解析：数据库系统(DatabaSe system简称DBS)由下列几个部分组成：数据库(DB)、数据库管理系统(DBMS)、数据库管理员(人员)、系统平台之一——硬件平台(硬件)、系统平台之二——软件平台(软件)。
这五个部分构成了一个以数据库为核心的完整的运行实体，称为数据库系统。
其中DB(DataBase)即数据库，是统一管理的相关数据的集合；DBMs(Database Management System)即数据库管理系统，是位于用户与操作系统之间的一层数掘管理软件，为用户或应用程序提供访问DB的方法。
知识模块：数据库设计基础4．设窗体名称为frmTest，为了在程序代码中将窗体的标题改为“等级考试”，其代码应该是( )。
A．frmTest．Caption=“等级考试”B．Forml．Caption=“等级考试”C．frmTest．Title=“等级考试”D．Forml．Title=“等级考试”正确答案：A解析：窗体的标题设置方法：窗体名．Caption=新设置的标题名，由题意知，选项A正确。
国家二级VB机试(数据类型及运算)模拟试卷17(题后含答案及解析)
国家二级VB机试（数据类型及运算）模拟试卷17(题后含答案及解析)题型有：1. 选择题选择题1．若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是A．IntegerB．StringC．BooleanD．Variant正确答案：D解析：本题考查的考点是有关变量定义的。
在VB中有一种特殊的类型：变体类型(Variant)，这种类型可以包含大部分其它类型的数据。
在VB中，如果没有显式声明变量的类型，则该变量默认为变体型(variant)。
知识模块：数据类型及运算2．为把圆周率的近似值3．14159存放在变量pi中，应该把变量pi定义为A．Dim pi As IntegerB．Dim pi(7)As IntegerC．Dim pi As SingleD．Dim pi As Long正确答案：C解析：本题考查的考点是有关VB中的数据类型的。
VB提供了很多种数据类型，其中能接受小数值的有单精度型Single和双精度型Double。
知识模块：数据类型及运算3．若在窗体模块的声明部分声明了如下自定义类型和数组Private Type recCode As Integer：Caption As StringEnd Type Dim arr(5)As rec 则下面的输出语句中正确的是A．Print arr．Code(2)，arr．Caption(2)B．Print art．Code，arr．CaptionC．Print art(2)．Code,arr(2)．CaptionD．Print Code(2)，Caption(2)正确答案：C解析：在标准模块中可以声明自定义类型，该类型由Type关键字声明，在声明中要定义类型的所有域。
若用自定义类型声明一个变量，则该变量拥有若干域，取得每个域的值需要用“变量名.域名”的形式。
作为一个自定义类型的数组，首先要取出某个数组元素然后才能访问该元素的某个域，所以要想访问arr(2)的域，需要使用arr(2)．Code和arr(2)．Caption。
国家二级VB机试(选择题)模拟试卷374(题后含答案及解析)
国家二级VB机试（选择题）模拟试卷374(题后含答案及解析) 题型有：1.1．两个或两个以上模块之间关联的紧密程度称为A．耦合度B．内聚度C．复杂度D．数据传输特性正确答案：A解析：模块的独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系较少且接口简单。
衡量软件的模块独立性使用：内聚性和耦合性两个定性度量标准。
内聚性是对一个模块内部各个元素彼此结合的紧密程度的度量；耦合性是对模块间互相连接的紧密程度的度量。
一般较优秀的软件设计，应尽量做到高内聚、低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。
知识模块：软件工程基础2．语句：Print Int(Rnd*5+20)的输出不可能是A．20B．22C．24D．25正确答案：D解析：本题考查Rnd随机函数和Int取整函数，Rnd随机函数的范围为[0，1)，Int函数的作用是返回不大于自变量的最大整数，当Rnd*5后变为[0，5)，再加上20变为[20，25)，经取整后变为[20，24]，所以本题的正确答案是选项D。
知识模块：Visual Basic程序设计基础3．以下不属于单选按钮的属性是A．CaptionB．NameC．MinD．Enabled正确答案：C解析：单选按钮具有Name、Caption、Enabled、Value等属性，但是Min属性只有滚动条才具备，代表滚动条的最小值。
知识模块：常用标准控件4．假定在图片框Picturel中装入了一个图片，在程序运行中，为了清除该图片(注意，清除图片，而不是删除图片框)，应采用的正确方法是A．单击图片框，然后按Del键B．执行语句Picturel．Picture=LoadPicture(““)C．执行语句Picturel．Picture=““D．执行语句：Picturel．Cls正确答案：B解析：用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。
国家二级VB机试(上机操作)模拟试卷258(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷258(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在考生文件夹下的“samp1．accdb”数据库中建立表“tTeacher”，表结构如表2．1所示。
(2)根据“tTeacher”表的结构，判断并设置主键。
(3)设置“工作时间”字段的有效性规则：只能输入上一年度5月1日以前(含)的日期(规定：本年度年号必须用函数获取)。
(4)将“在职否”字段的默认值设置为真值，设置“邮箱密码”字段的输入掩码，使输入的密码显示勾6位星号(密码)，设置“联系电话”字段的输入掩码，要求前4位为“010－”，后8位为数字。
(5)将“性别”字段值的输入设置为“男”、“女”列表选择。
(6)在“tTeacher”表中输入以下两条记录，如表2．2所示。
正确答案：(1)【操作步骤】在设计视图中新建表，按题干中的表建立新字段。
在第一行“字段名称”列输入“编号”，单击“数据类型”，在“字段大小”行输入“5”。
按上述操作设置其他字段。
单击快速访问工具栏中的“保存”按钮，将表另存为“tTeacher”。
如图3．48所示。
(2)【操作步骤】在表“tTeachet”设计视图中右键单击“编号”字段行，在弹出的快捷菜单中选择“主键”命令。
如图3．49所示。
(3)【操作步骤】在表“tTeacher”设计视图中单击“工作时间”字段行任一处，在“有效性规则”行输入“＜＝DateSerial(Year(Date( ))－1，5，1)”。
如图3．50所示。
(4)【操作步骤】步骤1：在表“tTeacher”设计视图中单击“在职否”字段行任一处，在“默认值”行输入“True”，单击快速访问工具栏中的“保存”按钮。
如图3．51所示。
步骤2：单击“邮箱密码”字段行任一处，单击“输入掩码”行的右侧生成器按钮，弹出“输入掩码向导”对话框，在列表中选择“密码”行，单击“完成”按钮。
国家二级VB机试(数据类型及运算)模拟试卷20(题后含答案及解析)
国家二级VB机试（数据类型及运算）模拟试卷20(题后含答案及解析)题型有：1. 选择题选择题1．设有如下通用过程：Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr=““：strL=Len(xStr) i=strL／2 Do While i ＜=strL tStr=tStr&Mid(xStr，i+1，1) i=i+1 Loop Fun=tStr&tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。
然后编写如下的事件过程：Private Sub Commandl_Click( ) Dim S1 As String S1=“ABCDEF”：Text1．Text=LCase(Fun(S1))End Sub 程序运行后，单击命令按钮，文本框中显示的是A．ABCDEFB．abcdefC．defdefD．defabc正确答案：C解析：本题考查的考点是有关字符串处理的。
本题中过程中的循环变量i的初值是字符串长度的一半，终值是字符串长度，结合循环中的取子串函数，整个循环的功能是取得字符串的后一半放入tstr中，然后连接上自身的值返回到调用程序。
知识模块：数据类型及运算2．窗体上有一个名称为Text1的文本框，一个名称为Commandl的命令按钮。
窗体文件的程序如下：Private Type x Private Sub Commandl_Click( ) a As Integer：b As Integer Dim y As xEnd Type y．a=InputBox(““) Ify．a ＼2=y．a／2 Theny．b=y．a*y．a Elsey．b=Fix(y．a／2) End If Text1．Text=y．b End Sub对以上程序，下列叙述中错误的是A．x是用户定义的类型B．InputBox函数弹出的对话框中没有提示信息C．若输入的是偶数，y．b的值为该偶数的平方D．Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回正确答案：D解析：本题考查的考点是有关自定义类型和Fix函数的。
国家二级VB机试(数据类型及运算)模拟试卷26
国家二级VB机试（数据类型及运算）模拟试卷26(总分：66.00，做题时间：90分钟)一、选择题(总题数：33，分数：66.00)1.设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（分数：2.00）A.Print A=x+y √B.Print”A=”；x+yC.Print”A=”=Str(x+y)D.Print”A=”x+y解析：解析：本题考查Print函数和表达式。
题目要求输出“A=10”，因此需要首先输出字符串“A=”，选项A错误。
2.下列表达式中不能判断x的是否为偶数的是（分数：2.00）A.x／2=Int(x／2)B.x Mod 2=0C.Fix(x／2)=x／2D.x＼2=0 √解析：解析：本题考查运算符和表达式。
选项A)是比较x／2和Int(x／2)足否相等，如果x为偶数，两者相抵，否则不相等；选项B)，使用Mod求余，并判断余数是否为0；选项C)使用判断x／2和Fix(x／2)是否相等，如果x是偶数，两者相等，否则不相等；选项D)使用“＼”整除运算，并判断结果是否为0，x 为1时x＼2结果为0，显然这种方法判断偶数不可行。
3.如设置了文本框的属性PasswordChar=”$”，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是（分数：2.00）A.8个“$”√B.1个“$”C.8个“*”D.无任何内容解析：解析：本题考查文本框的属性设置。
设置了文本框的PasswordChar属性不为””时，文本框的字符显示都用设置字符替代。
4.为了计算1+3+5…+99的值，某人编程如下： k=1：s=0 while k<=99 k=k+2：s=s+k wend print s 在调试时发现运行结果有错误，需要修改。
下列错误原因和修改方案中正确的是（分数：2.00）A.While…Wend循环语句错误，应改为For k=1 To 99…Net kB.循环天剑错误，应改为While k>99C.循环前的赋值语句k=1错误，应改为k=0D.循环中两条赋值语句的顺序错误，应改为s=s+k：k=k+2 √解析：解析：本题考查循环。
国家二级VB机试数据类型及运算模拟试卷16_真题-无答案
国家二级VB机试（数据类型及运算）模拟试卷16(总分64,考试时间90分钟)1. 选择题1. 设x是小于10的非负数。
对此陈述，以下正确的VB表达式是A. 0<=x<10B. 0<=x<10C. x>0 and x<10D. x>0 or x<=102. 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。
窗体文件的程序如下：Private Type x a As Integer：b As Integer End Type Private Sub Command1_Click() Dim y As x y．a=InputBox("") If y．a＼2=y．a／2 Then y．b=y．a*y．a Else y．b=Fix(y．a／2) End If Text1．Text=y．b End Sub 对以上程序，下列叙述中错误的是A. x是用户定义的类型B. InputBox函数弹出的对话框中没有提示信息C. 若输入的是偶数，y．b的值为该偶数的平方D. Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回3. 窗体上有两个名称分别为Text1、Text2的文本框。
Text1的KeyUp事件过程如下：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim c As String c=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是A. AB. aC. CD. c4. 窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。
运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：Private Sub Command1_Click() Text2．Text=UCase(Mid(Text1．Text，5，4)) End Sub 在Text2中显示的是A. formB. listC. FORMD. LIST5. 窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click() m=-3．6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为A. -4B. -3C. 3D. 3．66. 设有如下程序：Private Sub Form．Click() num=InputBox("请输入一个实数")：p=InStr(num，"") Ifp>0 Then Print Mid(num，p+1) Else Print"END" End If End Sub 运行程序，单击窗体，根据提示输入一个数值。
国家二级(VB)机试模拟试卷200(题后含答案及解析)
国家二级（VB）机试模拟试卷200(题后含答案及解析) 题型有：1. 选择题 2. 基本操作题 3. 简单应用题 4. 综合应用题选择题1．不能正确表示条件”两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是( )。
A．A*B=0 and A+B＜＞0B．(A=0 or B=0)and(A＜＞0 or B＜＞0)C．not(A=0 And B=0)and(A=0 or B=0)D．A*B=0 and(A=0 or B=0)正确答案：D解析：考查VB的表达式。
选项A中由于A*B=0，因此A为0或者B为0，或者A、B同时为O，而A+B＜＞，恰好排除了A、B同时为0的条件，因此符合条件描述；选项B中恰好描述了条件中的问题；选项C描述的A、B同时为0的取非，也就是同时为0不成立，然后再加上A或者B其中一个为0，符合条件描述；选项D中前面条件和选项A相同，但是后面不能排除二者同时为0的条件。
2．下面是求最大公约数的函数的首部( )。
Function fun(By Val x As Integer，ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是A．Print fun(8，12)，fun(12，16)，fun(16，8)B．Print fun(8，12，16)C．print fun(8，12)，fun(12，16)，fun(16)D．Print fun(8，fun(12，16))正确答案：D解析：函数过程在传递参数时，形参表与实参表中对应变量的名字不必相同，但参数的个数、对应位置和对应类型必须相同。
本题中的fun函数有两个参数，任何对于fun的调用都必须传递实参为两个整型值；选项A)中得到3个结果，显然不是我们所需要的；选项D)中的函数嵌套调用能够求出3个数的最大公约数。
3．设已经在窗体上添加了一个通用对话框控件CommonDialogl，以下语句正确的是( )。
国家二级VB机试(上机操作)模拟试卷256(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷256(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．在考生文件夹下有一个数据库文件“samp1．accdb”。
在数据库文件中已经建立了一个表对象“学生基本情况”。
根据以下操作要求，完成各种操作。
(1)将“学生基本情况”表名称改为“tStud”。
(2)设置“身份ID”字段为主键；并设置“身份ID”字段的相应属性，使该字段在数据表视图中的显示标题为“身份证”。
(3)将“姓名”字段设置为有重复索引。
(4)在“家长身份证号”和“语文”两字段间增加一个字段，名称为“电话”，类型为文本型，大小为12。
(5)将新增“电话”字段的输入掩码设置为“010－********”的形式。
其中，“010－”部分自动输出，后八位为0—9的数字显示。
(6)在数据表视图中将隐藏的“编号”字段重新显示出来。
正确答案：(1)【操作步骤】打开考生文件夹下的数据库文件samp1．aeedb．单击“表”对象，在“学生基本情况”表上右击，在弹出的快捷菜单中选择“重命名”命令，然后输入“tstud”。
如图3．1所示。
(2)【操作步骤】选中表“tStud”，右击，选择“设计视图”命令进入设计视图，在“身份ID”字段上右击，然后选择“主键”命令，将“身份ID”设置为主键，在下面“标题”栏中输入“身份证”。
如图3．2所示。
(3)【操作步骤】选择“姓名”字段，在“索引”栏后的下拉列表中选择“有(有重复)”。
如图3．3所示。
(4)【操作步骤】选择“语文”字段，右击，在弹出的快捷菜单中选择“插入行”命令，输入“电话”字段，在后面的“数据类型”中选择“文本”，在下面的“字段大小”中输入12。
如图3．4所示。
(5)【操作步骤】选择“电话”字段，在“字段属性”下的“输入掩码”行输入“”010．”00000000”，如图3．5所示。
单击快速访问工具栏中的“保存”按钮，关闭设计视图界面。