vb語言這個圖形怎麽打 空格用tab()的代碼

Private?Sub?Command2_Click()

For?i?=?1?To?5

Print?Tab(12?-?2?*?i?+?1);?CStr(1);

For?j?=?2?To?2?*?i?-?1

If?j?<=?i?Then

Print?Space(1)?+?CStr(j);

Else

Print?Space(1)?+?CStr(2?*?i?-?j);

End?If

Next?j

Print

Next?i

For?i?=?4?To?1?Step?-1

Print?Tab(12?-?2?*?i?+?1);?CStr(1);

For?j?=?2?To?2?*?i?-?1

If?j?<=?i?Then

Print?Space(1)?+?CStr(j);

Else

Print?Space(1)?+?CStr(2?*?i?-?j);

End?If

Next?j

Print

Next?i

End?SubPrivate?Sub?Command1_Click()

For?i?=?1?To?5

Print?Tab(6?-?i);?CStr(1);

For?j?=?2?To?2?*?i?-?1

If?j?<=?i?Then

Print?CStr(j);

Else

Print?CStr(2?*?i?-?j);

End?If

Next?j

Print

Next?i

For?i?=?4?To?1?Step?-1

Print?Tab(6?-?i);?CStr(1);

For?j?=?2?To?2?*?i?-?1

If?j?<=?i?Then

Print?CStr(j);

Else

Print?CStr(2?*?i?-?j);

End?If

Next?j

Print

Next?i

End?Sub

上一篇:數控加工中心仿真真軟件

下一篇:pM2021隊列怎麽計算