vb課程設(shè)計(jì)報(bào)告--英語詞匯游戲-展示頁
2025-01-26 10:40本頁面
【正文】 End If Loop Next For i = 0 To 9 ok = False Do While Not ok j = Int( * 10) tempstr = wordscoor(j, 1) If (tempstr) Then wordscoor(j, 1) = words(i, 1) ok = True End If Loop Next = wordscoor(0, 0) = wordscoor(1, 0) = wordscoor(2, 0) = wordscoor(3, 0) = wordscoor(4, 0) = wordscoor(5, 0) = wordscoor(6, 0) = wordscoor(7, 0) = wordscoor(8, 0) = wordscoor(9, 0) = wordscoor(0, 1) = wordscoor(1, 1) = wordscoor(2, 1) = wordscoor(3, 1) = wordscoor(4, 1) = wordscoor(5, 1) = wordscoor(6, 1) = wordscoor(7, 1) = wordscoor(8, 1) = wordscoor(9, 1) End Sub Private Sub musicplay_CheckedChanged(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Timer2_Tick(ByVal sender As , ByVal e As ) Handles If openmidi And Then mciExecute(close sound) mciExecute(open ) mciExecute(play sound) End If End Sub Private Sub wordlink_Load(ByVal sender As , ByVal e As ) Handles = True End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles Dim wd As String = Dim i As Integer wd = If 0 Then If first = 0 Or second = 0 Then If first = 0 Then If words(first, 1). = wd The
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1