(31)有如下程序段：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print G(A)
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为
A)1 2 3
B)2 3 4
C)4 5 6
D)1 4 6
正确答案: C
(32)单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer)As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function
A)0
B)1
C)3
D)5
正确答案: B
(33)有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m): Print P;
P=Pid(k, m): Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m ＼ 2
End Function
单击命令按钮后，输出结果为
A)2 2
B)4 4
C)55
D)6 6
正确答案: D
(34)下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是
A)Function CT(ByVal a As Integer)
If a Mod 2=0 Then Return 0 ElseReturn 1End ifEnd Function
B)Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=0
Else
CT=1
End if End Function
C)Function CT(ByVal a As Integer)
If a Mod 2=0 ThenCT=1 ElseCT=0End ifEnd Function
D)Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 1
Else
Return 0
End if
End Function
考生答案: 正确答案: B
(35)在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A)4
B)6
C)8
D)10
正确答案: C
二 、填空题
(1)在算法正确的前提下，评价一个算法的两个标准是 【1】 。
正确答案: 1.(时间复杂度和空间复杂度)
(2)将代数式 转换成程序设计中的表达式为 【2】 。
正确答案: 1.(SQR(x^2+y^2)/(a+b))
(3)软件危机出现于60年代末，为了解决软件危机，人们提出了 【3】 的原理来设计软件，这就是软件工程诞生的基础。
正确答案: 1.(软件工程学)
(4) 【4】 是数据库设计的核心。
正确答案: 1.(数据模型)
(5)在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。
正确答案: 1.(关系)
(6)有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click()
x=Val(Text1.Text)
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
正确答案: 1.(x Mod 4 = 1 And x Mod 5 = 2)2.(Text1.SetFocus)
(7)已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim 【8】
For i=65 To 90
pp(i)=0
Next
x$=InputBox("Enter a string", x$)
x$=UCase$(x$)
For i=1 To 【9】
n=Asc(Mid$(x$, i, 1))
If n >=65 And n <=90 Then
【10】
End If
Next i
For i=65 To 90
If pp(i)> 0 Then
Print Chr$(i); pp(i)
End If
Next
正确答案: 1.(pp(65 To 90))2.(Len(x＄))3.(pp(n)= pp(n）+ 1)
上一页 [1] [2] [3] [4] [5]
责任编辑：小草
