VB编程步骤 变量交换

  在form中创建command区域双击进入开始编程

  在Private Sub Command1_Click()下一行输入
    Cls
    Me.Font.Size = 70
    Dim b As Integer, c As Integer
    
    Dim d As Integer
    c = Int(Rnd() * 1000)
    b = Int(Rnd() * 1000)
    
    Print "b =" & b
    Print "c =" & c
    
    d = c
    c = b
    b = d
    
    Print "b =" & b
    Print "c =" & c
End Sub
完成输入后关闭该窗口在软件上部工具栏选择运行——启动即可完成