今曰国际原油最新价格:关于VB 6.0的小问提!高手帮忙!!!!:)
来源:百度文库 编辑:高校问答 时间:2024/05/15 04:42:53
单击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