2011.08.03猜字游戏

(2011-08-03 19:44:49, Size: 10.1 KB, Downloads: 138)

代码：

Dim link()

Private Sub kandaan_Click()
For i = 1 To 25
ActivePresentation.Slides(1).Shapes.Item("Label" & i).OLEFormat.Object.Visible = False
Next
SlideShowWindows(1).View.First
End Sub

Private Sub kaishi_Click()
fid = FreeFile
i = 1
Open "hanzi.txt" For Input As fid
    Do While Not EOF(fid)
        ReDim Preserve link(i)
        Line Input #fid, link(i)
        i = i + 1
    Loop
Close #fid
Randomize
k = Int(Rnd * 3500)
hanzi.Caption = link(k)
ActivePresentation.Slides(1).Shapes.Item("hanzi").OLEFormat.Object.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
For i = 1 To 25
    ActivePresentation.Slides(1).Shapes.Item("Label" & i).OLEFormat.Object.Visible = True
Next
SlideShowWindows(1).View.First
End Sub

Private Sub Label1_Click()
Label1.Visible = False
End Sub
Private Sub Label2_Click()
Label2.Visible = False
End Sub
Private Sub Label3_Click()
Label3.Visible = False
End Sub
Private Sub Label4_Click()
Label4.Visible = False
End Sub
Private Sub Label5_Click()
Label5.Visible = False
End Sub
Private Sub Label6_Click()
Label6.Visible = False
End Sub
Private Sub Label7_Click()
Label7.Visible = False
End Sub
Private Sub Label8_Click()
Label8.Visible = False
End Sub
Private Sub Label9_Click()
Label9.Visible = False
End Sub
Private Sub Label10_Click()
Label10.Visible = False
End Sub
Private Sub Label11_Click()
Label11.Visible = False
End Sub
Private Sub Label12_Click()
Label12.Visible = False
End Sub
Private Sub Label13_Click()
Label13.Visible = False
End Sub
Private Sub Label14_Click()
Label14.Visible = False
End Sub
Private Sub Label15_Click()
Label15.Visible = False
End Sub
Private Sub Label16_Click()
Label16.Visible = False
End Sub
Private Sub Label17_Click()
Label17.Visible = False
End Sub
Private Sub Label18_Click()
Label18.Visible = False
End Sub
Private Sub Label19_Click()
Label19.Visible = False
End Sub
Private Sub Label20_Click()
Label20.Visible = False
End Sub
Private Sub Label21_Click()
Label21.Visible = False
End Sub
Private Sub Label22_Click()
Label22.Visible = False
End Sub
Private Sub Label23_Click()
Label23.Visible = False
End Sub
Private Sub Label24_Click()
Label24.Visible = False
End Sub
Private Sub Label25_Click()
Label25.Visible = False
End Sub

[ 本帖最后由 笨巧果 于 2011-8-3 22:16 编辑 ]