Question

VB编程题目

新建一个“标准EXE”类型的工程，设计窗体单击事件过程。编写程序实现以下功能：利用InputBox()函数输入两个数据，分别存入变量a和b中，并在窗体上以标准格式显示出来，交换变量a和b的值，并在窗体上以紧凑格式显示

Answer 1

'略微有些难度

Private Sub command1_click()
Dim X As String
Dim brr
Dim a  As Long
Dim b  As Long
X = InputBox("请输入2个整数(以英文逗号分隔)：", "交换变量", "例如：3,344", 1000, 1000)
brr = Split(X, ",") 
If UBound(brr) > 1 Then
MsgBox "输入数字多余2个，请重新输入！", , "提醒"
End '退出
End If
If UBound(brr) < 1 Then
MsgBox "输入数字少余2个，请重新输入！", , "提醒"
End '退出
End If
a = brr(0)
b = brr(1)
Label1.Caption = "a变量原始值为：" & a & vbCrLf + "b变量原始值为：" & b & vbCrLf + "a变量与b变量交换后为：" & a + b - a & vbCrLf + "b变量与a变量交换后为：" & a + b - b
End Sub