全国计算机二级VISUAL BASIC笔试模拟138Word文件下载.docx

1、A.X+Y:之和 501B.X+Y之和 500.613C.X+Y: 501D.X+Y: 500613C解答 由于“Dim Sum As String*4”定义字符型变量Sum的长度为4个字节，因而Read语句读Sum变量时，仅读对应字符常量的前4个字符；Y%为整形变量，在Read-Data语句中，对应的数值常量经四舍五入后读入，所以选择C。3. 符号%是声明 _ 类型变量的类型定义符。A.VafiantB.IntegerC.SingleD.String解答 Integer数据类型Integer变量存储为16位（两个字节）的数值形式，其范围为-32768 32767。Integer的类型声明字符

2、是百分比符号（%）。4. 表达式26/4*3的值是 _ 。A.1B.2C.18.75D.18解答 运算符“*的优先级大于“”，所以先进行43的运算，再进行2612的运算，最后的结果是2，故应选B。5. Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是_。A.逗号B.空格C.冒号D.分号A解答 Print方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使用标准格式输出，各表达式的分隔符应是逗号。6. 图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是_。A.AutoSizeB.AppearanceC.AutoRedrawD.StretchD解答

3、 Stretch属性：选回/设置一个值，决定是否调整图形的大小以适应图像控件。 Appearance属性：返回/设置一个对象在运行时是否以3D效果显示。图像框控件无Autosize和AutoRedraw属性。7. 要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为 _。B.0C.TrueD.False解答 Style属性：该属性用于确定控件外观，只能在设计时确定。其取值可以设置为0 （标准形式）或1（复选框形）。8. CommonDialog控件可以显示 _ 种对话框。A.4种B.5种C.6种D.7种解答 CommonDialog控件有六种对话框，分别可以显示“颜色”、“字体”

4、、“帮助”、“打开”、“打印”和“保存”对话框。9. 为了暂时关闭计时器，应把计时器的某个属性设置为Falss，这个属性是 _ 。A.VisbleB.TimerC.IntervalD.Enabled解答 控件的Enabled属性表示其是否有效，如果想使某个控件失效，可以将它的Enabled属性设为False。10. 在窗体上有若干控件，其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 _。A.TabIndexB.TabStopC.EnabledD.Visible解答 Tabindex属性决定了按Tab键时，焦点在各个控件移动的顺序。TabStop用于返回或设置一个值，该值用

5、来指示是否能够使用TAB键来将焦点从一个对象移动到另一个对象。当设置此属性为False，则使用Tab键移到此控件时会自动跳到下一个TabIndex属性值的控件。 Enabled属性决定控件是否允许操作。Visible属性决定控件是否可见。11. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click（） Dim a As Integer，b As Integer，c As Integer If a=0 Then x=x-1 Else If b0 Then End If If c0 Then x=3 x=4 Print x End

6、 Sub 程序运行后，单击命令按钮，其输出结果为 _。A.34B.4C.35D.3解答 本题先定义了三个变量a、b和c，由于没有给它们赋值，因此他们的值都为0。接着执行后面的If语句，条件“a=0”为True，执行“x=x-1”后x的值为-1。接着执行第二个If语句，判断条件“c0”为False，执行Else后面的语句后x的值为4。所以最后输出x的值为4。12. 在窗体上画一个名称为Lisu的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 _。A.For i = 0 To List1. ListCount-1 Next B.For i = 0 To List1.Count-1

7、C.For i = 0 To List1. ListCountD.For i = 0 To List1. Count解答 ListCount的值表示列表框中项目的数量。ListCount-1表示列表中最后一项的序号。13. 编写如下程序： Private Sub Form Click（） a$=: 4321: b$=abcd For 3=1 To 4 Print Mid$（a$，5-j，1）+Nid$（b$, j, 1）； Next j Print 程序运行后，单击窗体，其输出结果为 _。A.alb2c3d4B.b4c3d2elC.eld2c3b4D.la2b3c4d解答 For循环共执行了4

8、次，每次用Mid$函数取出a$和b$的子串输出，a$是倒序，每次取一个字符，b$是顺序，每次取一个字符，连接在一起输出，输出表达式用分号结束，表示下一次接着输出，故输出结果为1a2b3c4d。14. 用下面的语句所定义的数组的元素个数是 Dim arr（3 To 6. -2 to 2） A.20B.12C.15D.24解答 本题中的二维数组的元素数目等于45共20个。15. 下列 _ 语句可以为动态数组分配实际元素个数。A.public语句B.static语句C.Dim语句D.ReDim语句解答 ReDim语句在过程级别电使用，用于为动态数组变量重新分配存储空间。16. 下面程序的功能是由随机

9、函数产生100个在200700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a（100） For j=1 To 100 a（j）=Int（Rnd*501+200）：Print a（j） Next j : p=1 : max= _ For j=2 To 100 If a（j）max Then max=a（j） : p=j Print The largest number is ; max The position is; p A.0B.a（1）C.1.7E+38D.1.7E-38解答 Rnd随机数函数产生一个在（0，1）区间的任意

10、一个单精度随机实数（不含0和1）。 Int函数返回不大于自变量的最大整数。数组a用来存放100个随机数。此程序的第一个For循环，其中Int（Rnd*501）产生0500的随机整数，Int（Rnd*501）+200产生200700的随机整数，该For循环的功能是产生100个在200700间的整数，并将它们存放在一维数组a中。程序的后半部分的功能是在数组中依照从第一个元素到最后一个元素的顺序，查找最大的一个数并将之赋值给max，并且找出最大数所在的位置，并把它赋值给p。max是当前查找的元素中的最大值，p记录该元素的位置，显然在下划线处应填写数组的第一个元素，即a（1）。17. 在Visual

11、Basic应用程序中，以下正确的描述是 _。A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和过程的调用均可以嵌套D.过程的定义和过程的调用均不能嵌套解答 过程必须分开定义，但是在调用的时候可以嵌套。18. 在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 _。 Function Fun（ByVal num As Long）As Long Dim k As Long k=1 num=Abs（num） Do While num k=k* （num Mod 10） num=num10 Lo

12、op fun=k End Function Dim n As Long Dim r As Long n=In put Box（请输入一个数） n=CLng（n） r=Fun（n） Print r B.24C.9D.28解答 此程序的功能是对输入的整数在fun函数中求出其每位数字的积，循环结构的作用是对传来的数据进行位数的分解，分别得到个位、十位、百位等的数字，再将其累乘到变量k中，并把k的值作为函数的返回值，因此234的三位数字相乘的结果是24。19. 假设在窗体Form1画一个通用对话框控件CommonDialogl，要建立“打开文件”对话框，为了使得该对话框的标题显示为“打开文件”，那么可以实现该功能的语句是 _。A.CommonDialogl.DialogTile= 打开文件B.CommonDialogl.DialogTile（ ）C.CommonDialogl.FileTile=D.CommonDialogl.FileTile（