Public Class Form1
Dim num1, num2, input, times As Integer
Dim rnd As New Random
Dim result As MsgBoxResult
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Do
num1 = rnd.Next(10, 100)
num2 = rnd.Next(10, 100)
times = 0
Do
times += 1
input = InputBox(num1 & "+" & num2 & "= ?", "第" & times & "次
作答")
If Str(input) = "" Then MsgBox("是否繼續", 4)
Loop Until input = num1 + num2
result = MsgBox("是否繼續", 4)
If result = MsgBoxResult.No Then Exit Do
Loop
End
End Sub
End Class
請問標紅的那邊要怎麼改
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.237.99