VB.Net等级分配练习

时间:2013-07-25 12:47:44

标签: vb.net

所以我真的需要帮助才能做这个练习。用户必须输入成绩,在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

但我似乎无法想到如何将其分发给其他文本框。

1 个答案:

答案 0 :(得分: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