在窗体上绘制一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是

 如果存在如下过程：

Private Function FMax(a( )As Integer)

Dim First As Integer，Last As Integer，i As Integer

First=LBound(A)Last=UBound(A)Max=a(First)

For i=First To Last

If a(i) ＞ Max Then Max=a(i)

Next i

FMax=Max

End Function

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1 Click( )

ReDim m(1 To 4) As Integer

m(1)=20：m(2)=30：m(3)=50：m(4)=100

c=FMax(m)

Print c

End Sub

单击命令按钮，其输出结果为【 】。

数据库管理系统常见的数据模型有层次模型、网状模型和【 】3种。

下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1.Text=""

Open "smtext1.txt"【 】As【 】

Do While【 】

Input #2，inData

Text1.Text=Text1.Text & inData

Loop

Close #2

End Sub

下列说法错误的是

• A．资源文件的扩展名为.res
• B．一个窗体对应一个窗体文件
• C．Visual Basic中的一个工程只包含一个窗体
• D．Visual Basic中一个工程最多可以包含255个窗体

表达式5Mod3+3\5*2的值是(  )。

• A．0
• B．2
• C．4
• D．6

下列程序运行后，在窗体上打印的结果是【 】。

 Private Sub test(a， b，c)

   a = a + 1： b = b + 2：C = C + 3

 End Sub

 Private Sub Command1 Click()

   x = 1：v = 2：z = 3

   Call test(x，y + 3， (z))

   Print "Main:"；x；y；z

 End Sub

以下描述中错误的是

• A．窗体的标题通过其Caption属性设置
• B．窗体的名称(Name属性)可以在运行期间修改
• C．窗体的背景图形通过其Picture属性设置
• D．窗体最小化时的图标通过其Icon属性设置

关于Move方法，下列叙述正确的是

• A．用来移动窗体和控件，不能改变其大小
• B．“对象”是窗体时，移动基准以屏幕左边界和上边界为准
• C．Move方法移动除计时器以外的所有标准控件
• D．“对象”是控件时，移动基准以屏幕左边界和上边界为准

在窗体上绘制一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是

• A．PriVate Sub List1_Click() Labell.CaptiOn=List.ListIndex End Sub
• B．PriVate Sub List1_Click() Labell.Name=listl.ListIndex End Sub
• C．Private Sub List1_Click() Labell.Name=Listl.Text End Sub
• D．Private Sub List1_Click() Labell.Caption=List1.Text End Sub

窗体上有一个名为Commandl的命令按钮，并有如下程序：

  Private Sub Command_Click()

  Dim a As Integer，b As Integer

• a=8 
• b=12    Print Fun(a，b)；a；b
• End Sub    Private Function Fun(ByVal a As Integer，b As Integer)As Integer
• a=a Mod 5
• b=b＼5
• Fun=a 
• End Function    程序运行时，单击命令按钮，则输出结果是
• A．3 3 2
• B．3 8 2
• C．8 8 12