摘要：Module Module1 Sub Main() Dim array(999) As Integer Dim searchValue As Integer Dim valueIndex As Integer Dim rnd As New Random() For i As Integer = 0 阅读全文

摘要：Public Class Form1 Dim charAarray() As Char '加密 Private Sub Btn_En_Click(sender As System.Object, e As System.EventArgs) Handles Btn_En.Click Dim s As 阅读全文

摘要：Imports System.ThreadingModule Module1 Sub Main() Dim int_array(9) As Integer Dim rnd As New Random '填充数组元素 For i As Integer = 0 To int_array.Length - 阅读全文

摘要：Imports System.ThreadingModule Module1 Sub Main() 'test code 'Dim a, b As Integer 'a = 3 'b = 4 'Exchange(a, b) 'Console.WriteLine("a=" & a & ", b=" & 阅读全文