VB第一次月考试题(8.1).docVIP

VB第一次月考试题（8.1）一、选择题(共50题，每题1分，共50分)1设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ ）的值为“假”。 Ax+a 0 AND y 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=0 AND x100 (d) 0=x OR xb and cd 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 F