VB第一次月考试题.doc

VB第一次月考试题（8.1）一、选择题(共50题，每题1分，共50分)1设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ ）的值为“假”。 Ax+a <= b-y B x > 0 AND y < 0 Ca = b OR x>y D x+y > a+b AND NOT (y < b)2表达式Int(Rnd*71)+10产生的随机整数范围是（ ）。 A（10，80） B（10，81） C10，80 D10，813函数Sgn(3.1416)的返回值是（ ）。 A-1 B0 C1 D以上都不对467890属于（ ）类型数据。 A整型 B单精度浮点数 C货币型 D长整型5下列变量名中正确的是（ ）。 A3S BPrint CSelect My Name DSelect_16下列赋值语句（ ）是有效的。 Asum = sum -sum Bx+2 = x + 2 Cx + y = sum Dlast = y / 07 设执行以下程序段时依次输入1、3、5，执行结果为_。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“请输入数据：") b(3-K) =a(K+1) Next K Print b(K) (a) 1 (b) 3 (c) 5 (d) 0 8 下列各项不是Visual Basic的基本数据类型的是_。 (a) Char (b) String (c) Integer (d) Double9 下列运算结果中，值最大的是 _。 (a) 34 (b) 3/4 (c) 4 mod 3 (d) 3 mod 410 表达式2*32+2*8/4+32的值为_。 (a) 64 (b) 31 (c) 49 (d) 2259) x是小于100的非负数，用vb表达式正确的是_。 (a) 0 (b) 0<=x<100 (c) x>=0 AND x<100 (d) 0<=x OR x<10011 Boolean 类型的数据由几个字节组成_。 (a) 1 (b) 2 (c) 3 (d) 4 12 在程序中使用日期型数据时，必须用符号_将日期型数据括起来。 a) b) $ c) % d) #13 如果有声明Dim a(5) As Integer，则该数组共占用_个字节内存。 a) 5 b) 6 c) 10 d) 1214 以下不属于Visual Basic系统的文件类型是 a) .frm b) .cls c) .bat d) .vbp15 下面的运算符中，优先级别最高的是_。 a) AND b) * c) = d) &16 Strc=Mid("Visual Basic",10,3)，则Strc的值_。 a) "Vis" b) "sua" c) "Bas" d) "sic"17 表达式Int(-17.8)+Sgn(17.8)的值是_。 a) 18 b) -17 c) -18 d) -1618 若x=5,y=6,则表达式x+y=11的值是_。 a) x+y=11 b) 11 c) True d) False19 以下（）程序段可以实施X、Y变量值的变换 a) Y=X：X=Y b) Z=X：Y=Z：X=Y c) Z=X：X=Y：Y=Z d) Z=X：W=Y：Y=Z：X=Y20 如果有声明Option base 1 dim arr(3,3),则该数组共有_个元素。 a) 16 b) 9 c) 4 d) 621表达式2+3*45-SIN（X+1）/2中最先进行的运算是 a) 45 b) 3*4 c) x+1 d) SIN22 下列不能打开属性窗口的操作是 。 A) 执行"视图"菜单中的"属性窗口"命令 B) 按F4键 C) 按Ctrl+T D) 单击工具栏上的"属性窗口"按钮 。23 下列可以打开立即窗口的操作是 。 A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G24 可以同时删除字符串前导和尾部空白的函数是 。 A) Ltrim B) Rtrim C) Trim D) Mid25 以下语句的输出结果是 。 Print Format $(32548.5,"000,000.00") A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.5026 执行以下程序段后，变量c$的值为 a$="Visual Basic Programing" b$="Quick" c$=b$ & UCase(Mid$(a$,7,6) & Right $ (a$,11) A) Visual BASIC Programing B) Quick Basic Programing C) QUICK Basic Programing D) Quick BASIC Programing27如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（ ）。A、0 B、-l C、True D、False28.下列数据类型不可能占8个字节的是（ ）。A. Date B. Currency C. String D. Integer29 以下叙述中错误的是（ ）。A、 一个工程中可以包含多个窗体文件B、 在一个窗体文件中用Private定义的通用过程能被其他窗体调用C、 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D、 全局变量必须在标准模块中定义30、关于Visual Basic程序的说法不正确的是（ ）。A、 一行可以写多条语句，语句之间用“：”隔开B、 一条语句可以写在多行，用“空格”加“_”作为续行标志C、 程序中的大小写字母不区分D、变量在使用之前必须先定义类型31、以下关于语句Option Base 1说法正确的是（ ）。A、Option Base语句可以出现在过程中 B、Option Base语句用于指定数组下标下界C、Option Base语句后面的数字只能是1D、Option Base语句对多维数组不起作用32、语句Print "The answer is:"20/4-2的结果为 。A、The answer is 20/4-2 B、The answer is 3C、The answer is "20/4-2" D、非法语句 33、窗体Form1的Name属性是Frm1,它的单击事件过程名是 。   A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click34、双击窗体中的对象后，Visual Basic将显示的窗口是 。 A.代码窗口 B工具箱 C项目（工程）窗口 D属性窗口35、当执行以下过程时，在窗体上将显示 。Private Sub Command1_Click( )Print "VB"Print "Hello! "Print "VB"End SubA、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB36 由（ ）关键字声明的局部变量在整个程序运行时一直存在。 (A) Dim(B) Public(C) Static(D) Private37 下列叙述错误的是（ ）。 (A) VB是可视化程序设计语言 (B) VB采用事件驱动编程机制 (C) VB是面向过程的程序设计语言 (D) VB应用程序可以以编译方式执行38 下列叙述错误是（ ）。 (A) 打开一个工程文件，系统自动装入与该工程有关砠 ?文件(B) 保存VB程序时，应分别保存窗体和工程文件 (C) 事件可以由用户触发，也可以由系统触发 (D) VB应用程序只能以解释方式执行39 下列叙述错误的是（ ）。 (A) VB应用程序没有明显的开始和结束语句(B) VB控件的所有属性值均可在属性窗口中设置(C) VB是事件驱动型可视化编程工具 (D) VB通过"工具"菜单的"选项"设置代码编辑窗口的字体大小40 当一个工程含有多个窗体时，它的启动窗体是（ ）。 (A) 正在编辑的窗体 (B) 最后一个添加的窗体(C) 第一个添加的窗体 (D) 在"工程属性"对话框中指定的窗体41 VB应用程序在（ ）模式下不能编辑代码和设计界面。 (A) 运行 (B) 中断 (C) 设计 (D) 以上均不能42 在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Commandl_Click() Dim a a = Array(1,2,3,4) j = 1 For i = 4 To Step -1 s = s + a(i)*j j =j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是 。 A) 4321 B) 12 C) 34 D) 123443 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click() For I=1 To 4 For J=0 To I Print Chr$(65+I)； Next J Print Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A) BB CCC DDDD EEEEEB) A BB CCC DDDDC) B CC DDD EEEED) AA BBB CCCC DDDDD44、运行以下程序后,输出结果为（C）。x%=1/4y%=12/4PRINT x; y（A） 0.25 3 （B） 0 2 （C） 0 3 （D） 1 345、与语句Dim abc#作用相同的语句是（A）。（A）Dim abc As Double （B）Dim abc As Long （C）Dim abc As String （D）Dim abc As Date46 下列程序段的执行结果为_。 Dim M(10),N(10) I=3 for T=1 To 5 M(T)=T：N(I)=2*I+T Next T print N(I);M(I) a) 3 11 b) 3 15 c) 11 3 d) 15 347 如下数组声明语句，正确的是_。 a) dim a3,4 as intiger b) dim a(3,4) as string c) dim a(n,n) as single d) dim a(3 4) as integer48 下列程序的运行结果为_。 For I=1 to 3 d(I)=2*I-1 print d(I) Next I a) 1 3 5 b) 2 4 6 c) 1 4 6 d) 5 6 749 以下程序的输出结果是 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+p(i)*2 Next i Print k End sub A) 33 B) 28 C) 35 D) 3750 在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码： Option Base 1 Private Sub Commandl_Click( ) Dim a(4,4) For i =1 To 4 For j =1 To 4 a(i,j) = (i-1)*3+j Next j Next i For i =3 To 4 For j =3 To 4 Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为 。 A) 6 9 B) 7 10 C) 8 11 D) 9 12 7 10 8 11 9 12 10 13二、填空题1 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是_。2 语句a%=3.14156:Print a%的输出结果是_。3 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。 If X_2=_ Then Print X4 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_。5 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_、模块变量和全局变量。6 A=7,B=3,C=4,则表达式 A MOD 3+B3/C5的值为_。7 表达式“12345”<>“12345”&“ABC”的值是_。8 表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是_。9 有一数组定义语句：dim M(-2 to 1) as string，该语句定义的数组M中包含_个元素。10若要强制变量必须先定义后使用，应使用的说明语句是_。11设有如下的Visual Basic表达式： 5 * x2 - 3 * x - 2 * Sin(a)/3 它相当于代数式 12 表达式：Mid("SHANGHAI",6,3)的值是_。13写出整数n能同时被13和17整除的Basic表达式 14在VB中，用户定义常量使用 语句，声明变量使用 语句。15.在序号表示法中，-3.2表示的日期为 16.若X#=3.14,则LEN(X)的值是 17.VB中，VAL(“-85AB”)+VAL(“28/01/98”)的值是 18.变量声明分为两种方法: 和 19.VB程序存储在模块中，模块分为标准模块、 和窗体模块.标准模块的后缀名为 。20产生15,39之间随机整数的VB表达式是 三、判断题1、通过改变属性窗口中的Name属性，来改变窗体的标题。2、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。3、工程文件的扩展名是 .vbg 。4. Visual Basic程序开发的特点是面向对象的事件驱动。5在同一程序行输入多条语句，语句之间用分号“;”分隔。 6. 在过程中只能使用一次ReDim语句来改变数组的大小。 7.VB具有“面向对象”的特性，对象可以被看做VB程序设计的核心8、VB程序设计中英文字母大小写的含义是相同的9、使用option base 语句可以对变量进行显式声明10、单精度型实数占4个字节的存储控件，最多可以表示7位有效数字11、INT(参数)函数的功能是求小于等于参数的最大整数12、AB?C、XY/Z是不合法的变量名13、在同一过程中，数组和简单变量不能同名14、某数组声明为字符型数组，它们的初始值为FALSE15、CHR(ASC(“U”)的值为85四、程序填空1、求数组中最大元素和所在下标及各元素之和。Dim max As Integer, imax As Integer, sum As Integer Dim i As Integer Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Val(InputBox("请输入a(" & i & ")的值(共10个)：") Next max = a(1) imax = 1： sum = a(1) For i = 2 To 10 If a(i) > max Then ： imax = i End If Next Print "最大值：a(" & imax & ")=" a(imax) Print "总和为:" sum2、将数组中的6个数，用选择法递增顺序排列。6个数的范围10，20Dim a(6) As Integer Dim k, n, i, j, t As Integer Randomize n = 6 For i = 1 To n Next For i = 1 To n - 1 For j = To n If a(i) > a(j) Then ： a(k) = a(i)： a(i) = t NextFor i=1 to n Print a(i);Next3、删除数组一个元素。设数组的元素为(2，4，6，8，10，11， 12，14，16)，删除其中的元素“11”。 Dim a(), i, k As Integer Print "插入前：" ReDim a(1 To 9) a = Array(2, 4, 6, 8, 10, 11, 12, 14, 16) For i = 1 To 9 Print a(i); Next For k = 1 To 9 If 11 = Then Exit For Next For i =k To 8 Next ReDim a(1 To 8) Print: Print Print "插入后：" For i = 1 To 8 Print a(i); Next