vb点虐 比较大小排序 vb中大小
求vb点虐 (vb2010)程序代码 产生30个50以内的随机正整数,将他们从大到小排序后输出
vb2010写的:
我们提供的服务有:成都网站设计、网站制作、微信公众号开发、网站优化、网站认证、广元ssl等。为上千企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的广元网站制作公司
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim str As String = ""
Dim a(30) As Integer
Dim temp As Integer
str = str "生成的30个随机数字是 " vbCrLf
For i = 1 To 30
a(i) = Int(Rnd() * 50 + 1)
str = str a(i) " "
If i Mod 10 = 0 Then
str = str vbCrLf
End If
Next
str = str vbCrLf
For i = 1 To 30
For j = 1 To 30 - i
If a(j) a(j + 1) Then
temp = a(j + 1)
饥明 a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
str = str 粗肢孝"排序后的数字是 " vbCrLf
For i = 1 To 30
str = str a(i) " "
If i Mod 10 = 0 Then
岩稿 str = str vbCrLf
End If
Next
TextBox6.Text = str
End Sub
运行结果:
生成的30个随机数字是
36 27 29 15 16 39 1 39 41 36
3 21 44 40 19 49 44 3 48 19
27 39 3 30 24 15 32 33 14 14
排序后的数字是
49 48 44 44 41 40 39 39 39 36
36 33 32 30 29 27 27 24 21 19
19 16 15 15 14 14 3 3 3 1
VB.NET中,比较四个数字的大小 代码
用不到2个命令按钮 1个就够
在按钮的过程中写如下代码
dim x as long , y as long ,z as long ,j as long ,n as long
dim k as integer
x = val(text1.text)
y = val(text2.text)
z = val(text3.text)
j = val(text4.text)
if x = then k = k+1
if y= then k = k+1
if z= then k = k+1
if j= then k = k+1
' 若输入的数有负数举清 则必须先在这里写正模前下 n=-.....()
do
if x 0 and n = x then
text5.text = text5.text " " x
k = k +1
end if
if y 0 and n = then
text5.text = text5.text " " y
k = k +1
end if
if z 0 and n = z then
text5.text = text5.text " " z
k = k +1
end if
if j 0 and n = j then
text5.text = text.text "码汪 " j
k = k +1
end if
if k = 4 then exit for
n=n+1
loop
这是VB的代码。。。。 不知道点虐 适用不
用VB.NET随机产生0~100之间的10个整数 完成从小到大的排列、、、、、、、、、、、、急求急求呀 要考试了、
'vb点虐 2008
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a(9), b(9) As Integer
Randomize()
For i = 0 To 9
a(i) = Int(Rnd() * (101))
Next
System.Array.Copy(a, b, 10) '衡仔复制数组
System.Array.Sort(b) '排序,数组b就是虚枝小咐誉汪到大的排列
End Sub
End Class
vb 如何多个数比较大小
举个例子:比较a,b,c,d四个数字的大小,取Xmin=最小的数字。神基段例如:1,2,3,4,则Xmin=1;如果1,2,0,3,则Xmin=1,全为0时,Xmin=0
新建一个工程
上面建成一个text1再复制三个,生成了个控件数据
再搞一按钮,复制下面的代码就可以了,游誉测试没有问题,
Dim a(4) ‘定义数组
Private Sub Command1_Click()
For j = 1 To 4
a(j) = Text1(j - 1).Text ’这里为了简单我就用数组控件了
Min = a(1)
flag = 1
For i = 2 To 4
a(i) = Text1(i - 1).Text
If Min a(i) Then
If Min = 0 Then
Min = a(i)
End If
If a(i) = 0 Then
Min = Min
End If
Min = a(i)
flag = i
End If
Next i
Next j
MsgBox Min
End Sub
测试没有问题哦……
如果不想用控件数组的请,建四个文本框,写上a(1) = Text1.Text
a(2)=text2.text…锋或………
分享名称:vb点虐 比较大小排序 vb中大小
文章URL:http://myzitong.com/article/ddpcghj.html