《vb程序设计实验六》由会员分享，可在线阅读，更多相关《vb程序设计实验六（10页珍藏版）》请在金锄头文库上搜索。
1、信 息 工 程 学 院1 程序设计基础(VB) 实验/实习报告学院学院:动物科技学院班级班级:动科 123姓名姓名:王珂学号学号:2012010848 成绩成绩:A实习六实习六 数据文件数据文件1 1、实验实验/ /实习过程实习过程T1T1 代码设计代码设计DimDim filenamefilename AsAs StringStringPrivatePrivate SubSub Command1_Click()Command1_Click()DimDim s s AsAs StringString * * 1,1, n%n%Label1Label1 = = filenamefilename
2、5); a(ia(i - - 1)1) * * 1010 + + j);j);NextNext j,j, i iCloseCloseEndEnd SubSub运行结果：运行结果：T4T4代码设计：代码设计：PrivatePrivate TypeType stypestypeb b AsAs IntegerIntegerEndEnd TypeTypeDimDim a%(1a%(1 ToTo 200),200), b%(1b%(1 ToTo 200),200), m%m%PrivatePrivate SubSub Command1_Click()Command1_Click()DimDim I%,
3、I%, J%,J%, S%,S%, N%,N%, K%K%m m = = 0 0Text2Text2 = = “ForFor I I = = 1 1 ToTo 2020ForFor J J = = 1 1 ToTo 1010S S = = a(Ia(I - - 1)1) * * 1010 + + J)J)K K = = (S(S ModMod 1000)1000) 100100N N = = S S ModMod 1010IfIf K K ModMod 2 2 = = 0 0 AndAnd N N ModMod 2 2 = = 0 0 ThenThenm m = = m m + + 1:1:
4、b(m)b(m) = = S SText2Text2 = = Text2Text2 & & b(m)b(m) & & “ “ “ “IfIf m m ModMod 1010 = = 0 0 ThenThen Text2Text2 = = Text2Text2 & & vbCrLfvbCrLfEndEnd IfIfNextNext J JNextNext I IEndEnd SubSubPrivatePrivate SubSub Command2_Click()Command2_Click()DimDim X X AsAs stypestypeOpenOpen “file2.txt“file2.
5、txt“ ForFor RandomRandom AsAs 2 2 LenLen = = Len(X)Len(X)ForFor I I = = 1 1 ToTo m mX.bX.b = = b(I)b(I)PutPut #2,#2, I,I, X XNextNext I ICloseCloseEndEnd SubSubPrivatePrivate SubSub Form_Load()Form_Load()ShowShowDimDim I%,I%, J%J%Text1Text1 = = “OpenOpen “file1.txt“file1.txt“ ForFor InputInput AsAs
6、1 1ForFor I I = = 1 1 ToTo 2020ForFor J J = = 1 1 ToTo 1010S S = = Input(6,Input(6, 1)1)a(Ia(I - - 1)1) * * 1010 + + J)J) = = Val(S)Val(S)Text1Text1 = = Text1Text1 & & S SNextNext J JIfIf I I 130130 OrOr n n = 3232 ThenThen n n = = Asc(m)Asc(m)Text2Text2 = = Text2Text2 & & Chr(n)Chr(n)NextNext i iEn
7、dEnd SubSubPrivatePrivate SubSub Command2_Click()Command2_Click()OpenOpen “file4.txt“file4.txt“ ForFor OutputOutput AsAs 2 2WriteWrite #2,#2, Text2Text2CloseCloseEndEnd SubSubPrivatePrivate SubSub Form_Load()Form_Load()ShowShowOpenOpen “file3.txt“file3.txt“ ForFor InputInput AsAs #1#1s s = = Input(L
8、OF(1),Input(LOF(1), 1)1)Text1Text1 = = s sCloseCloseEndEnd SubSub运行结果：运行结果：T6T6代码设计：代码设计：PrivatePrivate TypeType studentstudentxmxm AsAs StringString * * 1 1a1a1 AsAs IntegerIntegera2a2 AsAs IntegerIntegera3a3 AsAs IntegerIntegera4a4 AsAs IntegerIntegera5a5 AsAs IntegerIntegerEndEnd TypeTypeDimDim a
9、(1a(1 ToTo 20,20, 1 1 ToTo 7)7)PrivatePrivate SubSub Command1_Click()Command1_Click()Text1Text1 = = vbCrLfvbCrLf & & vbCrLfvbCrLf & & “ “ 排序后成绩单排序后成绩单“ “ & & vbCrLfvbCrLfText1Text1 = = Text1Text1 & & String(28,String(28, “_“)“_“) & & vbCrLfvbCrLf & & vbCrLfvbCrLfForFor i i = = 1 1 ToTo 1919k k = = i
10、 iForFor j j = = i i + + 1 1 ToTo 2020IfIf a(k,a(k, 7)7) a(j,a(j, 7)7) ThenThen k k = = j jNextNext j jForFor h h = = 1 1 ToTo 7 7t t = = a(k,a(k, h):h): a(k,a(k, h)h) = = a(i,a(i, h):h): a(i,a(i, h)h) = = t tNextNext h hNextNext i iForFor i i = = 1 1 ToTo 2020ForFor j j = = 1 1 ToTo 7 7Text1Text1 =
11、 = Text1Text1 & & a(i,a(i, j)j) & & IIf(a(i,IIf(a(i, j)j) = = 100,100, “ “ “,“, “ “ “)“)NextNext j jText1Text1 = = Text1Text1 & & vbCrLfvbCrLfNextNext i iEndEnd SubSubPrivatePrivate SubSub Command2_Click()Command2_Click()OpenOpen “file5.txt“file5.txt“ ForFor OutputOutput AsAs 1 1ForFor i i = = 1 1 T
12、oTo 2020WriteWrite #1,#1, a(i,a(i, 1),1), a(i,a(i, 2),2), a(i,a(i, 3),3), a(i,a(i, 4),4), a(i,a(i, 5),5), a(i,a(i, 6)6)NextNext i iCloseCloseEndEnd SubSubPrivatePrivate SubSub Command3_Click()Command3_Click()DimDim x x AsAs studentstudentIfIf Dir(“file6.txt“)Dir(“file6.txt“) = = “file6.txt“file6.txt
13、“ ThenThen KillKill “file6.txt“file6.txt“OpenOpen “file6.txt“file6.txt“ ForFor RandomRandom AsAs 1 1 LenLen = = Len(x)Len(x)ForFor i i = = 1 1 ToTo 2020x.xmx.xm = = a(i,a(i, 1):1): x.a1x.a1 = = a(i,a(i, 2)2)x.a2x.a2 = = a(i,a(i, 3):3): x.a3x.a3 = = a(i,a(i, 4)4)x.a4x.a4 = = a(i,a(i, 5):5): x.a5x.a5
14、= = a(i,a(i, 6)6)PutPut #1,#1, i,i, x xNextNext i iCloseCloseEndEnd SubSubPrivatePrivate SubSub Form_Load()Form_Load()ShowShowRandomizeRandomizeText1Text1 = = “ForFor i i = = 1 1 ToTo 2020a(i,a(i, 1)1) = = Chr(64Chr(64 + + i)i)Text1Text1 = = Text1Text1 & & a(i,a(i, 1)1) & & “ “ “ “ForFor j j = = 2 2 ToTo 6 6a(i,a(i, j)j) = = Int(RndInt(Rnd * * 51)51) + + 5050Text1Text1 = = Text1Text1 & & a(i,a(i, j)j) & & IIf(a(i,IIf(a(i, j)j) = = 100,100, “ “ “,“, “ “ “)“)a(i,a(i, 7)7) = = a(i,a(i, 7)7) + + a(i,a(i, j)j)NextNext j ja(i,a(i, 7)7) = = a(i,a(i, 7)7) / / 5 5T
