VB考试真题二 含答案

C、Form1.Temp D、Form_Click.Temp

34、当形参用简单变量表示而且不需要返回值时，相应的实参可以是( D )。（1分） A、表达式 B、数组元素 C、变量或常量

D、常量、变量、数组元素、函数、表达式

35、在窗体的“通用”段声明变量时，不能使用( D )关键字。（1分） A、Dim B、Static C、Public D、Private

36、以下叙述中，错误的叙述是( C )。（1分）

A、打开一个工程时，系统自动装入与该工程有关的窗体、标准模块等文件 B、保存Visual Basic程序时，应分别保存窗体文件及工程文件 C、Visual Basic应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发 37、在Show方法中，“模式”的默认值为( )。（1分） A、0 B、1 C、2 D、Null

38、下列对于顺序文件的描述中，正确的描述是( C )。（1分） A、每个记录长度相同

B、可以随机访问其中的记录 C、必须按照顺序访问

D、可以向文件中插入记录 39、使用 Write #1, \语句后，打开该被写入的文件，则文件中的内容是( B )。（1分）

A、\ B、abc def 123 C、\ D、abc,def,123

40、设有语句Open \，则以下错误的叙述是( D )。（1分） A、该语句在C盘根目录下建立一个名为Test.Dat的文件 B、该语句建立的文件的文件号为1

C、执行该语句后，就可以通过 Print # 语句向文件Test.Dat中写入信息 D、执行该语句后，就可以通过 Input # 语句从文件Test.Dat中读出信息

二、填空题（5道小题，共30分） 1、* 求T=2×4×6×8×?×30 * 程序段如下：

T = 1

For I = 2 To 30 T = T * I Next I

Print \乘积为: \

（6分）

________________________________________

2、* 利用数组求裴波那契数列1,1,2,3,5,...的前20项。 * 程序段如下：

Private Sub Command启动_Click() Dim a(20) As Integer, i As Integer a(1) = 1: a(2) = 1 Print a(1); a(2); For i = 3 To 20

a(i)= a(i - 1) + a(i - 2) Print a(i); Next i: Print End Sub

（6分）

________________________________________

3、* 程序功能是实现矩阵转置，即将M×N的矩阵的行和列互换。 * 如将下列矩阵A转换为B

┏ ┓ ┏ ┓ ┃1 2┃ ┃1 3 5 ┃

A = ┃3 4┃ B = ┃ ┃ ┃5 6┃ ┃2 4 6 ┃ ┗ ┛ ┗ ┛

* 程序代码如下： Option Base 1

Private Sub Form_Click() Dim A(3, 2),B(2, 3) For I = 1 To 3 For J = 1 To 2

A(I, J) = (I - 1) * 2 + J Print A(I, J); Next J Print

Next I

For I = 1 To 2 For J = 1 To 3

B(I, J) = (J-1)*2+I Print B(I, J); Next J Print Next I End Sub

（6分）

________________________________________

4、* 设计一个用于求一维数组中的最小值的子过程。 * 程序代码如下：

Private Sub min(s())

Dim i As Integer, a As Integer, b As Integer a = LBound(s) b = UBound(s) m = s(a) For i = a To b

If s(i) < m Then m = s(i) End If Next i Print m End Sub

（6分）

________________________________________

5、* 若在D:盘根目录下有文本文件zhengda3.txt，统计该文件的记录个数。 * 程序段如下：

Private Sub Form_Load()

Open \ n = 0 Do

Input #1, a n = n + 1

Loop Until EOF(1) Print \

Close #1 End Sub

（6分）

________________________________________

三、编程题（3道小题，选作2道，每道15分，共30分）

1、* 编写一个计算某数的平方、绝对值的平方根、立方和绝对值的立方根程序，如图 K_613.jpg 所示。 * 界面要求：

* 使用文本框，命令按钮完成。 * 运行要求：

* 1、在第一个文本框中输入任意整数；

* 2、求出该数的平方、绝对值的平方根、立方和绝对值的立方根，在文本框中显示; * 3、一个命令按钮用来清除文本框的文字，另一个命令按钮完成计算。 * （此题要求上载窗体文件，不要求填写程序运行结果）

（下载文件“k_613.jpg”）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （15分）

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

________________________________________ 2、* 编写程序：

* 利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A， * 找出其中小于平均值的奇数并统计其个数。

（15分）

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

________________________________________ 3、* 编写程序：

* 计算下面级数前n项中（n=50）奇数项的和，并输出该级数最后两项之差的绝对值。 1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…

（15分）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序