计算机二级vb考试题库app,全国计算机二级vb考试题库

全国计算机二级vb考试题库

(9)设有如下程序：

Private Sub Form_Click()

Dim n As Integer, s As Integer

n = 8

s = 0

Do

s = s + n

n = n - 1

Loop While n > 0

Print s

End Sub

以上程序的功能是 【10】 。程序运行后，单击窗体，输出结果为 【11】 。

(10)设有如下程序：

Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer, i As Integer

arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

Min = 【12】

For i = 2 To 8

If arr1(i) < Min Then 【13】

Next

Print "最小值是："; Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

(11)在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

Private Sub Form_Click()

Open "d: estsmtext1.txt" For Input As #1

Do While Not 【14】

Line Input #1, aspect$

whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)

Loop

Text1.Text = whole$

Close #1

Open "d: estsmtext2.txt" For Output As #1

Print #1, 【15】

Close #1

End Sub

上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

【参考答案】

选择题：

1---5 DBDCA

6---10 CBDDC

11--15 ABBCD

16--20 CDABD

21--25 ABCDB

26--30 CDBBA

31--35 CDDDA

填空题：

【1】19

【2】 对象

【3】 程序调试

【4】 关系

【5】 算法

【6】12345.68

【7】VB程序设计

【8】 VB Programming

【9】 10

【10】 求1-8的和

【11】36

【12】 arr1(1)

【13】min=arr1(i)

【14】 EOF(1)

【15】text1.text(或whole$)