Question

在text1和text2中分别输入数据,赋值给变量a和b。设计一个算法将变量a和b的值相交换，最后显示交换结果。vb

Answer 1

private sub command1_click()
dim a,b,c as string
a=text1.text
b=text2.text
c=a
a=b
b=c
text1.text=a
text2.text=b
end sub

Answer 2

楼上的dim a,b,c as string 有问题的
这样得到的是：a和b都是变体型的，只有c为string
private sub form_click()
dim a as integer,b as integer,c as integer
a=val(text1.text)
b=val(text2.text)
c=a
a=b
b=c
text1.text=str(a)
text2.text=str(b)
end sub