vb在形式上每一秒都展现了李白的静夜思绪，如何造句？

新项目，1 个按钮，1 个计时器

Dim i%

Private Sub Command1_Click()Clsi = 0

TrueEnd Sub

Private Sub Form_Load()= "开始使用"

False

End Sub

Private Sub Timer1_Timer()Select Case i

Case 1

Print "寂静的夜晚思念"

Case 2

Print "-李白"

Case 3

Print "床前明亮的月光，"

Case 4

Print "怀疑是地上结霜"

Case 5

Print "抬起头，看着皎洁的月亮，"

Case 6

Print "低下头，想起家乡"

Case 8

False

End Select

i = i + 1

End Sub

定时器控制，间隔设置初始字符串数组（4）在1000form加载中，在每个单元中放一句话，并恰到好处地添加标题。

以 timer（） 事件写入形式声明静态 i（或全局 i）。 text = array（i） 或者获取一个标签来更改表单上标签的标题，然后。

i=i+1if i>4 then i=0