题目内容（请给出正确答案）

[主观题]

下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但

程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= ______ For j=2 To 100 If a(j)＞max Then max=a(j) : p=j Next j Print "The largest number is " ; max Print "The position is"; p End

A．0

B．a(1)

C．1.7E+38

D．1.7E-38

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“下面程序的功能是由随机函数产生100个在200～700之间的…”相关的问题

第1题

下面程序的功能是产生100个小于1000（不含1000) 的随机正整数，并统计其中5的倍数所占比例，但程序

下面程序的功能是产生100个小于1000(不含1000) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请在[ ]和[ ]处把程序补充完整。

下面程序的功能是产生100个小于1000（不含1000) 的随机正整数，并统计其中5的倍数所占比例，

点击查看答案

第2题

下面程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代

表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、 Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如下图所示。程序运行后，在文本框Text1中输入总次数，然后卑．击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

下面程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正

Private Sub Commandl_Click()

点击查看答案

第3题

在窗体中添加一命令按钮，（其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000（

在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。

请在空白处填入适当的内容，将程序补充完整。

Private Sub Command1 Click()

Dim a(100)

For j=1 To 100

a(j)=Int(______)

If a(j)______5=0 Then______

Print a (j)；

Next i

Print k/100

End Sub

点击查看答案

第4题

给定程序中，函数fun的功能是：调用随机函数产生20个互不相同的整数放在形参a所指数组中（此数组在

主函数中已置O）。

请在程序的下画线处填入正确的内容并把下画线删除，使程序得出正确的结果。

注意：部分源程序在文件BLANKl．C中。

不得增行或删行，也不得更改程序的结构!

试题程序：

给定程序中，函数fun的功能是：调用随机函数产生20个互不相同的整数放在形参a所指数组中（此数组在主

点击查看答案

第5题

下面程序功能是随机产生的8个大写字母，在文本框显示结果。在空白处填入合适的表达式，使程序完整。 Private Sub Button1_Click（......) Handles Button1.Click Dim c As Char Dim i As Integer Randomize（) For i = 0 To 7 c = Chr（Int（________ )) TextBox1.Text &= c Next End Sub

A.Rnd()*26+65

B.Rnd()*65

C.Rnd()*65+26

D.Rnd()*26+48

E.Rnd()*26+A

点击查看答案

第6题

A.Rnd()*26+65

B.Rnd()*65

C.Rnd()*65+26

D.Rnd()*26+48

E.Rnd()*26+A

点击查看答案

第7题

10、下面程序功能是随机产生的8个大写字母，在文本框显示结果。在空白处填入合适的表达式，使程序完整。 Private Sub Button1_Click（......) Handles Button1.Click Dim c As Char Dim i As Integer Randomize（) For i = 0 To 7 c = Chr（Int（________ )) TextBox1.Text &= c Next End Sub

A.Rnd()*26+65

B.Rnd()*65

C.Rnd()*65+26

D.Rnd()*26+48

E.Rnd()*26+A

点击查看答案

第8题

13、关于随机函数库random的seed函数，以下说法正确的是

A.seed函数的功能是初始化随机数种子

B.如果程序中没有用到seed()函数，则后续产生的随机数是以当前时间为种子来产生的

C.加上seed(100)语句后，每次产生的随机数序列都是一样的

D.其余三项都正确