1

打开vb，在出现的窗口的左侧点击commandbutton，再双击小窗口中出现的command1。

 

在打开的窗口中输入以下内容

Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim swap As Integer

a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
  If a < b Then
  swap = a
  a = b
  b = swap
  End If
 
  Print a & "," & b

之后关闭这个窗口，将光标指到工具栏中的 运行 ，点击启动。点击出现的窗口中的command1，

完成。