VB程序练习资料

如下二维数组声明语句，________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