西南林業大學
《測繪軟體開發與應用》
實驗報告
測繪工程系制
實驗日期_ 2023年5月3日 _
得分在窗體上放置乙個標籤、乙個文字框和乙個命令按鈕，單擊命令按鈕，則在標籤上顯示「大家好！」，在文字框顯示「歡迎來到這裡！」。
1、介面設計截圖
2、介面設計屬性表
command1的單擊事件進行程式設計，輸入如下**：
private sub command1_click()』更改文字框內容
label1.caption = "大家好！"
label1.fontname = "宋體"
label1.fontsize = 15
label1.fontbold = true
text1.text = "歡迎來到這裡！"』更改文字框內容
text1.fontname = "黑體"』設定文字框字型
text1.fontsize = 16』設定文字框字型大小
text1.fontbold = true
end sub
1、實驗結果截圖如下：
本次實驗主要練習了標籤、文字框和命令按鈕的顯示，本次實驗比較簡單，用時也較短，中間沒有出現什麼問題。通過本程式，掌握了利用vb進行程式設計的整個流程。本次實驗附件包括：
程式源**、可執行檔案。
熟悉新建工程和窗體
實驗結果截圖如下：
實驗結果截圖如下：
dimbeichushu,chushuassingle
beichushu=val(text1.text)
chushu=val(text2.text)
text3.text=beichushu/chushu
text4.text=beichushu\chushu
text5.text=beichushumodchushu
實驗結果截圖如下：
private sub cmdexit_click()
unload me
end sub
private sub cmdok_click()
if txtname.text = "lx" and txtpassword.text = "1234" then
form2.show
me.hide
else
form3.show
unload me
end if
end sub
private sub command1_click()
form1.show
unload.show
end sub
private sub text1_change()
text1.text = "軟體資源" & vbcrlf & "軟體資源"
end sub
private sub form_load()
unload me
end sub
實驗結果截圖如下：
private sub command1_click()
dim num1, num2, result as single
dim op as string
num1 = val(text1.text)
num2 = val(text3.text)
op = trim(text2.text)
select case op
case "+"
result = num1 + num2
case "-"
result = num1 - num2
case "*"
result = num1 * num2
case "/"
if num2 = 0 then
msgbox ("運算子不能為0，請重新輸入第二個數")
text3.text = ""
text4.text = ""
text3.setfocus
exit sub
else
result = num1 / num2
end if
case else
msgbox ("運算子不符合要求，請重新輸入運算子！")
text2.text = ""
text4.text = ""
text2.setfocus
exit sub
end select
text4.text = result
end sub
private sub label2_click()
dim num1, num2, result as single
dim op as string
num1 = val(text1.text)
num2 = val(text3.text)
op = trim(text2.text)
if op = "+" then
result = num1 + num2
elseif op = "-" then
result = num1 - num2
elseif op = "*" then
result = num1 * num2
elseif op = "/" then
if num2 = 0 then
msgbox ("運算子不能為0，請重新輸入第二個數")
text3.text = ""
text4.text = ""
text3.setfocus
exit sub
else
result = num1 / num2
end if
else
msgbox ("運算子不符合要求，請重新輸入運算子！")
text2.text = ""
text4.text = ""
text2.setfocus
exit sub
end if
text4.text = result
end sub
實驗結果截圖如下：
private sub command1_click()
dim zihao as integer
dim ziti as string
if option1.value = true then
zihao = 16
else
zihao = 20
end if
if check1.value = 1 then
text1.fontbold = true
else
text1.fontbold = false
end if
if check2.value = 1 then
text1.fontitalic = true
else
text1.fontitalic = false
end if
if option3.value = true then
ziti = "宋體"
else
ziti = "黑體"
end if
text1.fontsize = zihao
text1.fontname = ziti
end sub
本次實驗主要練習了介面設計、多種除法運算、簡易計算器的製作、多窗體的運用和單選核取方塊的運用，中間沒有出現什麼問題。通過本程式，掌握了利用vb進行程式設計的部分過程。
軟體開發實習周記
實訓總結 實訓目的 實訓單位和工作崗位 實訓的內容 從事工作情況 實訓的心得體會 天下英雄皆我輩，一入江湖立馬催。從學校到社會的大環境的轉變，身邊接觸的人也完全換了角色，老師變成老闆，同學變成同事，相處之道完全不同。在這巨大的轉變中，我們可能彷徨，迷茫，無法馬上適應新的環境，但在同事的幫助和自己摸索...
軟體開發實習周記
生活方面 懂得了作為乙個企業職員在每日的工作 生活中如何去安排自己的時間，安排私人 事務與工作，在工作時間內一心一意工作不將私人事情帶入工作當中。了解了怎麼去與公司其 他同事的交往，知道如何去將每天的生活過的充實，有規律，平時的生活作息不能隨意而為，而是應該有計畫。工作方面 第一次真正接觸了在乙個企...
實習報告 2023年軟體開發專業實習報告格式
沒有實踐，學習就是無源之水，無本之木。也許對別人來說，一定不能體會為什麼在這不到10個月的時間會讓乙個人有翻天覆地的變化，但是變化就是這樣一點一點產生的。在東軟的實訓生活中，我深深體會到了自己在專業知識方面的欠缺和不足，也意識到了自己做為計算機軟體工程專業的學生，要想在以後的職業中嶄露頭角，除了要有...