| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 667 人关注过本帖
标题:请教自定义数据类型问题
取消只看楼主 加入收藏
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
请教自定义数据类型问题
在学习自定义数据类型时,遇到一例题如下:
Option Explicit
Private Type Record   ' 定义用户自定义的数据类型。
    ID As Integer
    Name As String * 32
End Type
Private Sub Form_Click()
    Dim MyRecord As Record, Position   ' 声明变量。
    ' 为随机访问打开样本文件。
    Open App.Path & "\MyFile.txt" For Random As #1 Len = Len(MyRecord)
    ' 使用 Get 语句来读样本文件。
    For Position = 1 To 5  ' 我加的测试。
       Get #1, Position, MyRecord   
       Print MyRecord.ID      ’分别打印自定义数据
       Print MyRecord.Name
    Next
    Close #1   ' 关闭文件。
End Sub
运行后如附图所示,请问:
1、这里的变量ID里存的是什么东西?(貌似无规律可循?)
2、为什么“Name As String * 32”如改写为“Name As String * 22”或其他值,输出就乱了?
3、为什么第一行不显示“1.”?

附:在程序所在目录下有“MyFile.txt"文件,其中有五行字符串:
1.中国                           
2.中国人民                        
3.中国人民共和国                    
4.中国人民共和国万岁            
5.全世界无产者联合起来!   
搜索更多相关主题的帖子: 用户 样本 Random 
2014-12-23 17:12
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:0 
怎么插入不了截图?

[ 本帖最后由 zhengang1026 于 2014-12-23 17:17 编辑 ]
2014-12-23 17:14
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:0 
MyFile.txt 中的内容就是:
1.中国                           
2.中国人民                        
3.中国人民共和国                    
4.中国人民共和国万岁            
5.全世界无产者联合起来!
MyFile.rar (496 Bytes)
2014-12-23 19:40
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:0 
回复 3楼 xzlxzlxzl
xzlxzlxzl版主,再帮我看看啊,期望得到您的帮助!程序运行后得到下面的结果:(变量ID分别是11825、2573、8224等等,这都是些什么啊?)
 11825
中国                              
 2573
2.中国人民                          
 8224

3.中国人民共和国                     
 8224
   
4.中国人民共和国万岁               
 8224
     
5.全世界无产者联合起来!
2014-12-24 21:33
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:0 
回复 8楼 xzlxzlxzl
哦,是这样!谢谢版主耐心解答!
另外版主误会了,我并没说是随机写的文件,例题中只是说“为随机访问打开样本文件”,且文件后缀就是.txt 当然是文本文件。
2014-12-25 21:07
快速回复:请教自定义数据类型问题
数据加载中...
 
   



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

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