Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim A(0 To 19) As Integer, B(0 To 19) As Integer
Me。
Cls
Randomize
Print "产生20个两位随机数"
For i = 0 To 19
A(i) = Rnd * 90 + 10
Next i
For i = 0 To 9
Print A(i);
Next
Print
For i = 10 To 19
Print A(i);
Next
Print
For i = 0 To 19
For j = 0 To 19
If A(i) = A(j) Then B(i) = B(i) + 1
Next
Next
Print "不同整数的个数"
For i = 0 To 19
For j = 0 To i - 1
If A(i) = A(j) Then GoTo e:
Next
Print A(i);
Print B(i);
Print "个"
e:
Next
End Sub
。
答：C++描述 #include using namespace std; const MAX_SIZE=50; int main() { int Stack[M...详情>>
答：详情>>
