Code tìm số lớn nhất của mảng 1 chiều cho trước?

[HaDuyNguyen]

Gửi bạn Nobi và các bạn chuyên về VB.NET:
tôi đã viết và gửi tài liệu đính kèm cộng với giải thích cụ thể yêu cầu của vấn đề, không biết có ai có thể giúp đỡ tôi về vấn đề này không? Hôm nay tôi có thêm một vấn đề nhỏ, muốn nhờ các bạn giúp cho: đó là Code tìm số lớn nhất của mảng 1 chiều cho trước và hiển thị re màn hình, Code phải viết trong Console, không viết trong Windows Form.
Tôi nghĩ vấn đề này chắc không khó đối với các bạn, rất mong nhận được sự giúp đỡ của các bạn, xin cám ơn.

[1045007]

Có thể câu hỏi của bạn cơ bản quá & seach thì rất nhiều nên ít nhận được câu trả lời.

Code: [Select all] [Expand/Collapse]

1. Module Module1
2.  
3.     Sub Main()
4.         Dim max = MaxValue(2, 12, 8, 3, 9, 0, 7)
5.         Console.WriteLine("Max value in Array {0}", max)
6.         Console.ReadLine()
7.     End Sub
8.  
9.     Function MaxValue(ByVal ParamArray Array() As Int32)
10.         Dim max = Array(0)
11.         For i As Int32 = 1 To Array.Length - 1
12.             If max < Array(i) Then max = Array(i)
13.         Next
14.         Return max
15.     End Function
16.  
17. End Module

GeSHi © Codebox Plus Extension

[HaDuyNguyen]

Rất cám ơn về câu trả lời của bạn, nhưng do tôi không viết cụ thể ,nê bạn chưa hiểu rõ vấn đề.Tôi xin viết lại code của yêu cầu như sau:

Dim aInt() as Byte = { 19,45,125,2,200,84}

Đây là câu hỏi và yêu cầu là viết trong Console. Còn một vấn đề nữa là trước đó tôi có một bài viết và đã gửi cả hình ảnh của chương trình lên, nhưng cho đến nay vẫn không có câu trả lời, đây là một vấn đề tương đối khó,nếu bạn am hiểu nhiều về VB.Net thì tôi rất mong nhận được sự giúp đỡ của bạn và của các bạn khác. Xin cám ơn nhiều.

[1045007]

Chào bạn HaDuyNguyen. Các bài viết bạn nên reply chứ không nên tạo chủ đề mới để người trả lời tiện theo dõi
Bài của bạn thì chỉ cần sửa lại như thế này

Code: [Select all] [Expand/Collapse]

1. Module Module1
2.  
3.     Sub Main()
4.         Dim aInt() As Byte = {19, 45, 125, 2, 200, 84}
5.         Dim max = MaxValue(aInt)
6.         Console.WriteLine("Max value in Array {0}", max)
7.         Console.ReadLine()
8.     End Sub
9.  
10.     Function MaxValue(ByVal ParamArray Array() As Byte) As Byte
11.         Dim max = Array(0)
12.         For i As Byte = 1 To Array.Length - 1
13.             If max < Array(i) Then max = Array(i)
14.         Next
15.         Return max
16.     End Function
17.  
18. End Module

GeSHi © Codebox Plus Extension