[填空题] 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Clic

时间：2021-07-20 16:31:58 解答: 72 次

[填空题] 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 【12】 Dox=RndIf x＞0.5 Then y=1 Else y=-1t=y*Int(Rnd*100)+1 【13】 Do While k＜j If t ＜＞ b(k)Then k = k + 1 Else Exit Do End IfLoopIf k=j Then ReDim Preserve b(k) b(k)=t Print b(k)； j=j+1End If Loop Until j＞50 Print 【14】 Max=b(1) For n=2 To 50If b(n)＞Max Then 【15】 p = nEnd If Next n Print "最大数是："；Max Print "位置在第"；p；"个" End Sub

正确答案：

[12] j=1[分析]：变量j是记录已产生数据的个数，变量k是查找是否有重复时记录用，变量 p是记录最大数据的位置。在查找最大数据之前，将数组的第一个下标和数据先记录到p和Max中。

参考解析：

[13] k=1[14] p=1[15] Max=b(n)

本文链接：https://www.waksw.com/yz90non4s5.html

上一篇：[填空题] 阅读程序：　　Option Base1　　Private Sub Form_Click( )　　　　Dim a(3)As Integer　　　　Print“输入的数据是：”；　　　　Fo

下一篇：[单项选择题] 设有语句： X=InputBox("输入数值"，"0"，"示例") 程序运行后，如果从键盘上输人数值10并按回车键，则下