虚天殿夺宝

游戏介绍

虚天殿每三百年开启一次，届时，各修仙人士都会来此寻找机缘。必须要获得虚天残图方能找到虚天殿，韩立是一位散修，机缘巧合下获得了一张，他的修为并不高，可他却凭借谨慎的性格取得了虚天鼎等诸多宝物。请输入韩立取得宝物的数量，该数量会直接决定游戏结果。

代码

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox("虚天殿每三百年开启一次，届时，各修仙人士都会来此寻找机缘。")
        MsgBox("虚天殿位置隐秘，只有靠虚天残图才能找到，一位叫韩立的散修机缘巧合下获得了一张。")
        MsgBox("韩立的修为并不高，可他却凭借谨慎的性格取得了虚天鼎等诸多宝物。")
        MsgBox("请输入韩立取得宝物的数量,该数量会直接决定游戏结果。")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim num%, i%
        Dim tag As Boolean '是素数
        num = Val(TextBox1.Text)
        tag = True
        For i = 2 To num - 1
            If (num Mod i) = 0 Then
                tag = False
            End If
        Next
        If tag Then
            Label2.Text = "宝物数量是素数，恭喜您满载而归。"
        Else
            Label2.Text = "宝物数量不是素数，您触发了禁制导致宝物损毁，" & Chr(13) & "很遗憾您空手而归了。"
        End If
    End Sub
End Class

运行效果