VB實驗報告

台州學院

《vb程式設計》實驗報告

實驗六：過程

班級：學號：姓名：

實驗日期：2013.04.22

一、實驗目的和要求

1．掌握函式的定義和呼叫方法；

2．掌握過程的定義和呼叫方法；

3．掌握形參與實參的對應關係；

4．掌握值傳遞和位址傳遞的傳遞方式；

5．掌握變數、函式和過程的作用域；

6．熟悉程式設計中的常用演算法。

二、實驗主要儀器和裝置

計算機一台，windows xp作業系統，visual basic環境。

三、實驗內容

實驗6.1 編寫乙個求三個數最大值的函式max(x，y，z)，然後呼叫此函式求下列表示式的值，首先在文字框中輸入a,b,c三個數，然後單擊「計算」按鈕，在文字框中輸出表示式的值m。表示式為：

執行介面如圖6-1所示。

圖6-1 程式執行時的介面

實驗6.2 編一求素數的函式過程prime(x)，若x是素數返回true，否則返回false。主調程式呼叫prime(x)函式輸出100之內的所有素數。

實驗6.3（選做）編一過程find(s1,s2)，用於在字串s1中查詢子串s2，並用訊息框輸出結果：未找到或找到的個數。

（提示：利用mid函式反覆在字串s1找s2子串。）

四、實驗原始紀錄

實驗6.1

程式的介面設計。

程式**。

private sub command1_click()

dim a as single, b as single, c as single, m as single

a =b =c =m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c))

= mend sub

function max(byval x as single, byval y as single, byval z as single) as single

max = x

if max < y then max = y

if max < z then max = z

end function

實驗6.2

程式的介面設計。

程式**。

private sub command1_click()

dim i as integer

for i = 1 to 100

if prime(i) then print i;

next i

end sub

function prime(byval x as integer) as boolean

dim i as integer

if x < 2 then exit function '當x<2返回false

for i = 2 to sqr(x)

if x mod i = 0 then exit function '如果x被i整除，說明x不是素數，立刻返回

next i

prime = true 'x是素數

end function

實驗6.3（選做）

程式的介面設計。

程式**。

五、實驗結果及分析

實驗6.1執行結果。

實驗6.2執行結果。

實驗6.3執行結果。（選做）

六、實驗總結與思考（主要寫一些在實驗過程中，遇到的問題、所犯的錯誤，以及是如何發現糾正的。大約100至左右。）

形參無具體值，不能是常量、陣列元素、表示式。

函式過程必須有返回值，必須在函式過程體內對函式名賦值。

VB實驗報告

台州學院 vb程式設計 實驗報告 實驗二 visual basic 程式設計基礎 班級 14生科2 學號 1431210034 姓名 何敏 實驗日期 20150331 一 實驗目的和要求 1 掌握基本語句 print語句 賦值語句 dim語句等 的使用 2 掌握表示式的正確書寫方法及函式 運算子的正...

VB實驗報告

浙江大學城市學院實驗報告 課程名稱vb程式設計基礎與實驗 實驗專案名稱實驗 四 分支結構程式設計 學生姓名專業班級學號 實驗成績指導老師 簽名日期 一.實驗目的和要求 1.掌握單分支與雙分支條件語句if的使用。2.掌握多分支條件語句的使用。3.掌握情況語句select case的使用及其與多分支條件...

VB實驗報告

內蒙古工業大學能動學院 課程名稱 高階語言程式設計 vb 實驗名稱 選擇 迴圈 陣列和過程綜合程式設計 實驗型別 驗證性 綜合性 設計性 實驗室名稱 校計算中心 班級 學號 姓名 組別 同組人成績 實驗日期 實驗報告撰寫要求 一 實驗前用預習報告紙撰寫預習報告，預習報告包括以下內容 1 實驗目的 2...