スレ立てるまでもない質問はここで 160匹目

**デフォルトの名無しさん** · 2022/07/26(火) 22:55:38.11

テキストボックスとラベルを比較したいんだけどこれじゃうまくいかないのでどうすればいいか教えてください
ボタン押しても10点しか出ない
Dim inp1 As String

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles http://Button1.Click
inp1 = TextBox1.Text
Label1.Text = CStr(Int(Rnd() * 99))
Label2.Text = "得点"
If "inp1" = Label1.Text Then
Label2.Text = "100点"
ElseIf "inp1" > Label1.Text Then
Label2.Text = "10点"
ElseIf "inp1" < Label1.Text Then
Label2.Text = "5点"

End If