VB程序設(shè)計學(xué)習(xí)與實驗指導(dǎo)答案.doc

清華大學(xué)出版社：蔣銀珍 沈瑋 吳瑾 編著Visual Basic 程序設(shè)計學(xué)習(xí)與實驗指導(dǎo)答案上篇 學(xué)習(xí)指導(dǎo)第1章 Visual Basic 概述一.選擇題123456789ABDDBBCAC101112131415161718AACCDCABD二填空題1. 事件2. 查看對象3. 工程4. 視圖 屬性窗口5. 窗體編輯器第2章 面向?qū)ο蟪绦蛟O(shè)計初步一.選擇題1234567ACADCDA二填空題1. 控件2. 事件3. 類 屬性4. 屬性5. 略6. Name第3章 Visual Basic 語言基礎(chǔ)一.選擇題123456789AACCACCAD101112131415161718DCCADDACB192021222324252627BDBDABCCB2829DB二填空題1. (a*sin(30/180*3.14)+c*(log(b)/log(10)/(Abs(d)+1)*(e+f)+12. mod3. X=Int(X) And Y=Int(Y) And X*Y04. 4.Y Mod 4=0 And Y Mod 1000 Or Y Mod 400=05. x=Int(99-10+1)*Rnd+10)6. 0 “”7. 空格8. 6，845.309.（1）8（2）1（3）abcd（4）出錯，類型不匹配（5）False（6）2008-6-29（7）I likeVB（8）4（9）4 4（10）3 4（11）10 -10（12）-1（13）aa（14）3（15）0（16）1（17）C（18）5（19）8（20）34.54（21）中國（22）上海（23）VISUAL BASIC（24）visual basic10.（1）x100（2）a=Int(a) And b =Int(b) Or a0 And b0（3）x=z（4）a0 And aInt(a)（5）a=0 xor b=0（6）Len(S)10（7）UCase(S)=S（8）Left(S,1)=”a” And Right(S,1)=”a”（9）Instr(S,”)0（10）Trim(S)=S（11）Date=#8/8/2008#（12）Weekday(Date)=2第4章 程序控制結(jié)構(gòu)與算法基礎(chǔ)一.簡單填空1. Randomize2. N=Int(99-10+1)*Rnd+10)3. M=(Int(100-10+1)*Rnd+10)/104. Exit For5. Exit Do二讀程序?qū)懡Y(jié)果1. 150 122. 22 23 -13. 5 3 04. 20 40 60三程序填空1. Len(s) Mid(s,i,1) c=”A” And c=”a” And c=”0” And c=”9” n3=n3+12. 0 1 n-1 n Mod i=0 sum+i sum=n3. 1000 CStr(n) CStr(n*n) Right(s2,Len(s1)=s14. 100 2002 N-1Exit Forcount+1count Mod 5=0 Print5. sum=1 a*x2/(2*n-1)*(2*n) sum+a Abs(a)=0.0000001第5章 數(shù)組的應(yīng)用一.選擇題123456789BCCACADBC10111213ABDA二.讀程序?qū)懡Y(jié)果1. 120 362. 10 31 73. 26 14 26三程序填空1.A(i,j);Picture1.PrintA(i.1)1A(i,j)j“第” & i & “行最大數(shù)是” & Max Data & “，第” & Maxj & “列”2.Text1.Text & A(i);kpreserve B(k)B(k)=A(i)3.Sqr(n - m) = Int(Sqr(n - m)ReDim Preserve B(k)nA(m) & 和 & B(m)4.Int(100-50+1)*Rnd+50)1B(i)+1第6章 過程一判斷題123456789TTFFTTTTT101112131415161718TFTTFTTTT1920TT二.選擇題12345678ACAAADBA四讀程序?qū)懡Y(jié)果1. x=2,y=2 m=22. 9 4,5,9 273. 50 264. 5 64,55. 7,14 11,22 15,306. 29 29 37. 12 25下篇 實驗教程實驗2 Visual Basic 變量、函數(shù)與表達(dá)式的使用實驗2-1 算術(shù)運(yùn)算符的使2-202007-10-153 2.857143 2.85714285714286實驗2-2 字符運(yùn)算符的使用20071020071020172007-10-10102007-10-20出錯，類型不匹配實驗2-3 關(guān)系運(yùn)算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue實驗2-4 邏輯運(yùn)算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59實驗2-5 常用函數(shù)的使用3.14 3.147.389056098930651 -1 .9999999982051034-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%實驗3 算法基礎(chǔ)及程序控制結(jié)構(gòu)實驗3-1 三個數(shù)的交換A=CC=BB=TBC實驗3-2 求周長和面積Const PI=3.14159262*PI*RPI*R*RPicture1.Cls Format(L, .00) Format(M, .00)實驗3-3 求分段函數(shù)的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = Text2.Text = 實驗3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b 2 - 4 * a * cx1= & (-b + Sqr(delt) / (2 * a)x2= & (-b - Sqr(delt) / (2 * a)Text2.Text = Text3.Text = End實驗3-5 判斷素數(shù)N Mod k = 0k=NN Mod i=0k=2實驗3-6 求最大公約數(shù)和最小公倍數(shù)MNL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For實驗3-7 判斷升序數(shù)、降序數(shù)CStr(N)Len(S) 1Mid(S, k, 1) = Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) = Mid(S, k + 1, 1) Then Exit ForNext kk = Len(S)實驗3-8 判斷回文數(shù)1Len(s)2-1Mid(S, k, 1) Mid(S, Len(S) - k + 1, 1)k = Len(S) 2Mid(S, k, 1) + S1S = S1實驗3-9 求級數(shù)的值Val(Text1.Text)01x ns * nt / s = 0 And Mid(s, i, 1) = 9Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum實驗3-11 隨機(jī)產(chǎn)生20個奇數(shù)Int(99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls實驗3-12 加密解密Chr(Asc(a) + (Asc(c) - Asc(a) + 3) Mod 26)c = Chr(Asc(A) + (Asc(c) - Asc(A) + 3) Mod 26)c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc(a) + (Asc(c) - Asc(a) + 23) Mod 26)c = Chr(Asc(A) + (Asc(c) - Asc(A) + 23) Mod 26)c & s1s1Text1.Text = Text2.Text = 實驗3-13 統(tǒng)計單詞個數(shù)Text1.Text0Mid(s, i, 1) And i max Then max = score(i)score(i) = 0 And c = 9A(c) = A(c) + 1A(k) 0m = m + 1實驗4-5 排序1 To 10Int(99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & 1 To 9i + 1 To 10A(i) A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & 10T = A(i)0ji - 1 k + 1 1 To 10Text4.Text = Text4.Text & A(i) & 實驗4-6 二維數(shù)組的產(chǎn)生及輸出1 To 41 To 5Int(9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & Text1.Text = Text1.Text & vbCrLf實驗4-7 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int(99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = True List2.AddItem i & 和 & i + 2DecNumber(i) = True And Prime(i) = True List3.AddItem i實驗5-2 求多項式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / (2 * i - 1) * x)Next ia實驗5-3 進(jìn)制轉(zhuǎn)換Asc(C) - Asc(A) + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1) * N (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C = 0 And C = A And C a(j) t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) M M = a(i)a(i) NN = a(i)s = s + a(i)Average = s / UBound(a)實驗6 界面設(shè)計實驗6-1 用戶登陸MsgBox 請登錄！PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click實驗6-2 學(xué)籍登記OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space