所以我真的需要帮助才能做这个练习。用户必须输入成绩,在txtGrade中输入成绩后,它将分配到四个文本框中。
例如,用户在txtGrade中输入50。
输出应为:
CS:20订单不是必需的。
所以这就是我的尝试:
Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
txtA.Text = txtGrade.Text
End Sub
但我似乎无法想到如何将其分发给其他文本框。
答案 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