正文
vb.net比较大小排序 vb程序比较数字大小
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
如何在VB中输入两个不同的数,将他们的大小排序,较大的放在text1,较小的放在te?
通常可以采用两种方案,
第一种是采用对话框的形式,输入两个数字,当然是以字符串的形式的,然后通过类型转换函数,把他们转换成数值型进行比较确定让大的放在a中,小的放在B中否则就交换a和b的值。然后把b的值放到文本框一中,把b的值放到文本框二中就可以了。
第二种方法是直接先把数字输入在文本框一和文本框二中,然后通过类型转换函数,把它们转换为数字型放到变量a和b中,再进行比较,如果A小于b的话就交换a和b的值,最后把a的值放到文本框一中,把b的值放到文本框二中就可以了。
求vb.net(vb2010)程序代码 产生30个50以内的随机正整数,将他们从大到小排序后输出
vb2010写的:
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 如何多个数比较大小
举个例子:比较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.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的代码。。。。 不知道.net 适用不
vb.net比较大小排序的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb程序比较数字大小、vb.net比较大小排序的信息别忘了在本站进行查找喔。