设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › vb如何读取文本一行的三个数字赋值给变量 ...

vb如何读取文本一行的三个数字赋值给变量

[复制链接]
查看11 | 回复0 | 2009-8-26 18:58:56 | 显示全部楼层 |阅读模式
PrivateSubCommand1_Click()IfDir(App.Path&"\"&Text2.Text)=""ThenMsgBox("输入文件不存在")ElseOpenApp.Path&"\"&Text2.TextForInputAs1Command2.Enabled=TrueEndIfCommand1.Enabled=FalseEndSubPrivateSubCommand2_Click()DimaAsInteger,bAsInteger,cAsIntegerIfEOF(1)=FalseThenInput#1,a,b,cPrint"a="&a&"b="&b&"c="&cElseClose#1Command2.Enabled=FalseCommand1.Enabled=TrueEndIfEndSubPrivateSubForm_Load()Command2.Enabled=FalseEndSub
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行