vb从1到50的自然数对