| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 661 人关注过本帖
标题:【请教】怎样通过定义Type从字节数组中读取数据?谢谢!
只看楼主 加入收藏
lzlichun
Rank: 1
等 级:新手上路
帖 子:8
专家分:9
注 册:2012-2-24
收藏
 问题点数:0 回复次数:3 
【请教】怎样通过定义Type从字节数组中读取数据?谢谢!
有一字节数组Data(),其中有3组数据,分别为:

数学,90
语文,80
英语,100

请教,怎样通过定义Type从中读取?
比如如下定义:

private type mytype
dt1 as string*2
dt2 as long
end type

搜索更多相关主题的帖子: private 英语 数学 语文 
2013-09-24 08:46
zhnzz4229
Rank: 2
等 级:论坛游民
帖 子:23
专家分:23
注 册:2011-12-2
收藏
得分:0 
程序代码:
Private Type MyData
    data1 As String
    data2 As String * 12
End Type
Dim MyDat1(2) As MyData

Private Sub Form_Click()
Dim number As Integer
For number = 0 To 2
    MyDat1(number).data1 = InputBox("请输入科目", "提示")
    MyDat1(number).data2 = InputBox("请输入成绩", "提示")
    Debug.Print MyDat1(number).data1, MyDat1(number).data2
Next number
End Sub
看看能不能解决你的问题、
2013-09-28 20:32
九连阳
Rank: 2
等 级:论坛游民
帖 子:36
专家分:65
注 册:2013-7-4
收藏
得分:0 
这方法怎么样
Private Type 成绩
    姓名 As String
    语文 As Single
    数学 As Single
    英语 As Single
End Type
Dim 成绩表(1 To 65) As 成绩, i As Integer

Private Sub Command1_Click()

i = i + 1
成绩表(i).姓名 = InputBox("姓名")
成绩表(i).语文 = Val(InputBox(成绩表(i).姓名 + "语文成绩"))
成绩表(i).数学 = Val(InputBox(成绩表(i).姓名 + "数学成绩"))
成绩表(i).英语 = Val(InputBox(成绩表(i).姓名 + "英文成绩"))
2013-09-28 23:07
lzlichun
Rank: 1
等 级:新手上路
帖 子:8
专家分:9
注 册:2012-2-24
收藏
得分:0 
谢谢楼上zhnzz4229和九连阳二位老师!

祝国庆节快乐!!!
2013-09-30 15:50
快速回复:【请教】怎样通过定义Type从字节数组中读取数据?谢谢!
数据加载中...
 
   



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

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