鄭州大學(xué)vb實(shí)驗(yàn)報(bào)告書答案

1、-. z.*大學(xué)VB實(shí)驗(yàn)報(bào)告書 參考 答案 以下內(nèi)容均來自百度文庫，所以僅供參考。不過經(jīng)親自測試 習(xí)題及實(shí)驗(yàn)一的答案根本正確，除了實(shí)驗(yàn)題的3，4小題沒有改字形字體顏色什么的。實(shí)驗(yàn)一一、選擇題DDBAB,C(CD)DDC,ADDCA二、填空題Windows中斷工具箱代碼分類form2.show有語法錯(cuò)誤錯(cuò)誤事件構(gòu)造化文件名和構(gòu)造工程編寫代碼雙擊任意控件或右健快捷菜單項(xiàng)選擇代碼窗口vb的安裝文件夾屬性方法fontload對(duì)象三、編程1-1Private Sub mand1_Click()Print Sqr(8), 8 (1 / 3)End Sub1-2Private Sub mand2_Click

2、()For i = 100 To 110 Print Sqr(i)Ne*t iEnd Sub1-3根本設(shè)置在屬性窗口完成！Private Sub mand3_Click()Print *大學(xué)在前進(jìn)!End Sub1-4根本設(shè)置在屬性窗口完成！Private Sub mand4_Click()Label1 = 、白云、綠水、青山End Sub實(shí)驗(yàn)二一BCBCC,CBBDA,CCCBA,CBDCC二form_click()interval,5000vbp,frmtop,left,height,width,像素pictureloadlockedfont,alignmentgotfocus,lostf

3、ocus屬性窗口，代碼三2-1Private Sub mand1_Click()Label3 = Te*t1 * Te*t2End SubPrivate Sub mand2_Click()Label3 = Te*t1 / Te*t2End Sub2-2Private Sub mand1_Click()Picture1.Visible = TruePicture1 = LoadPicture(C:Documentsand SettingsAll UsersDocumentsMy Pictures例如圖片Water lilies.jpg)End SubPrivate Sub mand2_Click

4、()Picture1.Visible = TruePicture1 = LoadPicture(C:Documentsand SettingsAll UsersDocumentsMy Pictures例如圖片Winter.jpg)End SubPrivate Sub mand3_Click()Picture1.Visible = FalseEnd Sub2-3Private Sub mand1_Click()Label3 = Te*t1 * Te*t2End Sub2-4Private Sub mand1_Click()Te*t2 = Te*t1End SubPrivate Sub mand2

5、_Click()Te*t1 = Te*t2 = End SubPrivate Sub Te*t1_Change()mand1.Visible = Truemand2.Visible = TrueEnd Sub2-5Private Sub mand1_Click()Timer1.Interval = 500End SubPrivate Sub mand2_Click()Timer1.Interval = 0End SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth -Image1.Width)Image1.

6、Top = Int(Rnd * (Form1.ScaleHeight -Image1.Height)End Sub實(shí)驗(yàn)三一A(BC)(BC)AA,A(BCD)DBB,B二3，4，5，6，8，10，11，12，14，15，16三abs(*+y)(3+*y)2(-b+sqr(b2-4*a*c)/(2*a)sin(30*3.14/180)+e*p(2)四int(rnd*71+20)*y=10 and *=A and *=Zleft(s,3) 或者,mid(s,1,3)五3-2Private Sub mand1_Click()Dim * As Single* = Val(Te*t1)Print For

7、mat(* 2, #.000),Format(Sqr(*), #.000), Format(* 3, #.000), Format(* (1 / 3), #.000)End Sub3-3Private Sub mand1_Click()Dim * As Integer* = Int(Rnd * 900 + 100)Te*t1 = Trim(Str(*)Te*t2 = Right(Te*t1, 1) + Mid(Te*t1, 2, 1)+ Left(Te*t1, 1)End Sub3-4Private Sub mand1_Click()Dim ma*, min As Integermin = V

8、al(Te*t1)ma* = Val(Te*t2)RandomizePrint Int(Rnd * (ma* - min + 1) + min),Int(Rnd * (ma* - min + 1) + min), Int(Rnd * (ma* - min + 1) + min)End Sub3-5Private Sub mand1_Click()Te*t1 = DateTe*t2 = TimeTe*t3 = WeekdayName(Weekday(Date)End Sub實(shí)驗(yàn)四一CDCDA,DBBAC二(1) 48.71E-01,-4.8712(2) 關(guān)系，邏輯，數(shù)值(3) 900，100，m

9、id(a,2,1),c(4)m1,2,3print m & 月是第二季度end select三(1) *=4 y=13(2) 10四4-1Private Sub mand1_Click()Dim num, a1, a2, a3 As Singlenum = Val(Te*t1) * 180 / 3.14a1 = Int(num)num = num - a1a2 = Int(num * 60)num = num * 60 - a2a3 = Format(num * 60, #.000)Print a1, a2, a3End Sub4-2Private Sub mand1_Click()Dim y

10、 As Integery = Val(Te*t1)If (y Mod 400 = 0 Or y Mod 4 = 0 And y Mod100 0) Then MsgBo* y & 是閏年Else MsgBo* y & 不是閏年End IfEnd Sub4-3Private Sub mand1_Click()Dim *, y, z, t As Integer* = Val(InputBo*(input *:)y = Val(InputBo*(input y:)z = Val(InputBo*(input z:)If * y Then t = *: * = y: y = tIf y z Thent

11、= y: y = z: z = t If * y Then t = *: * = y: y = tEnd IfPrint *, y, zEnd Sub4-4Private Sub mand1_Click()Dim nettime As Integer, money As Singlenettime = Val(InputBo*(每月上網(wǎng)時(shí)數(shù)：, 上網(wǎng)費(fèi)用)If nettime = -1 Then money = 0ElseIf nettime 10 Then money = 25ElseIf nettime 50 Then money = nettime * 2ElseIf nettime 1

12、00 Then money = nettime * 1.5ElseIf nettime 200 Then money = nettimeElse money = 200End IfIf money 0 Then MsgBo* 該月上網(wǎng)費(fèi)用為 & money &元實(shí)驗(yàn)五一BCBAC二1for *=1 to 10s*(1-1/*)(2)0t1E-6(3)jt(4)511 5三5-1Private Sub mand1_Click()Dim i, sum As Integersum = 0For i = 1 To 100sum = sum + iNe*t iPrint 1+2+.+100=; sumE

13、nd Sub5-2Private Sub mand1_Click()Dim *, y As IntegerFor * = 0 To 20 For y = 0 To 33 If 5 * * + 3 * y + (100 - * - y) / 3 = 100 Then Print *, y, 100 - * - y End If Ne*t yNe*t *End Sub5-3Private Sub mand1_Click()Dim i As Integeri = 7DoIf i Mod 2 = 1 And i Mod 3 = 2 And i Mod 5= 4 And i Mod 6 = 5 And

14、i Mod 7 = 0 Then Print i E*it DoElsei= i + 7End IfLoopEnd Sub5-4Private Sub mand1_Click()Dim *, y, z As IntegerFor * = 1 To 9 For y = 1 To 9 For z = 0 To 9 If 100 * * + 10 * * + z + 100 * y + 10 * z + z = 532 ThenPrint *, y, z End If Ne*t z Ne*t yNe*t *End Sub5-5Private Sub mand1_Click()Dim sum As S

15、ingle, n As Integersum = 1Do While sum = 0.0001 ti = (-1) (i + 1) / (2 * i - 1) pi = pi + tii= i + 1LoopEnd Sub5-9Private Sub mand1_Click()Dim i, j, k As IntegerPrint 水仙花數(shù)有：For i = 1 To 9 For j = 0 To 9 For k = 0 To 9If i * 100 + j * 10 + k = i 3 + j 3+ k 3 ThenPrint i, j, k End If Ne*t k Ne*t jNe*t

16、 iEnd Sub5-10Private Sub mand1_Click()Dim i, j, k As Integerk = 0For i = 999 To 100 Step -1 For j = 2 To Int(Sqr(i) If i Mod j = 0 Then E*it For Ne*t j If j = Int(Sqr(i) + 1 Then k = k + 1: Print i If k = 3 Then E*it ForNe*t iEnd Sub5-11Private Sub mand1_Click()Dim i, n, min, ma* As IntegerDim aver

17、As Singlemin = 100ma* = 50For i = 1 To 20n= Int(Rnd * (99 - 51) + 51) Print n; If i Mod 5 = 0 Then Print If n ma* Then ma* = n If n Ma* Then Ma* = ia(i): iMa* = iIf ia(i) min Then min = ia(i): imin = iNe*t iPrint ma*=; Ma*,ima*=; iMa*Print min=; min,imin=; iminPrint aver=; aver / 10End Sub6-2Private

18、 Sub mand1_Click()Dim ia(20), num(5) As IntegerDim Ma*, min, aver As Integer, iMa*, iminAs IntegerFor i = 1 To 20 ia(i) = Int(Rnd * 101) Print ia(i); Select Case ia(i) Case Is 60 num(1) = num(1) + 1Case60 To 69 num(2) = num(2) + 1 Case 70 To 79 num(3) = num(3) + 1 Case 80 To 89 num(4) = num(4) + 1 C

19、ase 90 To 100 num(5) = num(5) + 1 End SelectNe*t iPrintPrint 各分?jǐn)?shù)段的人數(shù)分別是(059,6069,7079,8089,90100)：For i = 1 To 5 Print num(i);Ne*t iEnd Sub6-3Private Sub mand1_Click()Dim a(10) As Integer, t%For i = 1 To 10a(i) = Int(Rnd * 51)Print a(i);Ne*t iPrintFor i = 1 To 9For j = i + 1 To 10 Ifa(i) Ma* Then Ma

20、* = ia(i, j): iMa* = i: jma* = j Ne*t j PrintNe*t iPrint ma*=; Ma*,ima*=; iMa*, jma*=; jma*End Sub實(shí)驗(yàn)七一CCDAB DDAAA二1n！21到n累加和3n是否是素?cái)?shù)4冒泡排序5遞歸調(diào)用實(shí)現(xiàn)斐波那契數(shù)列6求最大公約數(shù)和最小公倍數(shù)三7-1Private Sub mand1_Click()Dim n, sum As Integern = Val(InputBo*(n=)sum = jsh(n)Print 1!+2!+.+; n;!=; sumEnd SubPublic Function jsh(n) A

21、s IntegerDim i, s, t As Integers = 0t = 1For i = 1 To nt= t * is= s + tNe*t ijsh = sEnd Function7-2Private Sub mand1_Click()Dim n, flag As Integern = Val(InputBo*(n=)flag = 1sushu n, flagPrint n=; flagEnd SubPublic Sub sushu(n, flag)Dim i As IntegerFor i = 2 To n - 1 If n Mod i = 0 Then flag = 0: E*

22、it ForNe*t iEnd Sub7-3Private Sub mand1_Click()Dim flag As Integer, str As Stringstr = InputBo*(n=)flag = huiwen(str)If flag = 1 Then Print str; 是回文數(shù) Else Print str; 不是回文數(shù)End SubPublic Function huiwen(str) As IntegerDim lens, m, i As Integerlens = Len(str)For i = 1 To Int(lens / 2) If Mid(str, i, 1)

23、 Mid(str, lens - i + 1, 1) Then E*it ForNe*t iIf i = Int(lens / 2) + 1 Then huiwen = 1Else huiwen = 0End Function7-4Private Sub mand1_Click()Dim n, m, c1, c21, c22, c23 As Integern = Val(InputBo*(n=)m = Val(InputBo*(m=)c1 = jc1(n) / (jc1(m) * jc1(n - m)Print 函數(shù)計(jì)算c1=; c1jc2 n, c21jc2 m,c22jc2 n - m,

24、c23Print 子過程計(jì)算c2=; c21 / (c22 * c23)End SubPublic Sub jc2(n, c)Dim i As Integerc = 1For i = 1 To nc= c * iNe*t iEnd SubPublic Function jc1(n)Dim i As Integers = 1For i = 1 To ns= s * iNe*t ijc1 = sEnd Function7-5Private Sub mand1_Click()Dim str1 As Stringstr1 = InputBo*(請(qǐng)輸入一個(gè)實(shí)數(shù)：)MsgBo* sum(str1)End

25、SubPublic Function sum(str As String)Dim lens, i, n As IntegerDim c As String * 1lens = Len(str)n = 0For i = 1 To lensc= Mid(str, i, 1) If c = 0 Then n = n + Val(c) End IfNe*t isum = nEnd Function7-6Private Sub mand1_Click()Dim str1 As Stringstr1 = InputBo*(請(qǐng)輸入一個(gè)字符串：)Print str1; 中有數(shù)字字符; num(str1); 個(gè)

26、。End SubPublic Function num(str As String)Dim lens, i, n As IntegerDim c As String * 1lens = Len(str)n = 0For i = 1 To lensc= Mid(str, i, 1) If c = 0 Then n = n + 1 End IfNe*t inum = nEnd Function7-7Private Sub mand1_Click()可參考本實(shí)驗(yàn)填空第六題或采用本方法，注意兩法的形參是傳地址還是傳值的區(qū)別Dim m, n, y, b As Integerm = Val(InputBo

27、*(please input ainteger(m):)n = Val(InputBo*(please input ainteger(n):)Print m; 和; n;gysgbs m, n, pPrint 的最大公約數(shù)為; nPrint 最小公倍數(shù)為; pEnd SubPublic Sub gysgbs(a, b, c)Dim r As Integerc = a * br = a Mod bDo While r 0a= bb= rr= a Mod bLoopc = c / bEnd SubVisual Basic程序設(shè)計(jì)課程考試大綱本學(xué)期19周，1-16周上課，周4學(xué)時(shí)，課程總學(xué)時(shí)64，其

28、中：理論32+上機(jī)32【根本要求】熟悉Visual Basic集成開發(fā)環(huán)境；了解Visual Basic中對(duì)象的概念和事件驅(qū)動(dòng)程序的根本特性；掌握Visual Basic的根本語句；了解簡單的數(shù)據(jù)構(gòu)造和算法；掌握Visual Basic常用控件及其控件的三個(gè)要素；掌握模塊化程序設(shè)計(jì)的過程設(shè)計(jì)包括函數(shù)過程、子過程方法；能針對(duì)簡單的實(shí)際問題構(gòu)造算法，并能正確地實(shí)現(xiàn)算法與程序之間的轉(zhuǎn)換，具有使用Visual Basic編制和上機(jī)調(diào)試簡單程序的能力；培養(yǎng)利用計(jì)算機(jī)解決問題的意識(shí)、思路和能力，為今后進(jìn)展計(jì)算機(jī)應(yīng)用奠定根底。【考試*圍】1.Visual Basic程序設(shè)計(jì)概述Q開展、特點(diǎn)、版本、安裝、啟動(dòng)、退出QVisual Basic 6.0集成開發(fā)環(huán)境7個(gè)主要窗口2.Visual Basic程序設(shè)計(jì)的相關(guān)概念Q對(duì)象和類的