十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Sub Main()
创新互联是一家专业提供涞水企业网站建设,专注与网站设计、成都网站制作、HTML5建站、小程序制作等业务。10年已为涞水众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。
Dim Ispath As String
Console.Write("请输入目录:")
Ispath = Console.ReadLine()
Do While (Not Directory.Exists(Trim(Ispath)))
Console.WriteLine("你输入的目录不存在,请检查重新输入.")
Console.Write("请输入目录:")
Ispath = Console.ReadLine()
Loop
Console.WriteLine("目录为:{0}", Ispath)
Console.ReadLine()
End Sub
从你的例子来看你要实现的功能是
在
i=0
到
10
中
如果
i=3
就跳过
msgbox
("ok")
指令,否则执行该指令。
你可从另一方面来考虑。程序可以这样写:
dim
i
as
integer
for
i=0
to
10
if
i3
then
msgbox
("ok")
end
if
next
i
要给出具体的问题,比如在哪里时要跳跃,在按什么键时要跳跃,跳多高等。你可以在窗体的KeyPress中让对象的top减,在KeyUp时让对象的top加试试。