vb复习指导：填空题--程序填空题

A.-1 B.0 C.False D.True 49.下列4个逻辑表达式中，其逻辑值为“真”的是（ ） A.Not(3+4<4+6) B.2>1And3<2 C.1>2 or2>3 D.Not(1>2)

50.表达式Val(“.123E2”)的值是（ ） A.123 B.12.3 C.0 D.123eCD 51.如果是一个正实数。对x的第二位小数四舍五入的表达式是( ) A.0.1*Int(x+0.005) B.0.1*Int(10*(x+0.005)) C0.1*Int(100*(x+0.5)) D.0.1*Int(X+0.5) 52.可以同时删除字符串前部和尾部的函数是( ) A.Ltrim B.Rtrim C.Trim D.Mid 53.表达式Int(-27.8)+Sgn(37.8)的值是( )

A.10 B.-27 C.-18 D.-16 54.表达式Int(5*Rnd+1)*Int(5*Rnd-1)的值的范围是( ) A.[0,15] B.[-1,15] C.[-4,15] D.[-5,15]

55.函数InStr(\程序设计教程\程序)的值是( ) A.11 B.13 C.15 D.16

61.用print方法在forml窗体中显示出4个#号的正确代码为（ ） A. Debug.print.“####” B.print ####

C.Forml print #### D.Forml.print“####” 62.print方法可以在（ ）对象上输出数据。

A．桌面 B.标题栏 C.窗体 D.状态栏 63.代码窗口中的注释行使用的符号标注是（ ） A.单引号 B.双引号 C.斜线 D.星形号 64.如果A为整数且|A|>=10,则显示“ok”，否则显示“Error”，表示这个条件的单行格式If语句是（ ）。

A.If Int（A）=A And Sqr（A）=Then Print“ok”Eise Print“Error” B.If fix“”=A And Abs“A”=10 Ten Pint“ok”Eie Pint“Error”

C.If Int“A”=A And(A>=10,A<=-10)Then Print“ok”Else Print“Error” D.If Fix“A”=A And>=10 And A<=-10Then Print“ok”Else Print“Error”

65.在窗体上画一个命令按钮Commandi和一个文本框Texl，然后编写如下程序：private sub command_click（） a =inputbox（“请输入日期（1~31）”） t =“旅游景点：”_

& IIf（a>0 And a<=10,“龙门石窟”，“”）_ -& IIf（a>10 nd a<=20,“少林寺”，““）_ -& IIf（a>20 And=30，“绿博园”，“”） Text1.Text = t End sub

程序运行后，如果从键盘输入5，则在文本框中显示的内容是（ ） A旅游景点：龙门石窟 B.旅游景点：龙门石窟绿博园 C.旅游景点：绿博园 D.旅游景点：少林寺

66．设a=6，则执行x=Lif（a>5，-1，0）后X的值为（ ） A.5 B.6 C.0 D.-1

67.关于多行结构条件语句的执行过程，正确的说法是（ ） A.各个条件所对应的语句块中，一定有一个语句块被执行

B.找到条件为true的第一个入口，便从此开始执行其后的所有语句块 C若有多个条件为true，则它们对应的语句块都不被执行

D.多行选择结构中的语句块，有可能任何一个语句块都不被执行 68.在Visusl Basic中，下列控制结构不能够嵌套的是（ ） A.选择控制结构 B.多分支控制结构 C.for循环控制结构 D.Do循环控制结构

69.窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private sub commandl_click（） Dim a

a=Array（1，2，3，4，5，6，7） For K =2 To 5 S =s+a（k） Next Print s End sub

运行程序后，单击命令按钮，输出结果是（ ） A.10 B.14 C.18 D.120 70.下列程序段的执行结果为（ ） Privte sub form_load（） Dim a（3，3） For M =1 To 3 - For N=To 3

- If N =M OR N=3-M+1 then - a（M,N）=0 - Else

- A（M,N）=1 - End If - Next N - Next M

- For M=1To3 - For N=To 3

- Print a（M,N）,

- Next N - End sub

A.1 0 0 B.1 1 1 0 1 0 1 1 1 0 0 1 1 1 1 C. 0 0 0 D.0 1 0 0 0 0 1 0 1 0 0 0 0 1 0

71.下列关于For…Next语句的说法正确的是（ ） A.循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只为正数 C.初值必须小于终值 D.初值必须大于终值

72.设计了如下程序，用于计算机并输出7！（阶乘）： Private sub commandl_click（） t =0

for k =7 to 2 step -1 t = t * k next print t End sub

执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是（ ） A. 把t=0改为t=1

B. 把for k=7 to 2 step-1 改为for k7 to 1 step 1 C. 把for k=7 to 2 step-1 改为for k =1 to 7 D. 把next改为next k

73.在窗体上画两个文本框text1和text2，一个命令按钮comml，请阅读以下程序段： Private sub commandl_click（） X=0

Do until x>=30

X=（x+2）*（x+4） N=n+1 Loop

Text1.text2=str（n） Text1.text2=str（x） End sub

运行程序后，单击命令按钮，在两个文本框中显示的值分别为（ ） A．1和0 B.2和240 C.2和120 D.4和168 74.使用ReDim Preserve语句，可以（ ）

A.改变数组最后一维的大小 B.改变数组第一维的大小

C.改变数组所有维的大小 D.改变数组维数和所有维的大小 75.语句Dim Arr（-3 to 5） As Integer定义的数组的元素个数是（ ） A.6 B.7 C.8 D.9

76.语句Dim Arr（3 to5，-2 to 2）定义的数组的元素个数是（ ）

A.20 B.12 C.15 D.24

77.没有数组定义语句：Dim a（5）As Integer，并设Listl为列表框控件。下列给数组元素赋值的语句错误的是（ ）

A.a（4）=3 B.a（4）=inputbox（“输入一个数”）

D.a （4）=Listl.listndex D.a=Array（1，2，3，4，5，6） ７８．下列哪个声明的数组不是动态数组（ ） A.Dim x（） B.Dim x（8）

C.ReDim x（8） D.ReDim preserve x（8）

79.使用数组明语句Dim Y(1 To 12)As Integer后，以下说法正确的是（ ） Ａ．Ｙ数组中的所有元素均为０ Ｂ．Ｙ数组中的所有元素值不确定

Ｃ．Ｙ数组中的所有元素均为Ｅｍｐｔｙ

Ｄ．运行Ｅｒａｓｅ Ｙ后，Ｙ数组中的所有元素均为ｅｍｐｔｙ

80.用复制、粘贴的方法建立了一个命令按钮数组commandl，以下说法错误的是（ ） A.该控件数组的所有caption属性均为commandl

B.在代码中访问其中的命令按钮时只需要使用名称comml C.该控件数组的大小相同

D.该命令按钮数组共享相同的事件过程

81.使用Array函数给某X赋值时，X必须是（ ） Ａ．已经生命的动态数组 Ｂ．Ｖａｒｉａｎｔ类型变量

Ｃ．已经声明的动态数组且该动态数组的类型为Ｖａｒｉａｎｔ Ｄ．已经声明的动态数组

８２．可以通过（ ）的方法输出一个二维数组中的各个元素 Ａ．引用数组中的两个下标 Ｂ．将数组名赋值给变量 Ｃ．通过引用数组的一个下标 Ｄ．以上都不正确

８３．假定建立一个名为ｃｏｍｍａｎｄｌ的命令按钮数组，则下列说法中错误的是（ ） Ａ．数组中每个命令按钮的名称（名称属性）均为ｃｏｍｍａｎｄｌ Ｂ．数组中的每个命令按钮的标题（ｃａｐｔｉｏｎ属性）都一样 Ｃ．数组中所有命令按钮可以使用同一个事件过程

Ｄ．用名称ｃｏｍｍａｎｄｌ（下标）可以访问数组中的每个命令按钮 ８４．在窗体上放置１个文本框，然后对其进行复制粘贴，没粘贴出现对话框时，单击“是”按钮，粘贴３次，共４个文本框，适当调整位置，在放置一个命令按钮，然后编写如下事件过程：

Option Base 1

Priv ate Sub Comman1_Click() Dim I As Integer

For I = 1 To 4

Text1(i) = Text1(i). Index Next i End Sub

程序运行后，单击命令按钮，4个文本框中显示的内容分别为（ ） A.0123 B.1234 C.0000 D.出错息息 85.以下（）是VB合法的数组元素表示。（ ）