如下二维数组声明语句，________B____正确。

　A、Dim a(n，n) As Integer B、Dim a(3，4) As Integer C、Dim a(34) As Integer D、Dim a[3，4] As Integer 下列语句可以用来正确地声明一个动态数组的是___B__。

　A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n) D、Dim A(,) As Integer 如下二维数组声明语句，______C__正确。

　A、Dim a(34) As Integer B、Dim a(n，n) As Integer C、Dim a(3，4) As Integer D、Dim a[3，4] As Integer 下列语句中的语句可以用来正确地声明一个动态数组。A A、Dim A() As Integer B、Private A(n) As Integer C、Dim A(,) As Integer D、Dim A(1 to n) 下面关于动态数组的叙述中，不正确的是__B________。

　A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组 B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值 C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组 D、在重新定义动态数组时，变量不可以出现在维界表达式中 若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用__D______关键字在该过程中定义局部变量。

　A、Dim B、Private C、Public D、Static 在调用Sub或Function过程时，采用___A___传送相应过程的变量名、数组名、常数或表达式。

　A、实际参数 B、形式参数 C、对象参数 D、数组参数 给出下列程序代码，在单击命令按钮时的输出结果是___B_____。

　Private Sub Command1_Click ( ) Dim x As Integer, y As Integer x=1:y=1 For n=1 TO 3 z=FirstFunc (x, y)

　Print n, z , Next n End Sub Private Function FirstFunc (x As Integer, y As Integer) As Integer Dim n As Integer Do While n <= 4 x=x+y n=n+1 Loop FirstFunc=x End Function A、1 2 3 4 5 6 B、1 6 2 11 3 16 C、2 1 3 1 3 3 D、2 6 1 3 11 16 要想在过程调用后返回两个结果，下面的过程定义语句合法的是___D____。

　A、Sub Procl ( ByVal n , ByVal m) B、Sub Procl ( ByVal n , m) C、Sub Procl ( n , ByVal m) D、Sub Procl ( n , m) 窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为_____B_____。

　Private Sub fun( ) Static a As Integer a=a+2 Print a; End Sub Private Sub Command1_Click( ) Dim m As Integer For m=1 To 3 Call fun Next m End Sub A、0 0 0 B、2 4 6 C、2 2 2 D、2 4 8 下列程序 Private Sub Command1_Click( )

　a=InputBox("请输入")

　b=InputBox("请输入")

　Print a+b End Sub 运行时输入3和4输出的结果是 __D___ 。

　A、7

　B、3+4 C、出错 D、34 在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click()

　Dim k As Integer

　Dim entry As String, item As String

　entry = "EDCBA"

　For k = Len(entry) To 1 Step -1

　 item = LCase(Mid(entry, k, 1)) & k

　 List1.AddItem item

　Next k End Sub 运行此程序，单击窗体,列表框第4行为__A___。

　A、d2 B、b2 C、b4 D、d3 执行以下语句后，a的值为__A___。

　Dim a As Integer a=1 Do Until a=100

　 a=a+2

　Loop

　A、溢出

　B、100

　C、99

　D、101 计算机算法可以分为两大类：一类是___D__算法，另一类是_____算法。

　A、计算机辅助设计、财务 B、排序、查找 C、步骤管理、通信 D、数值计算、非数值计算 下列程序段的执行结果为_C____。

　x = Int((69 - 60) * Rnd + 60) Select Case x

　Case Is >= 90

　Print "优秀"

　Case 80 To 89

　Print "良好"

　Case 60 To 79

　Print "合格"

　Case Else

　 Print "不合格" End Select A、优秀 B、良好 C、合格 D、不合格 表达式Len("123程序设计ABC")的值是____A________。

　A、10 B、20 C、17 D、14 下列说法正确的是__A______。

　A、a$="Visual",b$="Basic",则a$ & b$ 和a$ + b$结果都是"VisualBasic"

　B、(7-3<=4) Xor (1>-1) Or (7=5)的结果是True C、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是True D、(Not True Or True) And (True Or False) 的结果是False 表达式16/4-2^5*8/4 MOD 5/2的值为_______D_____。

　A、2 B、14 C、20 D、4 数学关系3<=x<10表示成正确的VB表达式为_____C_______。

　A、x>=3 OR x<10 B、3<=x AND <10 C、3<=x AND x<10 D、3<=x<0 下列没有类型说明符的变量是_____B____。

　A、货币型 B、日期型 C、字符串型 D、长整型 要使文本框能显示多行文字，则需设定它的_C____属性为True。

　A、PasswordChar B、Seleted C、MultiLine D、Caption 决定控件上文字的字体、字型、大小、效果的属性是_B____。

　A、Name

　B、Font

　C、Text

　D、Caption 以下不属于标签属性的是___B__。

　A、Index

　B、Value C、Caption D、Font 在设计列表框时，若实现输入多行文字的目的，应使用__C___键实现文本的换行。

　A、Alt+Enter B、Enter C、Ctrl+Enter D、Ctrl+Shift+Enter 要使一个标签透明且具有边框，则应___B__。

　A、将其BackStyle属性设置为1，BorderStyle属性设置为1 B、将其BackStyle属性设置为0，BorderStyle属性设置为1 C、将其BackStyle属性设置为0，BorderStyle属性设置为0 D、将其 BackStyle 属性设置为 1，BorderStyle 属性设置为 0 一只白色的足球踢进球门，则白色、足球、踢、进球门是___D_____。

　A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法

　D、属性、对象、事件、方法 以下关于事件的说法，正确的是_B____。

　A、用户可以根据需要建立新的事件 B、事件是由系统预先定义好的，能够被对象识别的动作 C、不同类型的对象所能识别的事件一定不相同 D、事件的名称是可以改变的，由用户预先定义 VisualBasic集成的主窗口中包括__D___。

　A、标题栏 B、工具栏 C、菜单栏 D、以上三者均有 能被对象所识别的动作与可执行的活动分别称为对象的__C___。

　A、方法、事件 B、过程、方法 C、事件、方法 D、事件、属性 VisualBasic是用于开发__B___环境下的应用程序的工具。

　A、UNIX B、Windows C、DOS D、DOS 和 Windows [ [ 题目] ] 计算公式1 217151311     nS 的和,当第 n 项的值<10 -5 时结束。

　【参考代码】

　 sum = 0

　n = 1

　 x = 1

　 Do While x >= 0.0001

　 sum = sum + x

　 n = n + 1

　 x = 1 / (2 * n - 1)

　 Loop

　 Text1.Text = sum

　===============

　【考生代码】

　sum = 0

　 n = 1

　 x = 1

　 Do While x >= 0.0001

　 sum = sum + x

　 n = n + 1

　 x = 1 / (2 * n - 1)

　 Loop

　 Text1.Text = sum [ [ 题目] ] 编写程序，求出给定正整数的所有质因子，并将质因子全部输出。如：342有质因子2，3，3，19。

　【编程要求】

　【参考代码】

　 Do

　 If x Mod i = 0 Then

　 n = n + 1

　 ReDim Preserve a(n)

　 a(n) = i

　 x = x \ i

　 i = 2

　 Else

　 i = i + 1

　 End If

　 Loop Until x = 1

　===============

　【考生代码】

　Do

　 If x Mod i = 0 Then

　 n = n + 1

　ReDim Preserve a(n)

　a(n) = i

　x = x \ i

　i = 2

　 Else

　i = i + 1

　 End If

　 Loop Until x = 1

　[ [ 题目] ] 顺序查找：给定一个数，在一个两位随机数数组中查找与此数相同的元素（该数组大小为10个元素）。

　如果找到与给定数值相同的元素后输出该元素在数组中的位置；找不到则输出相应的提示信息。

　[ [ 编程要求] ]

　【参考代码】

　 Dim i As Integer

　 L = UBound(b)

　 For i = 1 To L

　 If b(i) = n Then

　 search = i

　 Exit Function

　 End If

　 Next i

　 search = -1

　===============

　【考生代码】

　Dim i As Integer L = UBound(b) For i = 1 To L

　 If b(i) = n Then

　search = i

　Exit Function

　 End If Next i search = -1