程序要求及程序代码如下: (1) 窗体 Form1.frm 中程序的功能是:随机产生 10 个 0~50 之间不重复的整数。 (2) 程序有 2 处错误,错误均在 "'*ERROR*" 注释行,请直接在该行修改。不得增加或减少数,也不得删除或修改错误标记 '*ERROR* 。 Option Base 1 Private Sub Form_Click() Dim a%(10), y% Cls a(1) = Int(Rnd * 51) i = 2 Do While i <= 10 y = Int(Rnd * 50) '*ERROR* For j = 1 To i - 1 ' 与之前产生的 i-1 进行比较,检查是否重复 If y = a(j) Then Exit '*ERROR* end if Next j If j > i - 1 Then a(j) = y i = i + 1 End If Loop For i = 1 To 10 Print a(i) Next i End Sub Private Sub Form_Load() Randomize End Sub