【導(dǎo)讀】Caption="雙擊窗體，卸去圖片". 'Caption="窗體大小不變". '=260*16+200'260是圖的高度，象素單位，200是窗體的標(biāo)題欄高度。MsgBox"輸入有非數(shù)字字符，請(qǐng)重新輸入",,"警告". Label1=n&"年后人數(shù)超過(guò)26億". Print"字符串長(zhǎng)度為:";cd. x1=xMod10'分離出的個(gè)位數(shù)。x3=x\100'分離出的百位數(shù)

　　

【正文】 Private Sub Command2_Click() Dim st$, n%, sum% Open c:\ For Input As 1 Do While Not EOF(1) Input 1, st, n sum = sum + n st amp。 = amp。 n Loop Close 1 合計(jì)： amp。 sum 平均： amp。 sum / 10 End Sub H． 3 H． 4 Private Type studtype no As String * 4 name As String * 6 mark As Single End Type Dim student As studtype, stud(1 To 5) As studtype, t As studtype Private Sub Command1_Click() Open d:\ For Random As 1 Len = Len(student) With student .no = 0001 .name = 星期一 .mark = 66 End With Put 1, 1, student With student .no = 0002 .name = 星期二 .mark = 99 End With Put 1, 2, student With student .no = 0003 .name = 星期三 .mark = 88 End With Put 1, 3, student With student .no = 0004 .name = 星期四 .mark = 55 End With Put 1, 4, student With student .no = 0005 .name = 星期五 .mark = 77 End With Put 1, 5, student Close 1 End Sub Private Sub Command2_Click() Open d:\ For Random As 1 Len = Len(student) For i = 1 To 5 Get 1, i, student Print , , stud(i) = student Next i Close 1 For i = 1 To 5 For j = i + 1 To 5 If stud(i).mark stud(j).mark Then t = stud(i): stud(i) = stud(j): stud(j) = t Next Next i Open d:\ For Random As 2 Len = Len(student) For i = 1 To 5 Put 2, i, stud(i) Next i Close 1 End Sub Private Sub Command3_Click() Open d:\ For Random As 1 Len = Len(student) For i = 1 To 5 Get 1, i, stud(i) Print stud(i).no。 stud(i).name。 stud(i).mark Next i Close 1 End Sub H． 5 Private Type studtype no As Integer name As String * 20 sex As String * 1 mark As Single End Type Dim std As studtype Dim record As Integer Private Sub Command1_Click() With std .no = Val() .name = .sex = IIf(, 1, 0) .mark = Val() End With Open c:\score For Random As 1 Len = Len(std) record = LOF(1) / Len(std) + 1 = record Put 1, record, std Close 1 End Sub Private Sub Command2_Click() Open c:\score For Random As 1 Len = Len(std) record = Val() Get 1, record, std = = If = 1 Then = True Else = True End If = record = LOF(1) / Len(std) Close 1 End Sub Private Sub Command3_Click() With std .no = Val() .name = .sex = IIf(, 1, 0) .mark = Val() End With Open c:\score For Random As 1 Len = Len(std) record = Val() Put 1, record, std Close 1 End Sub Private Sub Command4_Click() Open c:\score For Random As 1 Len = Len(std) record = 1 Get 1, record, std = = If = 1 Then = True Else = True End If = record = LOF(1) / Len(std) Close 1 = 1 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() 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() 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) = 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 = = = 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 amp。 amp。 amp。 Next i 總分 amp。 sum 平均成績(jī) amp。 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 = : = : = fname1 = fname2 = 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 J4 Private Sub Command1_Click() Dim strb() As Byte Open For Binary As 1 f1 = LOF(1) ReDim strb(f1) Get 1, , strb (照片 ).AppendChunk strb Close 1 = LoadPicture() End Sub