vb課程設計報告--英語詞匯游戲(編輯修改稿)
2025-02-13 10:40 本頁面
【文章內(nèi)容簡介】 s Integer Dim splitchar() As String = {,} Dim gen As New Dim ok As Boolean = False Dim tempstr As String tempstr = wordstring For i = 0 To 9 wordscoor(i, 0) = wordscoor(i, 1) = Next i = 0 j = 0 aword = (splitchar(0)) For i = 0 To 9 words(i, 0) = aword(2 * i) words(i, 1) = aword(2 * i + 1) Next For i = 0 To 9 ok = False Do While Not ok j = Int( * 10) tempstr = wordscoor(j, 0) If (tempstr) Then wordscoor(j, 0) = words(i, 0) ok = True 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)
法律信息相關推薦
鄂ICP備17016276號-1