网络推广[Email]





呼唤VB达人

同济网论坛 http://bbs.tongji.net
自己作的自动编码程序,代码如下(变量申明部分省略)

g = 1
Do Until EOF(2)
Line Input #2, e
If Mid(e, 1, 1) = ch(d) Then
f = Mid(e, 2, 3)
h = InputBox(ch(d) & " 的第" & g & "個編碼為", , f)
g = g + 1
If h <> "" Then
dh(d, g) = f
Print dh(d, g)
End If
End If

问题是怎样连续调用这一过程,就是在按下输入框的“确认”之后,马上弹出下一个输入框供输入,我用了for 或者loop循环都奴能实现这一操作,所以向高人请教还有什么方法
 

更多同济资讯请访问同济大学论坛直接去论坛查看 举报不良信息 广告投放联系
我也来说两句 查看全部回复

最新回复

  • estellayuan (2008-7-08 22:37:46)

    难道lz也是一周vb精通?
    刚学第二天的人飘过~
  • 绝对次要 (2008-7-08 22:39:02)

  • Ms.Nik (2008-7-08 22:40:00)

    我不告诉你
  • Jaedong (2008-7-08 22:44:15)

    只会VC
  • 最真的模样 (2008-7-08 23:11:27)

    跟c不能比的嘛
  • 天草___流 (2008-7-08 23:20:30)

    我以为我VB学的还不错,呃,呃,被打击了……
  • gigilover (2008-7-08 23:26:27)

    还是VA好啊~
  • TJ小五哥 (2008-7-09 09:24:57)

    QUOTE:

    原帖由 gigilover 于 2008-7-8 23:26 发表
    还是VA好啊~
    其实,我个人觉得,AV更好一点
  • appreciate (2008-7-09 09:35:53)

  • 大家好 (2008-7-09 11:56:49)

    搞不明白楼主想要实现什么功能。。
  • 大家好 (2008-7-09 12:04:34)

    为什么用do loop不行呢
  • 第五号情人 (2008-7-09 12:09:09)

    额....只学过点VB.NET,我很不自信地说:可不可以用模板函数来实现?
  • xiaowufeidao (2008-7-09 12:17:15)

    你应该把代码都贴上来。

    while循环啥的应该是可以实现的。
  • hallway.wang (2008-7-09 12:23:55)

    这应该很简单的...
  • hallway.wang (2008-7-09 12:26:05)

    键盘输入为空的时候跳出...
  • chentianyu1 (2008-7-09 12:34:17)

    没看懂说明,不知道lz要干什么
更多同济大学BBS请访问同济大学论坛直接去论坛查看 举报不良信息 广告投放联系