【猜宝游戏】

VBScript猜宝游戏：按值传递与按地址传递

最新推荐文章于 2025-11-26 21:22:44 发布

原创最新推荐文章于 2025-11-26 21:22:44 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#游戏

这是一个VBScript编写的猜宝游戏程序，通过两种不同的参数传递方式——按值传递和按地址传递——来交换变量的值。用户根据随机结果猜测宝物在哪一侧。点击窗体触发游戏并展示结果，鼓励用户参与猜测下一轮的宝物位置。

'定义通用过程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

猜宝游戏