vb猜數字游戲編程,怎樣用VB制作一個四則運算的程序?
畫一個Text1用于輸入第一個數,畫一個Text2用于輸入第二個數,畫一個Combo1用于選擇運算法則,畫一個Command1點擊它開始計算! 在Form的Load中打 Combo1.AddItem"+" Combo1.AddItem"-" Combo1.AddItem"×" Combo1.AddItem"÷" Command1.Caption="計算" 在Command1的Click中打 a=Val(Text1.Text) b=Val(Text2.Text) SelectCaseCombo1.Text Case"+" c=a+b Case"-" c=a-b Case"×" c=a*b Case"÷" c=a/b EndSelect MsgBoxc 希望能幫到你~有什其他要求或問題可以追問我。
VB編寫簡單的計算器程序?
對于初學Microsoft Visual Basic的人而言,編寫自己的第一個簡單程序是非常激動的,那么,現在就來簡單的制作一下。
工具/原料一臺電腦Microsoft Visual Basic 6.0 軟件方法/步驟1、打開VB新建一個EXE。
2、如圖畫上4個按鈕控件表示加減乘除,再畫上3個文本控件表示兩個數與和數,再畫一個標簽控件加入“=”號。當然,界面可以自己發揮。
3、畫好之后,就可以把控件進行命名,注意是屬性欄的Caption項命名,以便運行的時候方便識別。
4、好的,現在可以進行最重要的代碼編寫啦。雙擊對應的按鈕控件,進入代碼編寫界面。Text3.Text = Val(Text1.Text) + Val(Text2.Text),其實代碼很簡單,就這一句只要更換把‘+’分別換成‘-’‘*’‘/’即可。
5、好了,現在可以點擊運行或者F5鍵運行,即可得到第一個簡單的計算器程序。
注意事項為了方便,這里的界面沒有進行優化,自己做的時候可以把界面美化一下。Val()是一個VB內置函數不懂就搜索一下。值得注意的是當計算除法的時候,如果分子為0就會出錯。所以可以加上If Val(Text2.Text) = 0 Then ……進行提示。如何設計用vb語言編寫一個程序?
private sub command1_click()
dim max
for i = 1 to 3
n=val(inputbox("輸入第" & i & "個數"))
if n>max then
max =n
end if
next
print "三個數中最大的數是" & max
以上就是關于vb猜數字游戲編程和怎樣用VB制作一個四則運算的程序的相關問題解答,希望對你有所幫助。