(31)单击命令按钮时,下列程序的执行结果是
Private Sub Book(x As Integer)
x=x * 2 + 1
If x < 6 Then
Call Book(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command2_Click()
Book 2
End Sub
A)23 47
B)10 36
C)22 44
D)24 50
正确答案: A
(32)有如下程序:
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k=4: m=1
p=PC(k, m): Print p;
p=PC(k, m): Print p
End Sub
Private Function PC(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=0: i=2
i=i + m + 1
m=i + a + b
PC=m
End Function
程序运行后,输出的结果为
A)4 6
B)6 6
C)8 8
D)10 12
正确答案: C
(33)有如下程序:
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5: b=4
Call S(a, b)
End Sub
Sub S(x As Single, y As Single)
t=x
x=t \ y
y=t Mod y
End Sub
在调用运行上述程序后,a和b的值分别为
A)0 0
B)1 1
C)2 2
D)1 2
正确答案: B
(34)在窗体上画一个命令按钮,然后编写下列程序:
Private Sub Command12_Click()
Tt 3
End Sub
Sub Tt(a As Integer)
Static x As Integer
x=x * a + 1
Print x;
End Sub
连续三次单击命令按钮,输出的结果是
A)1 5 8
B)1 4 13
C)3 7 4
D)2 4 8
正确答案: B
二 、填空题
(1)长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为 【1】 。
正确答案: 1.(n/2)
(2)用树结构表示实体类型及实体间联系的数据模型称为 【2】 。
正确答案: 1.(层次模型)
(3)类是一个支持集成的抽象数据类型,而对象是类的 【3】 。
正确答案: 1.(实例)
(4)数据流图的类型有 【4】 和事务型。
正确答案: 1.(变换型)
(5)当数据的物理结构(存储结构、存取方式等)改变时,不影响数据库的逻辑结构,从而不致引起应用程序的变化,这是指数据的 【5】 。
正确答案: 1.(物理独立性)
(6)在修改列表框内容时,RemoveItem方法的作用是 【6】 。
正确答案: 1.(用来删除列表中指定的项目)
(7)请填写下列空白,以实现运行后形成一个主对角线上元素值为1,其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s(6, 6)
For i=1 To 6
For j=1 To 6
If i=j Then
【7】
Else
【8】
End If
Print 【9】
Next j
Print
Next i
End Sub
正确答案: 1.(s(i, j)= 1)2.(s(i, j)= 0)3.(s(i, j))
(8)以下过程的作用是将26个小写字母逆序打印出来,请补充完整。
Sub Inverse()
For i=122 To 【10】
Print 【11】 ;
Next i
End Sub
正确答案: 1.(97 Step -1)2.(Chr$(i))
(9)在窗体上加上一个文本控件PCSTextBox,画一个命令按钮,当单击命令按钮的时候将显示"打开文件"对话框,设置该对话框只用于打开文本文件,然后在文本控件中显示打开的文件名。请填空。
Private Sub Command1_Click()
CommonDialog1.Filter= 【12】
CommonDialog1.ShowOpen
PCSTextBox.Text= 【13】
End Sub
正确答案: 1.("Text Files(*.txt)|*.txt")2.(CommonDialog1.FileName)
(10)随机文件使用Put语句写数据,使用 【14】 语句读数据。
正确答案: 1.(Get)
(11)下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt"For Output As #1
For i=1 To 8
【15】
Next i
Close #1
End Sub
正确答案: 1.(Print #1, i)
上一页 [1] [2] [3] [4] [5]
责任编辑:小草