要打印出50个在-100～100之间不同的随机整数 并找出第几个是最大数。给定的程序不完整 将程序补
要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 【 】 Do x=Rnd If x＞0.5 Then y=1 Else y=-1 t=y*Int(Rnd*100)+1 【 】 Do While k＜j If t ＜＞ b(k)Then k = k + 1 Else Exit Do End If Loop If k=j Then ReDim Preserve b(k) b(k)=t Print b(k)； j=j+1 End If Loop Until j＞50 Print 【 】 Max=b(1) For n=2 To 50 If b(n)＞Max Then 【 】 p = n End If Next n Print "最大数是："；Max Print "位置在第"；p；"个" End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
453***262
2023-07-20 20:17:17
正确答案：j=1 k=1 p=1 Max=b(n)
变量j是记录已产生数据的个数，变量k是查找是否有重复时记录用，变量p是记录最大数据的位置。在查找最大数据之前，将数组的第一个下标和数据先记录到p和Max中。
相似问题
标准模块和窗体模块的功能是计算和打印两个复数之和 在横线上填上适当内容。标准模块 Type comp
标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块 Type comp re As Single im As Single End Type Public
在名称为Form1的窗体上画一个文本框 其名称为Text1 在属性窗口中把该文本框的Muhiline
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_
有时候需要暂时关闭计时器 这可以通过【 】属性来实现。请帮忙给出正确答案和分析 谢谢！
有时候需要暂时关闭计时器，这可以通过【 】属性来实现。请帮忙给出正确答案和分析，谢谢！
下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值 请完善程序。 Funct
下列过程的功能是用来计算并输出S=1+1 2+1 3+……+1 100的值，请完善程序。 Function SumF(n As Integer)As Single s = 0 For i=1 To n s=
下面程序是用冒泡法将数组a中的10个整数按升序排列 请将程序补充完整。 Private Sub Co
下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array
