看板 Visual_Basic 關於我們 聯絡資訊
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