我放到了邮箱的已发送文件夹里，麻烦大家帮忙看看，我折腾好几天总是在图片转换上出问题，找不到原因ID:[email protected]：1985050266在已发送文件夹里面

我下面这段代码有问题么？在运行的时候没有报错，但结果不是我想要的结果Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Dim word(7) As String, i As Integeri = 0For i = 0 To 7If KeyCode = vbKeyReturn Then Select Case i Case 0 Picture1.Picture = Picture3.Picture Case 1 Picture1.Picture = Picture4.Picture Case 2 Picture1.Picture = Picture5.Picture Case 3 Picture1.Picture = Picture6.Picture Case 4 Picture1.Picture = Picture7.Picture Case 5 Picture1.Picture = Picture8.Picture Case 6 Picture1.Picture = Picture9.Picture Case 7 Picture1.Picture = Picture2.Picture End Select word(i) = Text1.Text Text1.Text = ""End If i = i + 1Next iEnd Sub按一次回车后，picture1显示的图片与picture9相同，而不是一次次循环过来的，不知道问题出在哪里，请哪位指点一下，谢谢

背单词的我有个，你要吗？你这代码不知道你要做什么？

嗯，麻烦发给我好么，感谢[email protected]

2楼的代码 在for i=0 to 7 next i中加入了i = i + 1导致的错误。

[email protected]楼上的已经发出,请注意收取!

7楼 发给我一个可以吗？跪求 [email protected]

回复：7楼
背单词的发给我一个 跪求

[email protected]