太平洋人寿保单查询:VB6。0编程:在使用PRINT语句时,有时会出现“没有结束语句”的错误,如何解决?

来源:百度文库 编辑:中科新闻网 时间:2024/05/15 11:47:26
如编写下列程序:Private Sub Picture1_Click()
Dim i%
For i = 1 To 5
picture 1.print tab(1+1.5*(i-1));"★";string(2+3*(5-i),"☆");"★"
Next i
picture 1.print tab(8.5);"☆"
For i = 6 To 10
picture 1.print tab(1+1.5*(10-i));"☆";string(2+3*(i-6),"★");"☆"
Next i
End Sub

在使用PRINT语句时,有时会出现“没有结束语句”的错误,如何解决?

改为这样就可以了!

Private Sub Picture1_Click()
Dim i%
For i = 1 To 5
picture1.print tab(1+1.5*(i-1));"★";string(2+3*(5-i),"☆");"★"
Next i
picture1.print tab(8.5);"☆"
For i = 6 To 10
picture1.print tab(1+1.5*(10-i));"☆";string(2+3*(i-6),"★");"☆"
Next i
End Sub

删掉三个picture与1之间的空格