2017年计算机二级考试VB模拟试题三

 如果存在如下过程：

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

下列说法错误的是

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

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

 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

以下描述中错误的是

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

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

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

  Private Sub Command_Click()

  Dim a As Integer，b As Integer