十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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
思路,把三个数存放到变量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
原因:代码不正确造成的。
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、然后就完成了。
你是不是应该对最大值和最小值赋初值(比如把 r(1) 赋给最大值和最小值)呢?不然最小值默认初始值是‘0’,后面的判断就不起作用了。你可以加个断点试试,他们的初始值是多少。。。
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