vb简单小程序代码 vbs小程序代码

我可以帮你写一个简单的Visual Basic (VB.NET) 小程序代码，以下是一个简单的计算器程序，它能够执行加、减、乘、除四种基本运算。

' 此程序是一个简单的计算器
' 创建者: Your Name
' 创建日期: 2023-05-22
' 导入命名空间，以便使用窗体和事件
Imports System.Windows.Forms
Public Class CalculatorForm
    Inherits Form
    ' 定义两个Label用于显示结果和输入
    Private resultLabel As New Label()
    Private inputLabel As New Label()
    ' 定义两个TextBox用于输入数字
    Private firstNumberTextBox As New TextBox()
    Private secondNumberTextBox As New TextBox()
    ' 定义四个Button用于执行运算
    Private addButton As New Button()
    Private subtractButton As New Button()
    Private multiplyButton As New Button()
    Private divideButton As New Button()
    ' 构造函数，初始化窗体和控件
    Public Sub New()
        MyBase.New()
        ' 设置窗体属性
        Me.Text = "简单计算器"
        Me.Size = New Size(300, 200)
        ' 初始化并设置Label控件
        resultLabel.Text = "结果："
        resultLabel.Location = New Point(10, 10)
        resultLabel.Size = New Size(100, 20)
        inputLabel.Text = "输入："
        inputLabel.Location = New Point(10, 40)
        inputLabel.Size = New Size(100, 20)
        ' 初始化并设置TextBox控件
        firstNumberTextBox.Location = New Point(120, 40)
        firstNumberTextBox.Size = New Size(100, 20)
        secondNumberTextBox.Location = New Point(120, 70)
        secondNumberTextBox.Size = New Size(100, 20)
        ' 初始化并设置Button控件
        AddHandler addButton.Click, AddressOf Me.addNumbers
        addButton.Text = "+"
        addButton.Location = New Point(10, 100)
        addButton.Size = New Size(50, 30)
        AddHandler subtractButton.Click, AddressOf Me.subtractNumbers
        subtractButton.Text = "-"
        subtractButton.Location = New Point(70, 100)
        subtractButton.Size = New Size(50, 30)
        AddHandler multiplyButton.Click, AddressOf Me.multiplyNumbers
        multiplyButton.Text = "*"
        multiplyButton.Location = New Point(130, 100)
        multiplyButton.Size = New Size(50, 30)
        AddHandler divideButton.Click, AddressOf Me.divideNumbers
        divideButton.Text = "/"
        divideButton.Location = New Point(190, 100)
        divideButton.Size = New Size(50, 30)
        ' 将控件添加到窗体
        Me.Controls.Add(resultLabel)
        Me.Controls.Add(inputLabel)
        Me.Controls.Add(firstNumberTextBox)
        Me.Controls.Add(secondNumberTextBox)
        Me.Controls.Add(addButton)
        Me.Controls.Add(subtractButton)
        Me.Controls.Add(multiplyButton)
        Me.Controls.Add(divideButton)
    End Sub
    ' 加法运算
    Private Sub addNumbers(sender As Object, e As EventArgs)
        Dim firstNumber As Double = Double.Parse(firstNumberTextBox.Text)
        Dim secondNumber As Double = Double.Parse(secondNumberTextBox.Text)
        Dim result As Double = firstNumber + secondNumber
        resultLabel.Text = "结果：" & result.ToString()
    End Sub
    ' 减法运算
    Private Sub subtractNumbers(sender As Object, e As EventArgs)
        Dim firstNumber As Double = Double.Parse(firstNumberTextBox.Text)
        Dim secondNumber As Double = Double.Parse(secondNumberTextBox.Text)
        Dim result As Double = firstNumber - secondNumber
        resultLabel.Text = "结果：" & result.ToString()
    End Sub
    ' 乘法运算
    Private Sub multiplyNumbers(sender As Object, e As EventArgs)
        Dim firstNumber As Double = Double.Parse(firstNumberTextBox.Text)
        Dim secondNumber As Double = Double.Parse(secondNumberTextBox.Text)
        Dim result As Double = firstNumber * secondNumber
        resultLabel.Text = "结果：" & result.ToString()
    End Sub
    ' 除法运算
    Private Sub divideNumbers(sender As Object, e As EventArgs)
        Dim firstNumber As Double = Double.Parse(firstNumberTextBox.Text)
        Dim secondNumber As Double = Double.Parse(secondNumberTextBox.Text)
        If secondNumber <> 0 Then
            Dim result As Double = firstNumber / secondNumber
            resultLabel.Text = "结果：" & result.ToString()
        Else
            resultLabel.Text = "结果：除数不能为0"
        End If
    End Sub
    ' 主函数，运行程序
    Public Shared Sub Main()
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New CalculatorForm())
    End Sub
End Class

这段代码创建了一个简单的计算器应用程序，它包括两个文本框用于输入数字，四个按钮用于执行加、减、乘、除运算，以及两个标签用于显示输入和结果，每个按钮都绑定了一个事件处理程序，当按钮被点击时，相应的运算会被执行，并将结果显示在结果标签上。

要运行这个程序，你需要在Visual Studio中创建一个新的Windows Forms应用程序项目，然后将这段代码粘贴到项目的主窗体代码文件中，你可以编译并运行程序，它将显示一个简单的计算器界面。