0

所以我真的需要帮助来做这个练习。用户必须输入一个成绩，在txtGrade中输入成绩后，它将分布在四个文本框中。

例如，用户在 txtGrade 中输入 50。

输出应该是：

CS: 20
IT: 10
EX: 10
EM: 10

该命令不是必需的。

所以这就是我尝试过的：

 Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    txtA.Text = txtGrade.Text
End Sub

但我似乎想不出如何将它分发到其他文本框。

4

1 回答 1

1

尝试这个

If txtGrade.Text <> "" Then
    If CDbl(txtGrade.Text) Then
    texCS.Text = (CDbl(txtGrade.Text) * 40 ) / 100
    texIT.Text = (CDbl(txtGrade.Text) * 20 ) / 100
    texEX.Text = (CDbl(txtGrade.Text) * 20 ) / 100
    texEMP.Text = (CDbl(txtGrade.Text) * 20 ) / 100
    End If

End If
于 2013-07-25T12:57:39.453 回答