實驗報告
課程名稱程式語言實驗學期至學年第學期
學生所在系部
年級班級
學生姓名學號
任課教師
實驗成績
計算機學院制
計算機學院綜合性實驗報告
《 程式語言 》課程綜合性實驗報告
編號：2011－2012學年第二學期
實驗報告
實驗課程名稱vb程式設計基礎與vba應用
專業班級
學號學生姓名
實驗指導老師
浙江大學城市學院實驗報告
課程名稱 vb程式設計基礎與實驗實驗專案名稱實驗
十、上機綜合練習學生姓名專業班級學號
實驗成績指導老師日期
一. 實驗目的和要求
掌握基本設計程式的能力，能使用條件語句、迴圈語句和陣列解決一般的資料處理及應用問題；掌握常用演算法。
二. 實驗內容和原理
從鍵盤輸入兩個正整數，判定其中乙個是否能整除另乙個；
private sub form_click
dim a as integer, b as integer
a = val)
b = val)
if a mod b = 0 or b mod a = 0 then print "能整除" else print "不能整除" end sub
從鍵盤輸入n，計算s=1-5+9-13+17-…+的值；
private sub form_click
dim n as integer, flag as integer, i as integer, s as integer
n = val)
flag = 1: s = 0
for i = 1 to 4 * n + 1 step 4
s = s + i * flag
flag = -flag
next i
print s
end sub
產生30個兩位隨機整數、並按從小到大的順序存入陣列a中，再將其中的奇
數按從小到大的順序在窗體中用緊湊格式輸出；
private sub form_click
dim a as byte, i as byte, j as byte, m as byte for i = 1 to 30: a = ⑴ : next i
for i = 1 to 29
for j = ⑵
if a > a then
m = a: ⑶ :a = m
end if
next j,i
for i = 1 to 30
if ⑷ then print a;
next i
end sub
private sub form_click
dim a as integer, i as integer, j as integer, m as integer
print "排序前："
for i = 1 to 30
a = int) + 10
print a;
if i mod 10 = 0 then print
next i
for i = 1 to 29
for j = i + 1 to 30
if a > a then
m = a: a = a: a = m
end if
next j
next i
print "排序後："
for i = 1 to 30
print a;
if i mod 10 = 0 then print
next i
print "其中的奇數："
for i = 1 to 30
if a mod 2 = 1 then print a;
next i
end sub
求二維陣列a中的最大值以及最大值所在的行號和列號，行數m、列數n及陣列元素從鍵盤輸入；
private sub form_click
dim a as integer, m as integer, n as integer, i as integer, j as integer
dim x as integer, y as integer, max as integer
m = val)
n = val)
redim a
for i = 1 to m
for j = 1 to n
a = inputbox") print a;
next j
next i
max = a
for i = 1 to m
for j = 1 to n
if max max = a
x = i
y = j
end if
next j
next i
print "最大值為" & max & "在第" & x & "行" & y & "列"
end sub
產生k個互不相等的三位正整數。
private sub form_click
dim k as integer, a as integer
k = val)
redim a
for i = 1 to k
a = int) + 100
for j = 1 to i - 1
if a = a then i = i - 1
next j
next i
for i = 1 to k
print a;
if i mod 8 = 0 then print
next i
end sub
幾何圖形列印。
* 1 a
*** 222 bcd
33333 efghi
4444444 jklmnop
內蒙古工業大學能動學院
實驗報告
課程名稱： 高階語言程式設計ⅰ 實驗名稱：選擇、迴圈、陣列和過程綜合程式設計實驗型別： 驗證性□ 綜合性√ 設計性□ 實驗室名稱： 校計算中心班級： 學號：
姓名： 組別：
同組人： 成績： 實驗日期：
實驗報告撰寫要求
一、 實驗前用預習報告紙撰寫預習報告，預習報告包括以下內容
1． 實驗目的
2． 實驗用儀器裝置、器材或軟體環境
3． 實驗原理、方案設計、程式框圖、預編程式等 4． 實驗過程中需要記錄的實驗資料**二、 實驗過程中，要認真觀察，仔細記錄
三、 完成實驗後用實驗報告紙撰寫實驗報告，包括以下內容
1． 儀器裝置型號及編號 2． 實驗器材或軟體環境 3． 實驗步驟、程式除錯方法 4． 實驗資料處理及結果分析 5． 實驗中存在的問題 6． 體會及思考題
四、 報告撰寫時，要求格式規範、書寫整齊
預習報告成績： 指導教師審核： 年月日
預習報告
實驗目的
學會綜合運用選擇結構、迴圈結構、陣列和過程進行程式設計的方法。
實驗儀器及軟體環境：
普通台式電腦、microsoft visual basic 標準環境下
實驗原理：
利用rnd函式產生80個隨機整數，再利用for迴圈將產生的隨機整數入到陣列中，最後用if語句按每行10個數輸出到第乙個文字框中；用if句和mod函式判斷是否為奇偶數，後利用氣泡排序法將奇偶數排序分別輸到
二、三文字框中。呼叫function函式判斷素數，利用for迴圈和if函輸出，用累計求和法將素數的個數求出放入第
四、五個文字框中。
方案設計： 介面設計如下：
存語出數
程式框圖如下
預編**： option base 1
dim i%, j%, a%, b%, c%, l%, m%, n%, w%, p%, q% private sub command1_click for i = 1 to 80 randomize
c = int
c s = s + 1
if s mod 10 = 0 then
vbcrlf end if next i
for i = 1 to 79 for j = 1 to 79
if c > c then t = c
c = c c = t end if next j next i
for i = 1 to 80
if c mod 2 = 0 then m = m + 1
redim preserve a as integer a = c else
n = n + 1
redim preserve b as integer b = c end if next i
for i = 1 to n / 2 l = b
b = b b = l next i end sub
private sub command2_click for i = 1 to m
a p = p + 1
if p mod 10 = 0 then
vbcrlf
台州學院
《vb程式設計》實驗報告
實驗三：選擇結構程式設計
一、實驗目的和要求
1．掌握邏輯表示式及關係表示式的正確書寫形式；
2．掌握if語句單行和塊書寫格式及其正確使用； 3．掌握多分支情況的控制的使用及與多分支條件語句的區別。
VB實驗報告
台州學院 vb程式設計 實驗報告 實驗二 visual basic 程式設計基礎 班級 14生科2 學號 1431210034 姓名 何敏 實驗日期 20150331 一 實驗目的和要求 1 掌握基本語句 print語句 賦值語句 dim語句等 的使用 2 掌握表示式的正確書寫方法及函式 運算子的正...
VB實驗報告
浙江大學城市學院實驗報告 課程名稱vb程式設計基礎與實驗 實驗專案名稱實驗 四 分支結構程式設計 學生姓名專業班級學號 實驗成績指導老師 簽名日期 一.實驗目的和要求 1.掌握單分支與雙分支條件語句if的使用。2.掌握多分支條件語句的使用。3.掌握情況語句select case的使用及其與多分支條件...
VB實驗報告
內蒙古工業大學能動學院 課程名稱 高階語言程式設計 vb 實驗名稱 選擇 迴圈 陣列和過程綜合程式設計 實驗型別 驗證性 綜合性 設計性 實驗室名稱 校計算中心 班級 學號 姓名 組別 同組人成績 實驗日期 實驗報告撰寫要求 一 實驗前用預習報告紙撰寫預習報告，預習報告包括以下內容 1 實驗目的 2...