1】 【应用说明5.1】 本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。 【程序代码5.1】 Private Sub Combo1_Click() Txt1.Text = Combo1. (1) Txt2.Text = Combo1. (2) End Sub (注：可供(2)处选择的选项：List, Index, Listlndex, ListCount, Number) 【应用说明5.2】 本应用程序的运行窗口如图2所示。
开发该应用的部分程序代码如下： 【程序代码5.2】 Private Sub CmbOp_Click() Dim Dataln As Double,DataOut as Double Dataln= (3) Select Case (4) Case "取整数部分" DataOut =Int(Dataln) Case "求平方根" If Dataln＜0 ThenMagBox "负数不能开平方!" ElseDataOut = Sqr(Dataln) End If Case "取绝对值" DataOut = Abs(Dataln) (5) TxtOut. Text = str $ (DataOut) End Sub
参考答案：Text (2)Listlndex (3)Val(Txtln.Text)或Txtln.Text
解析：(4)CmbOp.Text (5) End Select (1)组合框的Text属性用于取得文本。(2)组合框的Listlndex属性用于取得选中的项的编号。(3)此处的Val(Txtln.Text)或 Txtln.Text能够取得用户的输入。(4)此处以组合框的当前值做为分支依据。(5)此处是分支语句结束，应当填结束标志。