VB计算并显示出这十个数中最小的数据在数组中的位置。
发布网友
发布时间:2024-07-03 17:35
我来回答
共3个回答
热心网友
时间:2024-07-17 16:18
打开VB6.0,新建一个工程,在窗体中添加两个命令按钮,caption分别改为“升序排列”和“降序排列”,添加两个个标签控件,将名字分别改为Lbl1和Lbl2,将窗体Form1的caption属性改为“选择法数组排序”,将界面设置成下图:
首先产生10个随机数在标签中显示。
双击窗体,在Load事件中写入如下代码:
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 101 + 100)
Lbl1.Caption = Lbl1.Caption & a(i) & " "
Next i
在通用对话框对数组进行定义,使其成为窗体级变量:
Dim a(1 To 10) As Integer
双击“升序排列”命令按钮,进入代码编辑窗口,输入如下代码:
For i = 1 To 9
Min = a(i)
For j = i + 1 To 10
If a(j) < Min Then
Min = a(j)
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
Lbl2.Caption = ""
For i = 1 To 10
Lbl2.Caption = Lbl2.Caption & a(i) & " "
Next i
双击“降序排列”命令按钮,进入代码编辑窗口,输入如下代码:
For i = 1 To 9
Max = a(i)
For j = i + 1 To 10
If a(j) > Max Then
Max = a(j)
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
Lbl2.Caption = ""
For i = 1 To 10
Lbl2.Caption = Lbl2.Caption & a(i) & " "
Next i
关闭代码窗口,按下F5运行程序,产生10个随机数,标签中显示10个数:
单击“升序排列”命令按钮,标签一中的数组按升序排列在标签二中显示,如图:
单击“降序排列”命令按钮,标签一中的数组按降序排列在标签二中显示,如图:
热心网友
时间:2024-07-17 16:13
可惜。你已经考完了。朋友。
热心网友
时间:2024-07-17 16:14
考试才着急,是不是晚了点?
vb 编写一个程序,输入任意10个数字,从中找出最大和最小的数,并给出最...
ReDim SerAim(i)If Vimt(i) > Vimt(j) Then '这个语句是以小到大排序,数组的第一个就是最小数 If Vimt(i) < Vimt(j) Then '这个语句是以大到小排序,数组的第一个就是最大数 '注意上面的二个语句只能用一个!!Num = Vimt(i)Vimt(i) = Vimt(j)Vimt(j) = Num E...
excel函数公式大全计数
Excel函数公式大全中的计数功能主要涵盖了几种常用的函数。其中,`COUNT`函数用于统计指定范围内非空单元格的数量;`COUNTIF`函数则能基于特定条件进行计数,如统计特定部门或满足某个数值条件的单元格数;而`COUNTIFS`函数更进一步,允许用户根据多个条件进行计数。这些函数在处理和分析大量数据时,能够极大地提高工作效率和准确性。Excel一键自动匹配,在线免费vlookup工具,3步完成!Excel在线免费vlookup工具,点击30步自动完成vlookup匹配,无需手写公式,免费使用!
Vb编程使用数组计算10名学生的成绩,求最大值和最小值,并显示在文本框中...
Next Print "最大值:", m, "最小值:", n End Sub
vb中如何找出数组中的最小值,并找出最小值的位置(第几个数字)_百度知 ...
if x > a(i) then x= a(i)‘如果x大于数组中的元素,则让x等于数组中的这个元素,这样x最终就成了数组中最小的数 y = i'y获得x为最小值时,i的值,也就是x为数组中的第几个数字 end if next msgbox "最小值为"&x &" 是第"& y &"个数字"end sub ...
...10个正整数,存放在数组中,然后查找这10个数中的最小数及其位置(即下...
Print Print "最小数是第"; j; "个,"; a(j)End Sub
...随机函数产生的10个不大于100的整数保存在数组中,并从中找出最接近...
程序如下:Private Sub Form_Activate()Dim a(1 To 10) As Integer '定义存放10个小于等于100的整数数组 Dim sum, i, max, min As Integer '定义sum存放10个数的和,min放10个数中最小值,max放最大值,i循环控制变量 Dim aver As Single '定义aver放平均值 sum = 0 max = 0 ...
编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小...
= 30 For i = 0 To 9 a(i) = Int(30 + (71 * Rnd))sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max = a(i)Print a(i),Next i Print vbCrLf & "最大值:"; max Print "最小值:"; min Print "平均值:"; sum / 10 End Sub ...
...然后输入其中一个数,找出该数在数组中的位置,给出下标值
Private Type num xuhao As Integer i As IntegerEnd TypeDim a(10) As numDim temp As numPrivate Sub Command1_Click()For i = 1 To 10 a(i).i = InputBox("请输入第" & i & "个数字") a(i).xuhao = i Print a(i).iNext iFor i = 1 To 10 For j...
...将数组中的最大值,最小值,平均值显示在窗体上!vb问题
d(i) = Int(Rnd * (999 - 100 + 1) + 100)Next i mymax = d(1)mymin = d(1)mysum = d(1)For i = 2 To 10 If d(i) > mymax Then mymax = d(i)If d(i) < mymin Then mymin = d(i)mysum = mysum + d(i)Next i Print mymax, mymin, mysum / 10 ...
用VB编写 将10个数值型数据赋值到一个一维数组中,并找出其中最小...
x(1 To 10) As Integer x(1) = 12 x(2) = 6 x(3) = 7 x(4) = 11 x(5) = 21 x(6) = 22 x(7) = 4 x(8) = 10 x(9) = 9 x(10) = 5 n = x(1)For i = 1 To 10 If x(i) < n Then n = x(i)j = i End If Next i Print j, n End Sub ...
...从中选出一个最大的和一个最小数并显示出来
Randomize Dim a(1 To 10)For i = 1 To 10 a(i) = Int(Rnd * 90 + 10)Print a(i)Next i max = a(1): min = a(1)For i = 1 To 10 If max < a(i) Then max = a(i)If min > a(i) Then min = a(i)Next i Print "最大值为"; max Print "最小值为"; min...