作者tfg09730820 (猴)
看板Visual_Basic
标题[.NET] inputbox的取消键如何按了就跳出
时间Fri Oct 26 23:31:48 2012
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