易语言入门：简单抛硬币小游戏制作教程

'抛硬币小游戏

'定义随机数生成器 Dim rand As Integer

'定义用户猜测的结果 Dim guess As String

'定义游戏是否结束的标志 Dim isGameOver As Boolean

'游戏开始 Do While Not isGameOver

'随机生成正面或反面的结果，0表示正面，1表示反面
rand = Rand() Mod 2

'让用户输入猜测的结果
guess = InputBox('请猜测硬币的正反面（0表示正面，1表示反面）：')

'比较用户猜测的结果和随机产生的结果
If guess = rand Then
    '猜对了
    MsgBox '恭喜你猜对了！'
Else
    '猜错了
    MsgBox '很遗憾，你猜错了。'
End If

'询问是否继续游戏
If MsgBox('是否继续游戏？', vbYesNo) = vbNo Then
    '游戏结束
    isGameOver = True
End If

Loop

这个小游戏比较简单，但可以作为易语言入门练习的一个例子。