Visual Studio Code / VSCode Part13

Visual Studio Code / ..

208:デフォルトの名無しさん
22/07/26 22:58:48.07 5qP0bzbL.net
テキストボックスとラベルを比較したいんだけどこれじゃうまくいかないのでどうすればいいか教えてください
ボタン押しても10点しか出ない
Dim inp1 As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles URLﾘﾝｸ(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

次ページ

続きを表示

1を表示