【www.gdgbn.com--安卓教程】

DDLTitle.Items.Insert(0, "0") "给下拉框添加记录
DDLTitle.Items.Insert(1, "5%")
DDLTitle.Items.Insert(2, "10%")
DDLTitle.Items.Insert(3, "15%")
DDLTitle.Items.Insert(4, "20%")
Dim TitleListItem As ListItem
"StrDDLTitle是下拉框中需要显示的内容
For Each TitleListItem In DDLTitle.Items "遍历下拉框中所有的选项
If TitleListItem.Value = StrDDLTitle Then
TitleListItem.Selected = True
txtTitle.Text = TitleListItem.Text
End If
Next

本文来源：http://www.gdgbn.com/shoujikaifa/7970/