(应用说明5.1)
本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时,用户从Combo1的列表中进行选择,程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。
(程序代码5.1)
Private Sub Combo1_Click()
Txt1.Text = Combo1. (1)
Txt2.Text = Combo1. (2)
E.nd Sub(注:可供(2)处选择的选项:List, Index, Listlndex, ListCount, Number)
(应用说明5.2)
本应用程序的运行窗口如图2所示。
开发该应用的部分程序代码如下:
(程序代码5.2)
Private Sub CmbOp_Click()
D.im Dataln As Double,DataOut as Double
D.ataln=(3)
Select Case (4)
C.ase "取整数部分"
D.ataOut =Int(Dataln)
C.ase "求平方根"
If Dataln<0 Then
MagBox "负数不能开平方!"
E.lse
D.ataOut = Sqr(Dataln)
E.nd If
C.ase "取绝对值"
D.ataOut = Abs(Dataln)(5)
TxtOut. Text = str $ (DataOut)
E.nd Sub