1】
本应用程序的窗体中有一个下拉式列表框(名称为Combol)和两个文本框(名称分别为Txt_ Content和Txt_Index)。运行时，用户从Combol的列表中进行选择，程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt_Content和Txt_Index中显示出来。
【程序代码5.1】
Private Sub Combol_Click()
Txt_Content． Text=Combol．{{U}} (1) {{/U}}
Txt_Index． Text=Combol．{{U}} (2) {{/U}}
End Sub
(注：可供(2)处选择的选项：Number，List，Index，ListIndex，ListCount)
【应用说明5.2】
本应用程序的运行窗口如下图所示。

当用户在输入框(名为Txt_Input)中输入数值数据，并从下拉式列表框(名为CmbOp)中选择所需的运算后。输出框(名为Txt_Output)中就会显示运算的结果。用户单击“清除”按钮(名为 CmdClear)后，输入框和输出框都清空。
开发该应用的部分程序代码如下：
【程序代码5.2】
Private Sub CmbOp_Click()
Dim DataIn As Double，DataOut as Double
DataIn = {{U}}(3) {{/U}}
Select Case {{U}}(4) {{/U}}
Case "取整数部分"
DataOut = Int(DataIn)
Case "求平方根"
If DataIn＜0 Then
MagBox "负数不能开平方!"
Else
DataOut = sqr(DataIn)
End If
Case "取绝对值"
DataOut = Abs(DataIn)02502
{{U}} (5) {{/U}}
Txt_Output．Text=str $(DataOut)
End Sub