【猜宝游戏】

'定义通用过程swapA,两个参数将按值传递
Sub SwapA(ByVal a As String, ByVal b As String)
   Dim t As String
   t = a: a = b: b = t
End Sub
'定义通用过程swapB,两个参数将按地址传递
Sub SwapB(ByRef a As String, ByRef b As String)
   Dim t As String
   t = a: a = b: b = t
End Sub
Private Sub Form_Click()
   Dim left As String, right As String

   left = "有": right = "无"
   Randomize
   If Rnd > 0.5 Then
     SwapA left, right
   Else
     SwapB left, right
   End If
   Cls
   Print
   Print Tab(6); "                猜宝游戏"
   Print Tab(6); "-----------------------------------------"
   Print
   Print Tab(12); "本次结果如下:"
   Print Tab(12); "此刻宝放在" & IIf(left = "有", "左", "右") & "手中!"
   Print Tab(12); "您猜对了吗?"
   Print
   Print Tab(6); "-----------------------------------------"
   Print
   Print Tab(12); "猜一猜:下一次宝放在那只手中呢?"
   Print Tab(12); "请单击窗体继续..."
End Sub

猜宝游戏