0

ですから、この演習を行うには本当に助けが必要です。ユーザーはグレードを入力する必要があり、txtGrade にグレードを入力すると、4 つのテキスト ボックスに分散されます。

たとえば、ユーザーは 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 に答える