[lxa85]

If t Mod 6 = 0 Then Print Print A(t) Else: Print A(t) »

Двойной принт - это правильно?

Dim t(1 To 40) As Integer A(t) = Rnd »

И массив помему неверно объявлен. В QBasic программировал давно, но помоему должно выглядеть так:
Dim A(40) as Integer

A(t) = Rnd »

Может можно одной строкой обойтись, может нет, трассировщик вам в помощь.
Цикл For должен закрываться конструктивой Next. (Если речь о VB)

немогу найти ошибку как никак »

Трассировщик, трассировщик и еще раз трассировщик. И все будет отлично

[Triz]

Двойной принт - это правильно? »

таким образом я хотел сделать так чтобы он вывел пустую строку.

[pva]

1. else и двоеточие после else - так по синтаксису надо? ещё нехватает next t
2. 40 на 6 не делится, поэтому после последней строки перевода выведено не будет
3. при любом значении t выполняется Print A(t), зачем тогда загонять его в if?

Код:

If t Mod 6 = 0 Then Print
EndIf
Print A(t)

4. мне кажется через двойной цикл было бы правильней сделать

Код:

for t=0 to 40 step 6
  for i=t to min(40, t+6)
     Print A(i)
  next i
  Print
next t