搜题
题目
[填空题]要打印50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
OptionBase1
PrivateSubCommand1_Click()
Dimb()
Randomize
(12)
Do
x=Rnd
Ifx＞0.5Theny=1Elsey=-1
t=y*Int(Rnd*100)+1
(13)
DoWhilek＜j
Ift＜＞b(k)Then
k=k+1
Else
ExitDo
EndIf
Loop
Ifk=jThen
ReDimPreserveb(k)
b(k)=t
Printb(k)；
j=j+1
EndIf
LoopUntilj＞50
Print
(14)
Max=b(1)
Forn=2To50
Ifb(n)＞MaxThen
(15)
p=n
EndIf
Nextn
Print"最大数是："；Max
Print"位置在第"；p；"个"
EndSub
提示：未搜索到的试题可在搜索页快速提交，您可在会员中心"提交的题"快速查看答案。
答案
查看答案
搜题
相关试题
[单项选择题]已知a=5，b=8，c=12，下列表达式的值为True的是()。
A．a＞bAndc＜a
B．a＞bOrc＜a
C．a＞bXorc＜a
D．a＞bEqvc＜a
A．a＞bAndc＜a
B．a＞bOrc＜a
C．a＞bXorc＜a
D．a＞bEqvc＜a
[单项选择题]为AB类的一个无形式参数、无返回值的方法method书写方法头，使得使用类名AB作为前缀就可以调用它，该方法头的形式为______。
A．staticvoidmethod()
B．abstractvoidmethod()
C．finalvoidmethod()
D．publicvoidmethod()
A．staticvoidmethod()
B．abstractvoidmethod()
C．finalvoidmethod()
D．publicvoidmethod()
[单项选择题]设A$="Hello"，下列语句正确的是()。
A．Labe11.Hight=Labe11.Hight+A$
B．Labe11.Caption=Labe11.Caption+A$
C．Labe11.Enabled=Laabe11.Enabled+A$
D．Labe11.Visible=Labe11.Visible+AS
A．Labe11.Hight=Labe11.Hight+A$
B．Labe11.Caption=Labe11.Caption+A$
C．Labe11.Enabled=Laabe11.Enabled+A$
D．Labe11.Visible=Labe11.Visible+AS
[问答题]有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。
要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能，不得修改程序的其他部分。
题目提供的Command1对象的Click对象源代码如下：
PrivateSubCommand1_Click()
DimiAsInteger
Fori=0To
IfThen
Form1.(List1.List(i))
EndIf
Nexti
EndSub
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能，不得修改程序的其他部分。
题目提供的Command1对象的Click对象源代码如下：
PrivateSubCommand1_Click()
DimiAsInteger
Fori=0To
IfThen
Form1.(List1.List(i))
EndIf
Nexti
EndSub
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
[问答题]System.out.prinfln("i="+i+"s="+s)；