中科新闻网云影ss怎么打不开了:关于VB 6.0的小问提！高手帮忙！！！！：）
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 05:36:14
单击Command1弹出两个对话框分别输入字串
单击Command2将输入的两字串一起显示在text1中
在text2中输入任意数值单击Command3在List1中显示从一到text2中输入数值间的所有偶数。
谢谢啦
单击Command2将输入的两字串一起显示在text1中
在text2中输入任意数值单击Command3在List1中显示从一到text2中输入数值间的所有偶数。
谢谢啦
Dim c,d
c = InputBox("a", "b")
d = InputBox("aa", "bb")
text1.text = c & d
dim i
for i =1 to text2.text
if i mod 2 = 0 then
list1.additem i
endif
next