网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form. Click()
Dim Arr(10) As Integer
Dim Max As Integer
Randomize
For I = 1 To 10
Arr(i) = Int (Rnd * 1000)
Next i
Max= ______
For i = 2 To 10
If______Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
参考答案
更多 “ 以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form. Click()Dim Arr(10) As IntegerDim Max As IntegerRandomizeFor I = 1 To 10Arr(i) = Int (Rnd * 1000)Next iMax= ______For i = 2 To 10If______ThenMax = Arr(i)End IfNext iPrint MaxEnd Sub ” 相关考题
考题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）Dim arr（1 To 100）As IntegerFor i=1 To 100arr（i）=Int（Rnd*1000）Next iMax=arr（1）Min=arr（1）For i=1 To 100If________ThenMax=arr（i）End IfIf________ThenMin=arr（i）End IfNext iPrint"Max="；Max，"Min="；MinEnd Sub程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
考题
（ 7 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列事件过程：Private Sub Command1_Click( )Dim arr(1 To 100 ） As IntegerFor i=1 To 100arr(i)=Int(Rnd*1000)Next iMax=arr ( 1 )Min=arr ( 1 )For i=1 To 100If 【 7 】 ThenMax=arr(i)End IfIf 【 8 】 ThenMin=arr(i)End IfNext iPrint"Max=" ; Max , "Min=" ; MinEnd Sub程序运行后 ， 单击命令按钮 ， 将产生 100 个 1000 以内的随机整数 ， 放入数组 arr 中 ， 然后查找并输出这 100 个数中的最大值 Max 和最小值 Min ，请填空。
考题
设有程序：Option Base 1Private Sub Command1_Click()Dim arr1,Max as Integerarr1＝Array(12,435,76,24,78,54,866,43)【 】＝arr1(1)For i＝1 To 8If arr1(i)＞Max Then【 】Next iPrint"最大值是:";MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
考题
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Command1 _Click( )For i = 1 To 20x=Int(【 】*200+ 100)If【 】 = 0 ThenPrint xS = S +【 】End IfNext IPrint "Sum = "; SEnd Sub
考题
以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。Private Sub Command1_Clcik()RandomizeFor I=1 To 20X=Int(Rnd* ______ )If X/2= ________ Then Print xNext IEnd Sub
考题
在考生文件夹中有一个工程文件execise37.vbp，相应的窗体文件为execise37.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“输出大于1000的整数之和”的命令按钮。其功能是产生40个0～2000的随机整数，放入一个数组中，然后输出这40个整数中大于1000的所有整数之和。程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后；按原文件名并在原文件夹中保存修改后的文件。
考题
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，将产生l00个1000以内的随机整数，放入数组aft中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。
考题
（8）以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。Private Sub Form_Click()Dim a(10) As Integer, i As IntegerRandomizei=0Donum＝Int(Rnd*90)＋10For j=1To i ' 检查新产生的随机数是否与以前的相同，相同的无效If num=a(j)ThenExit ForEnd IfNext jIf j＞i Theni=i＋1a(i)＝【10】End IfLoop While i＜10For i＝1 To 9For j＝【11】To 10If a(1)＞a(j）Then temp＝a(i)：a(i) = a(j）：【12】Next jNext iFor i＝1To10Print a(i)Next iEnd Sub
热门标签
最新试卷
