VB 将ab两个变量的值互换
要求:将a、b两个变量的值互相交换,并在窗体上输出变量交换前后的值.程序运行后,单击窗体时,一次弹出两个输入信息对话框.
人气:202 ℃ 时间:2020-04-18 11:56:34
解答
我写的代码:
Private Sub Form_Click()
'请求用户给a和b输入值
Dim a As String,b As String
a = InputBox("输入a的值","输入信息")
b = InputBox("输入b的值","输入信息")
'交换a和b的值
Dim c As String
c = a
a = b
b = c
'在窗体上输出变量交换前后的值
Print "交换后a的值为:" & a
Print "交换后b的值为:" & b
End Sub
推荐
猜你喜欢
- All the people coming by complained.
- 例子:比喻不劳而获的人——寄生虫,粗心大意的人,目不识丁的人和思想陈旧的人
- 利于苹果生长的优势条件.
- 求顶点在原点,对称轴为X,且过点P(-2,2根号2)的抛物线的标准方程?
- 安徒生简介(英文)
- 这是一把数控外切槽刀,编号:ZQ2020R-04,
- 已知△ABC,AB=AC,E在AC上,∠ABE=20度,∠EBC=10度,D在BC上,∠DAB=80度.连接DE,求∠ADE的度数.
- 1.Usually there are four w____ in a m_____.