2005年4月全国计算机等级考试二级VB考试题-在线考试系统

本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！

2005年4月全国计算机等级考试二级VB考试题

1、【填空题】
以下语句输出结果是。
Print Int(12345.6789 * 100 + 0.5) / 100 [每空2分]

答案： ["12345.68"]

2、【填空题】
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text = "VB程序设计"
End Sub
Private Sub Text1_Change()
Picture1.Print "VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是。 [每空2分]

答案： ["VB程序设计","VB Programming"]

3、【填空题】
阅读下面的程序：
Private Sub Form_Click()
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为。 [每空2分]

答案： ["10"]

4、【填空题】
设有如下程序：
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
以上程序的功能是。程序运行后，单击窗体，输出结果为。 [每空2分]

答案： ["求1-8的和","36"]

5、【填空题】
设有如下程序：
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 =
For i = 2 To 8
If arr1(i) < Min Then
Next
Print "最小值是："; Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。 [每空2分]

答案： ["arr1(1)","min=arr1(i)"]

6、【填空题】
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click()
Open "d:\test\smtext1.txt" For Input As #1
Do While Not
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
Loop
Text1.Text = whole$
Close #1
Open "d:\test\smtext2.txt" For Output As #1
Print #1,
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。 [每空2分]

答案： ["EOF(1)","text1.text(或whole$)"]

首页 1 2

共2页，共46个题库

咨询热线

400-886-8169

周一到周日 8:00-22:00

在线客服

点击咨询

微信公众号
微信小程序
安卓APP