在线视频国产欧美另类,偷拍亚洲一区一区二区三区,日韩中文字幕在线视频,日本精品久久久久中文字幕

<small id="qpqhz"></small>
  • <legend id="qpqhz"></legend>

      <td id="qpqhz"><strong id="qpqhz"></strong></td>
      <small id="qpqhz"><menuitem id="qpqhz"></menuitem></small>
    1. 大一vb的實(shí)驗(yàn)報(bào)告

      時間:2023-03-21 16:12:15 報(bào)告 我要投稿
      • 相關(guān)推薦

      大一vb的實(shí)驗(yàn)報(bào)告

        隨著人們自身素質(zhì)提升,我們使用報(bào)告的情況越來越多,我們在寫報(bào)告的時候要注意涵蓋報(bào)告的基本要素。在寫之前,可以先參考范文,下面是小編幫大家整理的大一vb的實(shí)驗(yàn)報(bào)告,歡迎閱讀與收藏。

      大一vb的實(shí)驗(yàn)報(bào)告

      大一vb的實(shí)驗(yàn)報(bào)告1

        一、實(shí)驗(yàn)?zāi)康?/strong>

        本實(shí)驗(yàn)主要練習(xí)VB.NET的控件的綜合運(yùn)用。熟悉VB.NET的集成開發(fā)環(huán)境,掌握VB.NET編程技巧和開發(fā)過程。

        實(shí)驗(yàn)學(xué)時數(shù):4學(xué)時

        二、考核方法及標(biāo)準(zhǔn)

        1、考核方法:

        本次實(shí)驗(yàn)成績的評定分為三個部分: 出勤

        實(shí)驗(yàn)完成情況 實(shí)驗(yàn)報(bào)告完成情況

        2、考核標(biāo)準(zhǔn):

        本次實(shí)驗(yàn)成績總分為100分,具體分?jǐn)?shù)分布如表1-1所示。

        表1-1 成績分布情況

        每部分的具體評分標(biāo)準(zhǔn)如下:

       。1)出勤:遲到扣1分,早退扣1分(在為完成本實(shí)驗(yàn)的情況想),否則得滿分。

       。2)實(shí)驗(yàn)完成部分:

        未完成,或存在嚴(yán)重缺陷得35分以下;

        內(nèi)容基本完成,但存在小缺陷得36~41分;

        內(nèi)容全部完成,沒有錯誤得42~48分;

        內(nèi)容全部完成并具有創(chuàng)新的加49~60分。

       。3)實(shí)驗(yàn)報(bào)告完成部分:

        實(shí)驗(yàn)報(bào)告內(nèi)容不完整得0~14分;

        實(shí)驗(yàn)報(bào)告內(nèi)容基本完整得15~24分;

        實(shí)驗(yàn)報(bào)告內(nèi)容正確、排版清晰、有條理得25~30分。

        三、實(shí)驗(yàn)內(nèi)容

        某商店為了迎接“五一”將進(jìn)行促銷活動,促銷的商品包括服裝、鞋、箱包、化妝品和床上用品五類。在促銷期間,每類產(chǎn)品的規(guī)定品牌前40件以3折出售,每類產(chǎn)品每人限購1件,售完為止。買這五類產(chǎn)品的促銷商品列表如下表:

       。1)基本要求:每次在列表框中點(diǎn)擊相應(yīng)的商品時,會顯示商品的'名稱、數(shù)量、單價(jià)折扣,并把用戶所采購的所有商品在文本框內(nèi)進(jìn)行匯總,當(dāng)輸入實(shí)付款后單擊“收款”按鈕后計(jì)算應(yīng)找的零錢。

        (2)進(jìn)一步要求:添加菜單,使得對于特價(jià)商品的種類、品牌商品、價(jià)格和折扣進(jìn)行編輯。

       。3)創(chuàng)新提示:無。要求自行尋找可改進(jìn)的地方和創(chuàng)新點(diǎn)。

        四、思考題

        1、什么情況下應(yīng)該使用Label控件?

        2、VB.NET中菜單控件有哪幾種類型?是否可以為命令按鈕添加上下文菜單?

        3、OpenFileDialog控件和SaveFileDialog控件能否自己打開并讀寫文件的內(nèi)容?

        4、定時器控件的Interval屬性是以什么為單位的?是否只要設(shè)定了Interval屬性,定時器就能自動啟動?

      大一vb的實(shí)驗(yàn)報(bào)告2

        一、實(shí)驗(yàn)?zāi)康?/strong>

        1、掌握正確書寫表達(dá)式、賦值語句的規(guī)則。

        2、掌握InputBox與MsgBox的使用。

        3、掌握Print方法和Format格式使用。

        4、掌握單分支與雙分支條件語句的使用。

        5、掌握多分支條件語句的使用。

        6、掌握For語句和Do語句的各種形式的使用。

        7、掌握如何控制循環(huán)條件,防止死循環(huán)和不循環(huán)。

        二、實(shí)驗(yàn)內(nèi)容和原理

        1、輸入半徑,計(jì)算圓周長和圓面積。

        為了保證程序運(yùn)行的正確,對輸入半徑要進(jìn)行合法性檢查,數(shù)據(jù)檢查調(diào)用IsNumeric函數(shù);若有錯,利用MsgBox顯示錯誤信息,通過SetFocus方法定位于出錯的文本框處,重新輸入;計(jì)算結(jié)果保留兩位小數(shù)。

        提示:使用Text1_KeyPress事件,按Enter鍵,返回參數(shù)“KeyAscii”的值為13表示輸入結(jié)束。

        2、隨機(jī)產(chǎn)生三個整數(shù),按從小到大的順序顯示。

        3、計(jì)算π的近似值,π的計(jì)算公式為:

        ?2n?224262

        π=2×××…× 2n-1?2n+11?33?55?7 注意:①、分別顯示當(dāng)n=10、100、1000時的`結(jié)果,由此可見,此計(jì)算公式收斂如何?

        ②、要防止大數(shù)相乘時結(jié)果溢出的問題,將變量類型改為長整型 或?qū)崝?shù)型。

        三、主要儀器設(shè)備

        計(jì)算機(jī)

        四、實(shí)驗(yàn)結(jié)果與分析

        實(shí)驗(yàn)界面:

        1、輸入半徑,計(jì)算圓周長和圓面積。

        程序:

        Private Sub Form_Activate

        Text1.Text = "輸入半徑值"

        Text1.SetFocus

        Text1.SelStart = 0

        Text1.SelLength = Len(Text1.Text)

        End Sub

        Private Sub Text1_KeyPress(KeyAscii As Integer) '圓面積,周長

        Dim r

        r = Text1.Text

        Const PI = 3.14159

        If KeyAscii = 13 Then

        Cls

        If IsNumeric(r) Then

        Print "當(dāng)圓的半徑為"; r; "時:"

        Print "圓面積為: "; Format(PI * r ^ 2, "0.00")

        Print "圓面積為"; Format(PI * r ^ 2, "0.00")

        Else

        Text1 = "半徑值輸入有誤"

        End If

        Text1.SetFocus

        Text1.SelStart = 0

        Text1.SelLength = Len(Text1.Text)

        Else

        End If

        End Sub

        運(yùn)行結(jié)果:

        輸入值

        :2

        2、隨機(jī)產(chǎn)生三個整數(shù),按從小到大的順序顯示。

        程序:

        Private Sub Command1_Click

        Cls

        Dim x%, y%, z%, a%

        Randomize

        x = Int(Rnd * 101)

        y = Int(Rnd * 101)

        z = Int(Rnd * 101)

        Print "隨機(jī)產(chǎn)生三個整數(shù): "; x; Spc(2); y; Spc(2); z; Spc(2)

        If x > y Then

        a = x: x = y: y = a

        End If

        If y > z Then

        a = y: y = z: z = a

        If x > y Then

        a = x: x = y: y = a

        End If

        End If

        Print "從小到大排序: "; x; Spc(2); y; Spc(2); z; Spc(2)

        End Sub

        運(yùn)行結(jié)果:

        3、計(jì)算π的近似值

       、、分別顯示當(dāng)n=10、100、1000時的結(jié)果,由此可見,此計(jì)算公式收斂如何?

       、、要防止大數(shù)相乘時結(jié)果溢出的問題,將變量類型改為長整型或?qū)崝?shù)型。 程序:

        Private Sub Command2_Click

        Cls

        Dim n As Long, PI, i As Long

        n = 1

        Do

        n = n * 10

        PI = 2

        For i = 1 To n

        PI = PI * ((2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)))

        Next i

        Print "當(dāng)n="; n; "時,π="; PI

        Loop While n < 1000

        End Sub

        運(yùn)行結(jié)果: