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

[主观题]

下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Fo

rm_Click() Dim an(10)As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)=【】 Next max=an(1) For i%=2 to 10 if an(i%)＞max then max=an(i%) End If Next Print max End Sub

提问人：网友aqjazz 发布时间：2022-01-06

参考答案

查看官方参考答案

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

您可能会需要：

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

安装简答题APP，拍照搜题省时又省心！

更多“下列程序功能是，产生10个0-100的随机数，输出其中的最大…”相关的问题

第1题

下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的datA.txt

文件中。请填空。

Private Sub Command1_Click()

Dim a As Integer

Open【】For Output As 100

Randomize

For i =1 To 10

a=100+Int(899*RnD) 【】

Next i

Close 100

End Sub

点击查看答案

第2题

如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容（不要空格)，完善程序。 Private Sub Command1_Click（) Dim a（9) As String, i% For i = 0 To 9 a（i) = Chr（Rnd * 26 + _________) Next End Sub

点击查看答案

第3题

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

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dim a(10) For j=1 To 10 a(i)=Int(【】) If【】Then k=k+1 Print a(j) Next j Print Print k/10 End Sub

点击查看答案

第4题

以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。Op

以下程序的功能是，产生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

点击查看答案

第5题

下列程序的功能是：输入10个整数，逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。Pr

下列程序的功能是：输入10个整数，逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。

Private Sub Command2_Click()

Dim i, j, k,temp, arr(11) As lnteger

Dim result As String

For k=1 To 10

arr(k) =Val (InputBox("请输入第" & k & "个数："，"数据输入窗口"))

Next k

i=1

j = 10

temp=arr(i)

arr(i)=arr(j)

arr(j)=temp

i=i+1

j=【12】

Loop While【13】

result =""

For k=1 To 10

result=result & arr(k) & Chr(13)

NeXt k

MsgBox result

End Sub

点击查看答案

第6题

【简答题】下列程序的功能是读取10个实数,然后依次输出前1个实数和前2个实数和…前9个实数和、前10个

实数和。请填写程序中缺少的语句。 #include ＜iostream＞ using namespace std; int main() { float f[10], x = 0.0; int i; for (i = 0; i ＜ 10; i++) cin ＞＞ f[i]; for (i = 0; i ＜= 1 9; i++) { cout "前" i + "个实数的和是" x endl; } return 0;＞

点击查看答案

第7题

系统软件是随计算机出厂并具有通用功能的软件，下列的（)不属于系统软件。A．操作系统B．语言处理程序

系统软件是随计算机出厂并具有通用功能的软件，下列的()不属于系统软件。

A．操作系统

B．语言处理程序

C．服务性程序

D．各种应用软件包

点击查看答案

第8题

系统软件是随计算机出厂并具有通用功能的软件。下列不属于系统软件的是

A.操作系统

B.信息管理系统

C.数据库管理系统

D.服务性程序

点击查看答案

第9题

（8）以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请

填空。

Private Sub Form_Click()

Dim a(10) As Integer, i As Integer

Randomize

i=0

num＝Int(Rnd*90)＋10

For j=1To i ' 检查新产生的随机数是否与以前的相同，相同的无效

If num=a(j)Then

Exit For

End If

Next j

If j＞i Then

i=i＋1

a(i)＝【10】

End If

Loop While i＜10

For i＝1 To 9

For j＝【11】To 10

If a(1)＞a(j）Then temp＝a(i)：a(i) = a(j）：【12】

Next j

Next i

For i＝1To10

Print a(i)

Next i

End Sub

点击查看答案

第10题

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Tex

t1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本