试卷详情
-
二级VISUAL BASIC笔试-219
-
[填空题]下列程序的功能是:当发生窗体的单击事件时,求出3~1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数),并在窗体上把这两个和显示出来。
Private Sub Form_Click( )
Dim s1 As Long,s2 As Long
Dim i As Integer
For i=3 To 1000
If prime(i) Then
s1=s1+i
Else If 【11】 Then
s2=s2+i
End If
Next i
Print s1,s2
End Sub
Public Function prime(ByVal n As Integer)As Boolean
Dim j As Integer
For j=2 To n-1
If n Mod j=0 Then
Exit For
End If
Next j
If j=n Then
【12】
Else
prime=False
End If
End Function
-
[单项选择]在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。
Option Base 1
Private Sub fun (a( )As Integer,n As Integer)
For i=1 To 2
t=a(i):a(i)=a(5-i+1):a(5-i+1)=t
Next i
End Sub
Private Sub Command1_Click( )
Dim arr1(5)As Integer
For i=1 To 5
arr1(i)=i
Next i
Call fun(arr1,5)
Print arr1(1);arr1(2)
End Sub
A. 1 2
B. 2 1
C. 5 4
D. 4 5
-
[填空题]数据结构包括数据的逻辑结构、数据的 【4】 以及对数据的操作运算。
-
[单项选择]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:
Private Sub Command1_Click( )
Dim i As Integer,a As Integer
Do While i<20
Do While True
If i Mod 10=0 Then
Exit Do
Else
i=i-1
End If
Loop
i=i+11
a=a+i
Loop
Printa
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A. 21
B. 32
C. 33
D. 11
-
[填空题]下列程序实现的功能是:当在窗体上单击时,把C盘根目录下的文件a1.txt复制到 D盘,并取名为a2,txt。
Private Sub Form_Click( )
Dim Ch As String
Open "c:/a1.txt" For 【13】 As #10
Open "d:/a2.txt" For Output As #r20
Do While 【14】
Line Input #10,Ch
【15】
Loop
Close 10
Close 20
End Sub
-
[填空题]下列程序的功能是:单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组,然后把数组反序存放,再输出。
Option Base 1
Private Sub Form_Click( )
Dim a(20) As Integer,i As Integer
Dim t As Integer,j As Integer
Randomize
For i=1 To 20
a(i)=10+Int(90*Rnd)
Print a(i);
Next i
Print
i=1: 【9】
Do While i<j
t=a(i): 【10】 :a(i)=t
i=i+1:j=j-1
Loop
For i=1 To 20
Print a(i);
Next i
Print
End Sub
-
[填空题]实现算法所需的存储单元多少和算法的工作量大小分别称为算法的 【2】 。
-
[填空题]在数据库的三级模式体系结构中,模式与内模式之间的映像(模式/内模式)实现了数据库的 【5】 独立性。
-
[填空题]软件结构中各模块之间相互连接关系的一种度量常称为模块的 【3】 。
-
[填空题]设C盘根目录下有一文件名为“a1.txt”,若该文件还没有打开,现在要知道它的长度,可使用命令 【6】 。
-
[填空题]在一棵二叉树中,度为0的结点的个数为n0,度为2的结点的个数为n2,则有n0= 【1】 。
-
[单项选择]在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。
Private Sub fun3(x As Integer)
Static a As Integer
Dim b As Integer
a=a+3:b=b+3
a=a+x:b=b+x
Printa;b
End Sub
Private Sub Command1_Click( )
Dim k As Integer,m As Integer,n As Integer
k=2:m=1
Call fun3(k)
Call fun3(m)
End Sub
A. 5 5
B. 5 5
C. 5 5
D. 5 5
-
[单项选择]程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是( )。
Private Sub Command1_Click( )
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A. 20
B. 21
C. 22
D. 23