vb输入两个整数,并交换两个整形变量的值
1个回答
展开全部
dim x as integer
dim y as integer
dim t as integer
x=val(inputbox("输入一个整数x"))
y=val(inputbox("输入一个整数y"))
'输出交换前的两个数
msgbox "x=" & x & ", y=" & y
'交换
t=x
x=y
y=t
'输出交换后的两个数
msgbox "x=" & x & ", y=" & y
dim y as integer
dim t as integer
x=val(inputbox("输入一个整数x"))
y=val(inputbox("输入一个整数y"))
'输出交换前的两个数
msgbox "x=" & x & ", y=" & y
'交换
t=x
x=y
y=t
'输出交换后的两个数
msgbox "x=" & x & ", y=" & y
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
