รบกวนช่วยดูโปรแกรมให้หน่อยค่ะรันแล้วมันไม่แสดงค่าหาเลขคู่กับเลขคี่ค่ะ
Private Sub Form_Load() Dim r() As String Dim x() As Integer Dim result() As Integer Dim Outputs As String Dim i, n As Integer n = CInt(InputBox("ใส่จำนวนตัวเลขที่รับค่า ")) ReDim x(n - 1), r(n - 1), result(n - 1) For i = 0 To n - 1 x(i) = CInt(InputBox("ใส่ตัวเลขตัวที่" & i + 1)) result(i) = x(i) Mod 2 If result(i) = 1 Then r(i) = "Odd number " Else r(i) = "Even number" End If Outputs = "ผลลัพธ์ของค่าตัวเลขตัวที่ " & i + 1 & " " & r(i) & Constants.vbCrLf Next Text1.Text = "" Text2.Text = "" End Sub
|