Question

我有一个小程序用于一些大学课程，我必须输入一组人的性别和年龄数据，然后计算男性和女性百分比以及儿童和成人百分比。我坚持的一点是我想在单独的表格上的标签上显示我的结果。这是我的代码：

Public Class Form1

Dim TotalGender As Integer
Dim TotalAge As Integer
Dim MaleCount As Integer
Dim FemaleCount As Integer
Dim ChildCount As Integer
Dim AdultCount As Integer
Dim MalePercent As Single
Dim FemalePercent As Single
Dim AdultPercent As Single
Dim ChildPercent As Single

Private Sub btnSub_Click(sender As Object, e As EventArgs) Handles btnSub.Click

    If cmbGender.Text = "Male" Then
        MaleCount += 1

    End If

    If cmbGender.Text = "Female" Then
        FemaleCount += 1

    End If

    If cmbAge.Text > 18 Then
        ChildCount += 1

    End If

    If cmbAge.Text <= 18 Then
        AdultCount += 1
    End If
End Sub

Private Sub btnResults_Click(sender As Object, e As EventArgs) Handles btnResults.Click

    Form2.Show()

    MalePercent = MaleCount / TotalGender * 100
    FemalePercent = FemaleCount / TotalGender * 100

    AdultPercent = AdultCount / TotalAge * 100
    ChildPercent = ChildCount / TotalAge * 100





End Sub

Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click


    TotalGender = 0
    TotalAge = 0
    MaleCount = 0
    FemaleCount = 0
    ChildCount = 0
    AdultCount = 0
    MalePercent = 0
    FemalePercent = 0
    AdultPercent = 0
    ChildPercent = 0
End Sub

结束班

我的第二个表单已经放置了所有标签，我知道如何在标签上显示结果，我只是不知道如何将结果传输到另一个表单

Answer 1

您可以在表单1上书写。它会在form2上显示您的结果

Form2.Label1.Text = AdultCount
        Form2.Show()

将变量链接到vb中的另一个表单上的标签

1 个答案: