时间戳

首页 > 解决方案 > Visual basic编写最小数程序

vb.net - Visual basic编写最小数程序

问题描述

我是 Visual Basic 的新手，我正在尝试编写一个程序来确定三个中最小的数字。每次我运行程序时，它都不会弹出消息框。这是我到目前为止所拥有的：

公开课形式1

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

    Dim TextBox1 As Integer
    Dim TextBox2 As Integer
    Dim TextBox3 As Integer

    TextBox1 = Val(TextBox1)
    TextBox2 = Val(TextBox2)
    TextBox3 = Val(TextBox3)

    If TextBox1 < TextBox2 And TextBox1 < TextBox3 Then
        MessageBox.Show(TextBox1)


    End If



End Sub

标签： vb.net

解决方案

您还可以将 .Min 与数组一起使用来查找最小值。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'Declare an array of type Integer with 3 elements
    Dim value(2) As Integer
    'A variable to hold the parsed value of TextBoxes
    Dim intVal As Integer
    If Integer.TryParse(TextBox1.Text, intVal) Then
        'Assign the parsed value to an element of the array
        value(0) = intVal
    End If
    If Integer.TryParse(TextBox2.Text, intVal) Then
        value(1) = intVal
    End If
    If Integer.TryParse(TextBox3.Text, intVal) Then
        value(2) = intVal
    End If
    'Use .Min to get the smalles value
    Dim minNumber As Integer = value.Min
    MessageBox.Show($"The smalles value is {minNumber}")
    'Or
    'in older versions of vb.net
    'MessageBox.Show(String.Format("The smallest value is {0}", minNumber))
End Sub

推荐阅读