admin 管理员组文章数量: 1184232
2024年3月27日发(作者：win10家庭版不支持sql2008)
End Sub
Private Sub Command5_Click()
Open "c:score" For Random As #1 Len = Len(std)
record = Val() - 1
If Val() <= 1 Then
MsgBox "超出记录范围", 2 + vbExclamation, "警告": Close #1
Else
Get #1, record, std
=
=
If = "1" Then
= True
Else
= True
End If
=
record = LOF(1) / Len(std)
Close #1
= Val() - 1
End If
End Sub
Private Sub Command6_Click()
Open "c:score" For Random As #1 Len = Len(std)
record = Val() + 1
If record > Val(n) Then
MsgBox "超出记录范围", 2 + vbExclamation, "警告": Close
Else
Get #1, record, std
=
=
If = "1" Then
= True
Else
= True
End If
=
record = LOF(1) / Len(std)
Close #1
= Val() + 1
End If
End Sub
Private Sub Command7_Click()
Open "c:score" For Random As #1 Len = Len(std)
record = Val(n)
Get #1, record, std
=
=
If = "1" Then
= True
Else
= True
End If
=
record = LOF(1) / Len(std)
Close #1
= record
End Sub
Private Sub Form_Load()
Open "c:score" For Random As #1 Len = Len(std)
n = LOF(1) / Len(std)
Close #1
End Sub
H．6
Private Type studtype
no As Integer
name As String * 6
mark As Integer
End Type
Dim std As studtype
Dim record As Integer
Private Sub Command1_Click()
With std
.no = Val()
.name =
.mark = Val()
End With
Open "c:score1" For Random As #1 Len = Len(std)
record = LOF(1) / Len(std) + 1
Put #1, record, std
Close #1
= ""
= ""
= ""
us
End Sub
Private Sub Command2_Click()
Dim sum, count As Integer
Open "c:score1" For Random As #1 Len = Len(std)
For i = 1 To record
Get #1, i, std
sum = sum +
count = count + 1
m & " " & &
Next i
m "总分" & sum
m "平均成绩" & sum / count
Close #1
End Sub
H．7
Private Sub Command1_Click()
Dim inputdata1, inputdata2, inputdata3 As String * 1
Dim v, byt1() As Byte, byt2() As Byte, flen1 As Long, flen2 As Long, fnum,
fnum3 As Integer
= "": = "": = ""
en
fname1 = me
en
fname2 = me
Open fname1 For Binary As #1
Open fname2 For Binary As #2
Do While Not EOF(1)
inputdata1 = Input(1, #1)
= + inputdata1
Loop
Do While Not EOF(2)
inputdata2 = Input(1, #2)
= + inputdata2
Loop
fnum3 = FreeFile
Open "c:" For Binary As #fnum3
Put #fnum3, 1, byt1()
Put #fnum3, flen1 + 1, byt2()
Do While Not EOF(fnum3)
inputdata3 = Input(1, #fnum3)
= + inputdata3
Loop
If Dir(fname1) <> "" Then
fnum = FreeFile
Open fname1 For Binary As #fnum
flen1 = LOF(fnum)
ReDim byt1(flen1 - 1)
Get #fnum, 1, byt1()
Close fnum
End If
If Dir(fname2) <> "" Then
fnum = FreeFile
Open fname2 For Binary As #fnum
flen2 = LOF(fnum)
ReDim byt2(flen2 - 1)
Get #fnum, 1, byt2()
Close fnum
End If
Close
End Sub
J-4
Private Sub Command1_Click()
Dim strb() As Byte
en
Open me For Binary As #1
f1 = LOF(1)
ReDim strb(f1)
Get #1, , strb
("照片").AppendChunk strb
Close #1
e = LoadPicture(me)
End Sub
版权声明：本文标题：VB程序设计教程(第3版)课后实验答案 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711530755a598569.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论