求教一个vb替换的问题

gfasgfsafgds

1.  我建立一个combobox控件，在里面有各类天气现象，如小雨、大雨、冰雹等下拉菜单。建立一个command，在combobox里面选择小雨，单击command替换为固定的数字1234，在combobox里面选择大雨，单击command替换为固定的数字4231以此类推。我的代码如下
Combo1(i).Text = Replace(Combo1(i).Text , "小雨", "1234")  替换后小雨就成了  1234       但是这样做 就是如果后面有类似的，例如几段代码在一块
Combo1(i).Text = Replace(Combo1(i).Text , "小雨并伴有雷阵雨", "1234")
Combo1(i).Text = Replace(Combo1(i).Text, "雷阵雨并伴有冰雹", "1234")
，替换后就成了 1234并伴有雷阵雨  请教大家，整么改代码才能避免上述情况的出现。

2.  就是两个我建立两个combobox控件，在里面有各类天气现象，如小雨、大雨、冰雹等下拉菜单。建立一个command，在Combo1里面选择小雨，在Combo2里面选择大雨，单击command替换为固定的数1234     在Combo1里面选择大雨，在Combo2里面选择冰雹，单击command替换为固定的数1231以此类推、  求教这段代码如何写。谢谢大家

传说中的谁

多年不用vb记不得了，大概就是先取得combo1被选中的是第几个选项，然后去combo2找对应的项。

topmad

传说中的谁 发表于 2015-3-5 22:25
多年不用vb记不得了，大概就是先取得combo1被选中的是第几个选项，然后去combo2找对应的项。

笨笨是VB达人