vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数”

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 03:25:25
vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数”
xS]KP+/tj2¨-tc%]fEvt T *c\NWߓ'g?@xQlՆiع:{u2 wşgnEݾ~<q/4cvVYFN mGn'(57oz7K ߄f Jev][)mo\X$7LW^ ",?O=żEY0i 9E"y|^,JU'A,aEޚWU+X~6fj3d ,ud꘰nI.yT":&"RD~Lr]rQ$Qջ=!=Xϝ:

vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数”
vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数”

vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数”
Private Sub Command2_Click()
Dim a(11) As Integer,s As String
Dim i As Integer,m1 As Integer,m2 As Integer,av As Double,sum As Integer 'm1 最大值,m2最小值
Dim H As Integer,L As Integer
Randomize
H = 1
L = 1
sum = 0
For i = 1 To 10
a(i) = Int(89 * Rnd + 10)
If i = 1 Then
m1 = a(1)
m2 = a(1)
End If
If m1 < a(i) Then
m1 = a(i)
H = i
End If
If m2 > a(i) Then
m2 = a(i)
L = i
End If
sum = sum + a(i)
s = s & " " & a(i)
If i Mod 5 = 0 Then
s = s & Chr(13)
End If
Next i
av = sum / 10
Print
Print "随机数为:" & Chr(13) & s
Print "平均值为:" & av & Chr(13) & "最大数:" & m1 & ",是第" & H & "个随机数" & Chr(13) & "最小数:" & m2 & ",是第" & L & "个随机数"
End Sub

vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数” 随机生成3个正整数,其中一个1位数,一个2位数,一个3位数,计算他们的平均值.VB程序设计求大神给个简略点的程序.考试要背啊- -. VB编写一个程序:分别随机生成3 个正整数,其中一个是1 位数、1 个是2 位数、1 个是3 位数. 我想知道,用vb编程,生成10个0-100之间的随机数,要求分别求出其中所有基数之和以及所有偶数之和,该怎么 VB程序设计大奖赛评分程序设计 编写程序实现在歌手大奖赛中,有10个评委为参赛的选手打分,分数为1到100 vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数 在VB中生成有n(n≥10)个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值 编程:生成20个1到100之间的随机数,统计其中1位数,2位数,3位数的个数. 用vb:输入10个整数,求出它们的总和与积,并打印其中既能被5整除又能被3整除的数 利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果用VB程序设计 vb程序中 输出10个[10,99]范围内随机整数用“生成”按钮,用“统计”按钮分别统计其中奇数和与偶数和 VB程序设计,not ,and ,or 概念是什么 vb程序设计问题,求代码随机生成10个两位正整数并显示在一个文本框中,再找出这10个数中最大的数,并指出它是第几个数 vb题 随机生成10个两位整数,求出他们的总和及平均数求助,基础一点的编程啊 VB程序设计随机产生一个四位数,将其各位上的数字安逆顺序重新组成一个正整数,由ms vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b) vb 生成随机数(急!)要分别生成3个1到39的整数其中要去掉4,18,38等数如何做? vb程序设计,找出所有三位数中,能同时被3和7整除.找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个