Question

连连看的VB程序

Answer 1

我有连连看的程序。

Private Sub Command1_Click()
    Dim a(10) As Integer
    Dim max As Integer
    Dim min As Integer
    Dim avg As Double
    Dim sum As Integer
    sum = 0
    Randomize
    For i = 1 To 10
        If i = 1 Then
            a(i) = Int(Rnd * 90 + 10)
            max = a(i)
            min = a(i)
            sum = sum + a(i)
        Else
            a(i) = Int(Rnd * 90 + 10)
            If a(i) > max Then max = a(i)
            If a(i) < min Then min = a(i)
            sum = sum + a(i)
        End If
    Next i
    Print "最大值是" & max
    Print "最小值是" & min
    Print "平均值是" & sum / 10
    
End Sub

Answer 2

我不知道你用的是什么语言，但很简单。每种语言都有自己的 gui 库，比如按钮，面板，等等，你只需要在控件上放一个图片，比如面板。每个面板都绑定到一个图像，每个图像都有一个数字。如果图片的数量与另一个面板的数量相同，则意味着同一个图标存在于数组中，并定期显示控件的坐标，例如(每行16行，这样可以方便地计算垂直和水平障碍)。然后，点击事件，你可以纵向和横向判断是否有一个障碍物在图片中间，只有两个面板有0的垂直差异，没有障碍物水平或水平差异0，没有垂直障碍物，或者如果有一个通畅的路径水平和垂直，图标可以消除为额外的点,