题目内容

在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数:") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=【】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub

查看答案

搜索结果不匹配？点我反馈

更多问题

喷油器的升程一殷为()以保证针阀反应快捷，在数毫秒之内开启和关闭。

A. O.1—O.2mm
B. O.O5—O.O6MM
C. O.O8—O.O9mm
D. O.Ol一O.O2mm

电磁式怠速控制阀，只有()电磁线圈，其电阻为10一15欧。

A. 一组
B. 二组
C. 三组
D. 四组

电流驱动只适用于低阻喷油器，低阻喷油器电磁场线圈电阻值为()欧。

A. 0.5欧
B. 2—3欧
C. 5欧
D. 8欧

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。