帮我改改这VB题 - VB / 基础类
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
xpath = App.Path & "\ku\score.txt"
Open xpath For Random As #1 Len = Len(personl)
personl.number = Val(Text1.Text)
personl.score = Val(Text2.Text)
personl.name = Text3.Text
Put #1, Val(Text4.Text), personl
i = i + 1
Close #1
MsgBox "学生信息已写入！", vbInformation
Label1.Caption = "总记录数：" + i
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
xpath = App.Path & "\ku\score.txt"
Open xpath For Random As #1 Len = Len(personl)
Get #1, Val(Text4.Text), personl
Text1.Text = personl.number
Text2.Text = personl.score
Text3.Text = personl.name
End Sub
哪里有问题？
别考人！
VB code:
Private Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
xp
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
