题目内容

表1 （● 对和表2进行 58）关系运算可以得到表3。

查看答案

搜索结果不匹配？点我反馈

更多问题

● 因特网中的协议应该满足规定的层次关系，下面的选项中能正确表示协议层次和对应关系的是（27）。

● 从A村通过B 村再到C 村已有一条通信线路。 A村与B 村间通信线路的可靠度为0.90，B村与C 村间通信线路的可靠度为0.70。现在计划在A 村与C村之间再直接建一条新的通信线路（见下图）。试问，这条新建通信线路的可靠度至少应该为（59）时，才使A 村与C 村之间的通信可靠度能达到0.90以上。
（59）

A. 0.27
B. 0.37
C. 0.63
D. 0.73

（26）在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令按钮。运行后的窗体外观如图所示。
设有如下的类型和变量声明：
Private Type Person
name As String8
major As String20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给 Person 类型的变量 p，当单击“保存”按钮时，能够正确地把变量中的
数据写入随机文件 Test2.dat 中的程序段是（）。
A）Open "c:\Test2.dat" For Output As #1
Put #1, 1, p
Close #1
B）Open "c:\Test2.dat" For Random As #1
Get #1, 1, p
Close #1
C）Open "c:\Test2.dat" For Random As #1 Len=Len(p)
Put #1, 1, p
Close #1
D）Open "c:\Test2.dat" For Random As #1 Len=Len(p)
Get #1, 1, p
Close #1

（35 ）窗体如图 1 所示。要求程序运行时，在文本框 Text1 中输入一个姓氏，单击 “ 删除 ” 按钮（名称为 Command1 ），则可删除列表框 List1 中所有该姓氏的项目。若编写以下程序来实现此功能：
Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.RemoveItem k
End If
Next k
End Sub
在调试时发现，如输入 “ 陈 ” ，可以正确删除所有姓 “ 陈 ” 的项目，但输入 “ 刘 ” ，则只删除了 “ 刘邦 ” 、 “ 刘备 ” 2 项，结果如图 2 所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把
For k=0 To List1.ListCount-1 改为
A ） For k=List1.ListCount-1 To 0 Step -1
B ） For k=0 To List1.ListCount
C ） For k=1 To List1.ListCount-1
D ） For k=1 To List1.ListCount