dim a,b as Integer
dim temp as Integer
a=1
b=2
temp=a
a=b
b=temp
...这样就实现了a和b值的交换
(一)交换按钮命令:PrivateSub
Command_Click()Dim
a
as
Integera=Text1.TextText1.Text=Text2.TextText2.Text=aEnd
Sub(二)解释:Dim
a
as
Integer
的解释:是将两个数进行定值,因为变量名中不能出现空格、小数点、标点符号等字符。所以我们将两个值赋予给整数型Integer。此程序代码便于理解,没有借助第三个变量的值。大体的思路就是:第一个数=第二个数第二个数=第一个数所进行两个数之间的交换来完成这个程序的。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)