试题2

假设通用声明段中有语句Option base 1，过程中定义数组：Dim a(6) as Integer，则以下引用数组元素的语句中正确的是____a(n + 3) = a(n+1) + a(n+2)___。

执行下面的程序，输出结果是_____18 30______。 Option Explicit

Private Sub Form_Click()

Dim M As Integer,N As Integer M=1:N=2

Print M+N+F(M,N) M=2:N=1

Print F(M,N)+F(M,N); End Sub

Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y

End Function

VB中可以使用自己定义的Sub过程和Function过程，___Function________ 过程称为函数，这种过程可以返回值。

若在应用程序的标准模块.窗体模块和过程Sub1的说明部分，分别用\"Public G As Integer\"、\"Private G As Integer\"和\"Dim G As Integer\"语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句\"G=3596\"，则该语句是给在____过程Sub1 _______说明部分定义的变量G赋值。

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是_如果工程中含有Sub Main过程，则程序一定首先执行该过程_______。

下面关于顺序文件的描述正确的是__数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示_________。

以下关于文件的叙述中，错误的是__随机文件中记录的长度是随机的_________。

在下面的程序段中，循环体将执行_0_____次。 For v=10 To 20 Step -2 print v Next v

执行以下语句后，k的值为__2.45 4 ___。 Dim i As Single

For i = 0.45 To 2 Step 0.5

k = k + 1 Next i Print i;k

下面程序段的运行结果为___1 2 6 24 _____。 For i=1 To 4 n=1

For j=1 To I n=n*j Next j Print n； Next i

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click()

 A = Inputbox(\"Enter An Integer\")  B = Inputbox(\"Enter An Integer\")  Text1.Text = B + A End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_564 ______。

若执行定义语句Dim a As Integer，以下给a赋值的语句中，错误的是__a = 2 * 32760 \\ 3____。

有如下程序：

Private Sub Command1_Click() x = InputBox(\"input value\") Select Case x Case Is > 0 y = x + 1 Case Is = 0 y = x + 2 Case Else

y = x + 3 End Select Print x; y End Sub

假设运行时从键盘上输入-5，输出结果是__-5 -2 _____。

运行下面程序，如果输入85，则输出结果是_i = 3 ____。 Dim a As Integer, i As Integer a = InputBox(\"input a:\")

If a > 60 Then i = 1 If a > 70 Then i = 2 If a > 80 Then i = 3 If a > 90 Then i = 4 Print \"i=\"; i

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is < 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是10 ____。

在菜单过程中使用的事件是利用鼠标__单击 ____菜单条来实现的。

在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1.Label2，标题分别为空白和\"共有文件\"的标签。编写程序，使得驱动器列表框与目录列表框.目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。能够正确实现上述功能的程序是:

Private Sub Dir1_Change() File1.Path = Dir1.Path

Label1.Caption = File1.ListCount End Sub

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive

Label1.Caption = File1.ListCount End Sub

在窗体上画一个名称为CommonDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click()

CommonDialog1.FileName = \"\"

CommonDialog1.Filter = \"all file|*.*|(*.DoC）|*.Doc|(*.Txt)|*.Txt\" CommonDialog1.FilterIndex = 2

CommonDialog1.DialogTitle = \"VBTest\" CommonDialog1.Action = 1 End Sub

对于这个程序，以下叙述中错误的是____在该对话框中指定的默认文件类型为文本框（*.Txt）__ _____。

下面表达式中，__Exp（-3.5） ___的运算结果与其他三个不同。

以下关于窗体的描述中，错误的是__执行Unload Form1语句后，窗体Form1消失，但仍在内存中______。

如果编写的过程要被多个窗体及其对象调用，应将这些过程放在___标准模块________中。

下面程序段的运行结果为___溢出 _____。 Dim s As Integer, i As Integer i = 1: s = 1 Do

i = i + s

Loop Until s > 10 Print i, s

当一个复选框被选中时，它的Value属性的值是___1____。

以下叙述中错误的是__如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见_____。

设组合框Combo1中有3个项目，则以下能删除最后一项的语句是_Combo1.Removeitem 2______。

填空题

在文本框Text1中输入一串字符，判别其是否是回文字符串。所谓回文字符串是指正读和反读都一样的字符串，比如ABBA、DEAED等就是回文字符串。 Private Sub Command1_Click()

Dim s As String, n As Integer, m As Integer s = Text1.Text n = 1

_______________ Do While n <= m

If Mid(s, n, 1) = Mid(s, m, 1) Then m = m - 1

_________ Else

Exit Do End If Loop

If _________ Then

Text2.Text = Text1.Text & \"是回文\" Else

Text2.Text = Text1.Text & \"不是回文\" End If End Sub

下面程序段中，在窗体上显示的结果为_____________。 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1

For k = 1 To 5 b = b * k

If b >= 15 Then Exit For Else

k = k + 1 End If Next k Print k, b End Sub

运行下面的程序，第二行显示结果是_____ 。 Private Sub Command1_Click() Dim a(5) As Integer For i = 1 To 5 a(i) = i Print a(i); Next i Print f a

For i = 1 To 5 Print a(i); Next i End Sub

Private Function f(b() As Integer) For i = LBound(b) To UBound(b) b(i) = b(i) + 1 Next i

End Function

运行下面的程序，当单击窗体时，窗体上显示的内容为__________。 Private Sub Test(x As Integer) x = x * 2 + 1 If x < 8 Then Call Test(x) End If

x = x * 2 + 1 Print x; End Sub

Private Sub Form_Click() Test 3 End Sub

以下程序的功能是随机生成20个100到200之间的正整数，输出其最大元素和其所在的位置，请按要求完善程序。

Private Sub Command1_Click()

Dim a(20) As Integer, i As Integer Dim max As Integer, maxi As Integer Randomize

For i = 1 To 20

a(i) =________ Print a(i); Next i Print

________ maxi = 1

For i = 2 To 20

If a(i) > max Then max = a(i) ________ End If Next

Print \"最大元素为\"; max; \"其所在的数组元素位置号为\"; maxi End Sub

第二行输出结果是______。

Private Sub Command1_Click() Dim a() As Integer

Dim n As Integer, i As Integer n = InputBox(\"input n:\") ReDim a(n)

For i = 1 To n a(i) = i Print a(i); Next i Print

ReDim a(10) For i =0 To 10 Print a(i); Next i End Sub

执行以下程序，单击命令按钮后，输出结果是______。 Private Sub Command1_Click() Dim a(10) As Integer Dim b

For i = 1 To 10 a(i) = i Next i

For Each b In a Print b; Next b End Sub

文件\"text.txt\"中的内容为 1，2，3 执行下列语句:

Open \"text.txt\" For Append As #1 Write #1，4，5，\"aaa\" Close #1

则text.txt中第一行内容为________。

运行如下程序段，输出结果为________。 Private Sub command1_click() a = 1: b = 2: c = 3

a= a + b: b = b + a: c = b + a If a <> 3 Or b <> 3 Then

a = b - a: b = c - a: c = b + a End If

Print a + b + c End Sub

运行如下程序后，输出结果为______。 a = 0

For j = 1 To 30 Step 2 a = a + j mod 5

Next j Print a

设用Function gcd(x As Integer, y As Integer)定义了一个求两个数的最大公约数的程序，点击窗体时，能在窗体上显示96和64的最大公约数，请补充程序。

Function Gcd(x As Integer, y As Integer) '定义函数求任意两个数的最大公约数 Do While y <> 0 r = x Mod y x = y y = r Loop Gcd = x End Function

Private Sub Form_Click()

Dim a As Integer, b As Integer a = 96: b = 64

___________'调用函数求两个数的最大公约数 Print \"Gcd=\"; x End Sub

执行下面程序段，如果运行时输入2，则在窗体上输出结果是______。 Dim x As Integer

x = InputBox(\"input x\") If x > 1 Then y = x + 2

ElseIf x < 5 Then y = x + 3

ElseIf x = 2 Then y = x End If Print y

运行以下程序，单击窗体后，如果依次输入20和40，则输出内容是________。 Private Sub Form_Click() Dim x As Integer

x = InputBox(\"请输入变量x的值\输入窗口\") y = InputBox(\"请输入变量y的值\输入窗口\") Print x + y End Sub

设有数组声明语句：Dim A(-1 To 2,-1 To 1) As Long，则数组A在内存中所占的字节数为______。

操作题

（1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完 整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号） 但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：

在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一 个命令按钮，名称为 C1，标题为\"复制\"。要求程序运行后，在列表框中 自动建立四个列表项，分别为\"Item1\"、\"Item2\"、\"Item3\"、\"Item4\" 如果选择列表框中的一项，则单击\"复制\"按钮时，可以把该项复制到文本 框中（如图所示）。

***********************************************************************

（2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完 整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号） 但不能修改其它部分。存盘时不得改变文件名和文件夹。 本题描述如下：

在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为\"体育\"、 \"音乐\"、\"美术\"，还有一个命令按钮，名称为C1，标题为\"显示\"。要

求程序运行后，如果选中某个复选框，则当单击\"显示\"命令按钮时，则显示 相应的信息。例如，如果选中\"体育\"和\"音乐\"复选框，则单击\"显示\"

命令按钮后，在窗体上显示\"我的爱好是体育音乐\"（如图所示）；而如果 选中\"体育\"、\"音乐\"和\"美术\"复选框，则单击\"显示\"按钮后，在窗 体上显示\"我的爱好是体育音乐美术\"。

1、该题考查考生对ListBox控件的使用，该控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox控件上添加滚动条。 语法： ListBox

MultiSelect属性：返回或设置一个值，该值指示是否能够在 FileListBox或ListBox控件中进行复选以及如何进行复选。在运行时是只读的。

2、CheckBox控件：组中可以使用CheckBox控件显示多项选择，从而可选择其中的一项或多项。可以通过对Value属性编程设置CheckBox的值。