| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 655 人关注过本帖
标题:新手拜教
只看楼主 加入收藏
wenmzh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-9-11
收藏
 问题点数:0 回复次数:5 
新手拜教
999999

[[it] 本帖最后由 wenmzh 于 2008-9-17 13:36 编辑 [/it]]
2008-09-11 16:46
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
Private Sub Command1_Click()
Dim s As String
Dim flag As Integer
flag = 0

Open "C:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
If flag Mod 6 = 0 Then
Print Mid(s, 3, 1)
End If
flag = flag + 1
Loop
Close #1
End Sub

偶是菜鸟鸟偶惧WHO?!!!!
2008-09-11 20:59
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
多看些字符串的函数

偶是菜鸟鸟偶惧WHO?!!!!
2008-09-11 21:00
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
回复 1# wenmzh 的帖子
以后题目不要写成那样,否则没人回答的

偶是菜鸟鸟偶惧WHO?!!!!
2008-09-12 09:22
wenmzh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-9-11
收藏
得分:0 
知道了 ,谢谢
2008-09-12 13:30
wenmzh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-9-11
收藏
得分:0 
好像无法显示和保存所提取的数据啊?
好像无法显示和保存所提取的数据啊?
2008-09-15 09:52
快速回复:新手拜教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017014 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved