Question

关于VB编程问题

四．按照要求编写程序：输入一个两位数，然后编写程序将两位数的十位与个位互换数字，生成一个新的数，并显示出来。
五．按照要求编写程序：在窗体中添加三个文本框，名称分别为“Text1”、“Text2”、 “Text3”在适当的事件过程中编写代码，使得程序运行时，每当在第一个文本框中输入一个英文字母，程序就在第二个文本框中显示出这个字母的小写形式，在第三个文本框中显示出这个字母的大写形式。
六．按照要求编写程序：在窗体中添加一个按钮，名称为“Command1”，按钮上显示“添加项目”；添加两个列表框，名称分别为“List1”和“List2”在适当的事件过程中编写代码，使得程序运行时，当点击按钮的时候，程序将文本框Text1中的文本放入第一个列表框；当用户双击第一个列表框中的项目的时候，指定的项目移动到第二个列表框中。
七．按照要求编写程序：新建一个VB工程，在窗体中添加一个文本框Text1，，默认显示的内容为空；添加一个按钮command1，按钮上显示“计算”。在适当的事件过程中编写代码，使得程序运行时，当点击按钮的时候，程序计算1000之内所有奇数的和，并将结果显示在文本框中。

Answer 1

太简单了。。。。
我说大致思路
四、用text1来输入数据，button1来确定计算，text2来显示数据
private sub button1_click()
dim a as integer
a=val(text1.text)
if a<100 and a>9 then text2.text=a\10+10*(a mod 10)
end sub

五、判断输入，转换后在text2 text3中显示
private sub text1_keypress(KeyAscii As Integer)
select case KeyAscii
case <=122 and >=97
text2.text=text2.text & chr(KeyAscii)
text3.text=text3.text & chr(KeyAscii-32)
case <=90 and >=65
text2.text=text2.text & chr(KeyAscii+32)
text3.text=text3.text & chr(KeyAscii)
end select
end sub

六、
private sub command1_click()
list1.additem(text1.text)
end sub

private sub list1_dbclick()
list2.additem(list1.select)
list1.remove(list1.select)
end sub

七、
private sub command1_click()
dim i as integer
dim sum as integer
sum = 0
for i = 1 to 1000 step 2
sum = sum + i
next i
text1.text= sum
end sub