摘要： 完成了随机出题的代码，实现了筛选不符合要求的数组。 剩下的就是页面制作和一些简单判断。 Dim x%, y%, p% Dim a(1 To 10) As Integer Dim b(1 To 10) As Integer Dim s(1 To 10) As Integer Randomize For i = 1 To 10 s(i) = Int(4 * Rnd) + 1 x = Int(... 阅读全文