大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net求最大值代码 编程求最大值

菜鸟急求vb.net对access数据库操作中取出某列最大值的代码

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

创新互联专注于新平网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供新平营销型网站建设,新平网站制作、新平网页设计、新平网站官网定制、小程序定制开发服务,打造新平网络公司原创品牌,更为您提供新平网站排名全网营销落地服务。

Dim cstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db.mdb"

Dim con As New OleDb.OleDbConnection(cstring)

Dim sql As String = "select max(字段名) from 表名"

con.Open()

Dim cmd As New OleDb.OleDbCommand(sql, con)

Dim myreader As OleDbDataReader = cmd.ExecuteReader

myreader.Read

TextBox1.Text = myreader(0)

con.Close()

End Sub

vb程序设计,求三个数的最大值和最小值,代码怎么打,尽量简单点不要太复杂

思路,把三个数存放到变量x,y,z,里,然后按照从大到小排列,最后x里是最大值,z里是最小值。

Dim x As Single, y As Single,z As Single

Dim t As Single

x = Val(InputBox("输入第1个数:"))

y = Val(InputBox("输入第2个数:"))

z = Val(InputBox("输入第3个数:"))

If x y Then

t = x

x = y

y = t

End If

If x z Then

t = x

x = z

z = t

End If

If y z Then

t = y

y = z

z = t

End If

Print "最大值:";x

Print "最小值:";z

VB中如何求最大值和最小值,我写了下面的代码可是只能求最大值和平均值。最小值一直显示0

原因:代码不正确造成的。

1、首先打开需要编辑的Excel表格,进入到编辑页面中。

2、然后在编辑的窗口中,鼠标右键单击工作表,选择打开“查看代码”。

3、然后在弹出来的窗口中点击输入下方的代码:

Private Sub Command1_Click()

Dim Num As Integer, Max As Integer, Min As Integer, s As Integer

For i = 1 To 20

Num = Int(150 * Rnd + 50)

Print Num;

If i = 1 Then Max = Num: Min = Num '第一次循环时,先对最大最小值赋初值

If Max Num Then Max = Num

If Min Num Then Min = Num

s = s + Num

Next i

Print '换行

Print "最大值:"; Max;

Print "最小值:"; Min; "平均值:"; s / 20

End Sub

4、然后点击工具栏中的“运行”图标。

5、然后就完成了。

vb.NET一个找出数组最大最小值的程序有个小问题 谁看一下

你是不是应该对最大值和最小值赋初值(比如把 r(1) 赋给最大值和最小值)呢?不然最小值默认初始值是‘0’,后面的判断就不起作用了。你可以加个断点试试,他们的初始值是多少。。。

用vb.net求三个数中的最大值以及最小值函数的编写

MaxOrMin 指示返回最大还是最小.

Private Function Math(ByVal num1 As Integer, ByVal num2 As Integer, ByVal num3 As Integer, ByVal MaxOrMin As Short) As Integer

Dim s() As Integer = {num1, num2, num3}

Dim max, min As Integer

If s(0) s(1) Then

min = s(0)

max = s(1)

End If

If s(1) s(2) Then

min = s(1)

max = s(2)

End If

If MaxOrMin = 0 Then Return max

If MaxOrMin = 1 Then Return min

End Function


网站标题:vb.net求最大值代码 编程求最大值
标题链接:http://dzwzjz.com/article/hephpj.html
在线咨询
服务热线
服务热线:028-86922220
TOP