VB Get使用疑问 （高手请进）
我知道get 是将一个二进制文件输入到一个变量中。
我是这么理解这个过程的，第一步：get将二进制文件打开，作为一个二进制数据流存放在内存中，第二步：根据变量的数据类型，对二进制数据流进行数据解析，并将结果写入到变量中
我现在的情况是：我已经有了这个二进制数据流了，我只要第二步的过程，请问，有谁有这个过程的VB代码？或者告诉我，Get是调用的哪个函数实现的这个过程也行啊~~多谢了多谢了
1楼的方法我会，但我觉得不好，因为这样有一个写磁盘的过程，在我做循环的时候会很慢很慢，我要的就是一个纯粹在内存中进行解二进制数据流的过程
2楼看来对这个函数挺熟的，那么请问，有没有什么办法将我已知的这个二进制数据流也放到指定变量的内存块中呢？其实说明白了我就是想将这个二进制数组直接解译到一个变量中，但我不想用文件的方式去处理。
我想我还是得把问题再用别的方法说一下，情况是这样的，首先，我在数据库的某一个字段中取得了一串数据（当然，这个数据是二进制数组方式存取的），现在，我得将这串数据存到到一个我自定义的结构体数组中间去，那么请问，怎么操作？
没有人给出更好的办法吗?
如:
Open FileName For Binary As #1
Dim i As Long '//长整型变量，4个字节
Get #1, 4, i '//从文件中读4个字节的数据，存放到储存i的内存块中。
Close #1
Get是不会去判断数据的类型的，反正都是1或者0组成的2进制数据
Dim a() As byte '定义用来接受二进制数据流的数组
Open "c:\a.dat" For Binary As #1
Get #1, ,a '用a来接受二进制数据流
Close #1
如果不在磁盘文件，就更简单（那就是程序生成的数据了）。生成的时候直接写入数组，使用就直接访问数组元素。
还有一种可能就是其他程序生成的数据，需要获取其进程句柄，然后引用。
VB Get使用疑问 (高手请进)
Open FileName For Binary As #1 Dim i As Long '\/\/长整型变量，4个字节 Get #1, 4, i '\/\/从文件中读4个字节的数据，存放到储存i的内存块中。Close #1 Get是不会去判断数据的类型的，反正都是1或者0组成的2进制数据
vb的小问题。高手请进
要解决VB的小问题，首先在菜单中找到“工程\/引用\/Microsoft Script Control 1。0”，确保前面有勾，然后点击OK，你将获得满意的答案，并且得到高分。在代码中，我们定义了几个变量。`Dim objScript As New ScriptControl` 创建了一个新的ScriptControl对象。`a As Double, x As Double, y As String`...
vb 高手请进,加载问题
1、另一台电脑没有安装VB程序，可能缺少程序执行需要的库文件，你可以先将程序打成安装包，再复制到另一台电脑，安装后就可以运行了。2、另一台电脑安装了VB程序，但编写的程序中需要加载某些文件，而这台电脑没有对应的文件，你只需要将加载的文件（路径也要一致）复制到另一台电脑。
vb高手请进(有高分)
告诉你，很简单，你在For n = 1 To 6 这句后面加上一句c=0就可以了 之前的错误是因为你的C一直在累加，所以到N=6的那句的时候C已经不是0了，还在累加之前的数字所以会导致出错 我试验过了，你把For n = 1 To 6改成For n = 1 To 1000，然后下面加上一局C=0，则会打印出6，28，496...
vb高手请进
其中，upperbound为上限，lowerbound为下限。例如，要生成5至10的随机整数，可使用：Int(6 * Rnd + 5)。实际应用中，RND为伪随机数，可通过设定可变种子，如时间，实现真正的随机性。若需生成偶数，可先通过INT确保结果为整数，然后进行偶数判断或再次随机。正确实现需注意随机数的生成机制及结果的处理...
请教c#\/vb.net高手{ get; set; }属性的写法问题。
public string name{get;set;} 编译器自动生成（可能会更负责更完善）：private string name;public string Name { get { return name;} set { name= value;} } 这种写法在一般时候很好，但是有一种情况你不得不放弃这种写法，那就是你要在里面进行校验的时候，比如set中有运算或者校验之类的，get...
vb高手请进
function day(k:longint):longint;var days:longint;begin case m of 1,3,5,7,8,10,12:days:=31;4,6,9,11:days:=30;2:if ((y mod 4=0) and (y mod 100<>0)) or ((y mod 100=0) and (y mod 400=0)) then days:=29 else days:=28;end;day:=days;end;begin readl...
vb高手请进,关于关闭进程问题
pid 好象a=shell("") a返回的就是[这个要你自己去验证下，我也不清楚]--- Dim objWMIService As Object,colProcesslist As Object,objProcess As Object Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\\cimv2")Set colProcesslist = objWMIService.ExecQuery(...
vb高手请进,模拟Select Case 语句.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("正确输入先") Exit Sub End If Dim k As Integer Select Case TextBox2.Text Case "一" k = 1 Case "二...
江湖告急 VB高手请进来帮一下
一问：以下是你函数中的语句，s是要返还的，定义全局，必定义为初值1（因计算的是乘法）.n是你接收过来的数据！if中的条件是0的阶乘是等于1的一个特例.s=1 if n<>0 then for i=n to 1 step -1 s=s*n next i else s=1 end if 只做了一个，，没时间，，我闪了，，有事 不好...
