VB課程實驗報告

1、.山西財經(jīng)大學(xué)程序設(shè)計（VB+Acces）實驗報告 年 月 日實驗題目1選擇結(jié)構(gòu)程序設(shè)計選課課號2015-2016-2-N081002S00-08034-學(xué) 院學(xué)院班 級姓 名學(xué) 號理論課教師李平珍上機(jī)指導(dǎo)教師李平珍實驗?zāi)康募耙螅?掌握條件表達(dá)式和分支語句2正確使用IfThenElse和IfThenElseIf等語句3使用選擇性控件實現(xiàn)程序應(yīng)用編寫以下程序段：求一元二次方程ax2+bx+c=0的根 設(shè)計一個四則運算計算器實驗的詳細(xì)操作步驟、程序代碼及運行截圖：一Private Sub Command1_Click()Dim A As Single, B As Single, C As Sin

2、gleDim R1 As Single, R2 As SingleA = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)If B 2 - 4 * A * C 0 ThenMsgBox 該方程無解.ElseIf B 2 - 4 * A * C = 0 ThenR1 = -B / 2 / AMsgBox 該方程僅有一個根為 & R1 & .ElseR1 = (-B + Sqr(B 2 - 4 * A * C) / (2 * A)R2 = (-B - Sqr(B 2 - 4 * A * C) / (2 * A)MsgBox 該方程有兩個根分

3、別為 & R1 & 和 & R2 & .End IfEnd Sub二Private Sub cmdCal-Click()Dim x1 As Single,sign As String,x2 As SingleX1=Val(txtA):sign=txtB:x2=Val(txtC)SelectCase “+”txtD.Text=Str(x1+x2)Case”-“txtD.Text=Str(x1-x2)Case”*”txtD.Text=Str(x1*x2)Case“/”If x20 ThentxtD.Text=Str(x1/x2)ElseMsgBox”分母不能為0”End IfCase ElseI=

4、MsgBox(“請重新輸入運算符：”vbRetryCancel)If I =vbretry Then txtB.Text=” “ txtB.SetFocus Else EndEnd SelectEnd Sub實驗中發(fā)現(xiàn)的問題及解決方法：表格之間的距離把握不是很準(zhǔn)，通過上方調(diào)整距離來實現(xiàn)教師評語成 績 山西財經(jīng)大學(xué)程序設(shè)計（VB+Acces）實驗報告 年 月 日實驗題目2循環(huán)結(jié)構(gòu)程序設(shè)計選課課號2015-2016-2-N081002S00-08034-學(xué) 院班 級姓 名學(xué) 號理論課教師李平珍上機(jī)指導(dǎo)教師李平珍實驗?zāi)康募耙螅?. 掌握循環(huán)語句的格式和執(zhí)行邏輯2分析前測型和后測型循環(huán)的異同3靈活設(shè)

5、置循環(huán)終止條件，掌握算法基本思想和常用算法4學(xué)會分析算法的優(yōu)劣和掌握多重循環(huán)的執(zhí)行規(guī)律編寫以下程序段： 輸出100-300之間的所有素數(shù) 編程求 pi=4(1-1/3+1/5-1/7+1/9.) 求20項實驗的詳細(xì)操作步驟、程序代碼及運行截圖：Private Sub Form-Click()Dim i As Integer,j As Integer,x As IntegerFor i =100 To 300x=0For j=2 To -1If i mod j=0 Then x=1Next jIf x=0 Then print iNext i End SubPrivate Sub Form-Cl

6、ick()n=1:pi=0:j=1Do while n=20Pi=pi+j*1/(2*n-1)j=-jn=n+1Looppi=4*piEnd Sub實驗中發(fā)現(xiàn)的問題及解決方法：For next語句 if then語句運用不是很熟練教師評語成 績山西財經(jīng)大學(xué)程序設(shè)計（VB+Acces）實驗報告 年 月 日實驗題目3過程選課課號2015-2016-2-N081002S00-08034-學(xué) 院班 級姓 名學(xué) 號理論課教師李平珍上機(jī)指導(dǎo)教師李平珍實驗?zāi)康募耙螅?理解模塊和過程的概念和意義，并能夠創(chuàng)建和使用模塊2理解傳值和引用的概念，并能夠正確采用參數(shù)傳遞方式3理解變量的作用域與生存期，能夠正確使用各

7、種變量使用過程求：1！+2！+9!,實驗的詳細(xì)操作步驟、程序代碼及運行截圖：實驗中發(fā)現(xiàn)的問題及解決方法：Dim 的運用不是很到位，經(jīng)過學(xué)習(xí)了解深刻教師評語成 績山西財經(jīng)大學(xué)程序設(shè)計（VB+Acces）實驗報告 年 月 日實驗題目4 Access數(shù)據(jù)庫應(yīng)用選課課號2015-2016-2-N081002S00-08034-學(xué) 院班 級姓 名學(xué) 號理論課教師李平珍上機(jī)指導(dǎo)教師李平珍實驗?zāi)康募耙螅?理解關(guān)系表、主鍵、外鍵、索引、表的關(guān)聯(lián)等概念2了解關(guān)系基本運算3掌握基本查詢類型和在Access數(shù)據(jù)庫中創(chuàng)建查詢4掌握結(jié)構(gòu)化查詢語言SQL和用SQL語句實現(xiàn)查詢應(yīng)用5在Access中設(shè)計窗體6. 在Vis

8、ual Basic 中訪問數(shù)據(jù)庫數(shù)據(jù)庫參照教材322頁綜合題。實驗的詳細(xì)操作步驟、程序代碼及運行截圖：1.Create table 課程表(課號char（6）primary key),名稱 char（40）not null2.create table 學(xué)生表（學(xué)號char primary key,姓名nchar（4）not null,性別nchar （1）check（性別 in（男，女）,民族nchar（8）default漢族 not null,身份證號char(18) unique3.create table 成績表（ID integer IDENTITY(1,1),學(xué)號char (6) references 學(xué)生表(學(xué)號),課號char(6) refernces 課程表(課號),分?jǐn)?shù) integer check(分?jǐn)?shù) between 0 and 100)4.select 姓名，性別