试题五
阅读以下应用说明及Visual Basic 程序代码，将应填入_ （n） 处的字句写在答题纸的对应栏内。
[应用说明5.1]
本应用程序的窗体中有一个下拉式列表框（名称为Combo1）和两个文本框（名称分别为Txt1 和Txt2）。运行时，用户从Combo1 的列表中进行选择，程序就会将选中条目的内容以及编号(从0 开始)分别在文本框Txt1 和Txt2 中显示出来。
[程序代码5.1]
Private Sub Combo1_Click()
Txt1.Text = Combol. （1）
Txt2.Text = Combol. （2）
End Sub
(注：可供(2)处选择的选项：List, Index, ListIndex, ListCount, Number)
[应用说明5.2]
本应用程序的运行窗口如下图所示：
当用户在输入框（名为TxtIn）中输入数值数据，并从下拉式列表框（名为CmbOp）中选择所需的运算后，输出框（名为TxtOut）中就会显示运算的结果。用户单击“清除”按钮（名为CmdClear）后，输入框和输出框都清空。
开发该应用的部分程序代码如下：
[程序代码5.2]
Private Sub CmbOp_Click( )
Dim DataIn As Double, DataOut as Double
DataIn = （3）
Select Case （4）
Case "取整数部分"
DataOut = Int(DataIn)
Case "求平方根"
If DataIn<0 Then
MsgBox$ ("负数不能开平方！")
Else
DataOut = Sqr(DataIn)
End If
Case "取绝对值"
DataOut = Abs(DataIn)
（5）
TxtOut.Text = str$(DataOut)
End Sub
