VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/28 06:28:27
VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且
Option Base 1
Option Explicit
Dim a(11) As Integer
Private Sub Command1_Click()
Dim i As Integer
Picture1.Cls
Picture1.Print "产生的一维数组为:"
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 20 + 10)
Picture1.Print a(i);
Next i
Picture1.Print
End Sub
Private Sub Command2_Click()
Dim max As Integer,p As Integer,i As Integer
For i = 1 To 10
If max < a(i) Then max = a(i)
Next
Picture1.Print "最大值为:" & max
End Sub
Private Sub Command3_Click()
Dim p As Integer,i As Integer,sum As Integer
For i = 1 To 10
sum = sum + a(i)
Next
Picture1.Print "平均值为:" & CStr(sum / 10)
End Sub
Private Sub Command4_Click()
Dim i As Integer,m As Integer,b(10) As Integer,j As Integer
For i = 1 To 10
b(i) = a(i)
Next i
For i = 10 To 1 Step -1
For j = 1 To i - 1
If b(j) > b(j + 1) Then
m = b(j + 1)
b(j + 1) = b(j)
b(j) = m
End If
Next j
Next i
Picture1.Print "数组按从大到小排序:"
For i = 1 To 10
Picture1.Print b(i);
Next
End Sub
Private Sub Command5_Click()
Dim x%,p%,i%
x = Val(InputBox("输入要插入的数据:"))
p = 1
Do While x > a(p) And p 再答: 欢迎对我的回答作出评价。。O(∩_∩)O
Option Explicit
Dim a(11) As Integer
Private Sub Command1_Click()
Dim i As Integer
Picture1.Cls
Picture1.Print "产生的一维数组为:"
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 20 + 10)
Picture1.Print a(i);
Next i
Picture1.Print
End Sub
Private Sub Command2_Click()
Dim max As Integer,p As Integer,i As Integer
For i = 1 To 10
If max < a(i) Then max = a(i)
Next
Picture1.Print "最大值为:" & max
End Sub
Private Sub Command3_Click()
Dim p As Integer,i As Integer,sum As Integer
For i = 1 To 10
sum = sum + a(i)
Next
Picture1.Print "平均值为:" & CStr(sum / 10)
End Sub
Private Sub Command4_Click()
Dim i As Integer,m As Integer,b(10) As Integer,j As Integer
For i = 1 To 10
b(i) = a(i)
Next i
For i = 10 To 1 Step -1
For j = 1 To i - 1
If b(j) > b(j + 1) Then
m = b(j + 1)
b(j + 1) = b(j)
b(j) = m
End If
Next j
Next i
Picture1.Print "数组按从大到小排序:"
For i = 1 To 10
Picture1.Print b(i);
Next
End Sub
Private Sub Command5_Click()
Dim x%,p%,i%
x = Val(InputBox("输入要插入的数据:"))
p = 1
Do While x > a(p) And p 再答: 欢迎对我的回答作出评价。。O(∩_∩)O
VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且
C语言编程随机产生10个10到50的正整数存放到数组中,并求数组中的所以元素最大值、最小值、平均值及各元素
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数
编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果
利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果
将随机产生的10个[100,200]范围内的随机整数存入数组,求数组中的最大值和最小值.
用VB函数 计算一维数组所有元素的平均值.要求,子函数实现求平均值,主函数实现数据输入及平均值输出
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和.
VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素
VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值