1樓:網友
1.新建工程:工程1;
2.新建一下combobox控制元件:combo1,並將屬性style改為2;
3.新建五個label:label1,label2,label3,label4,label5;
4.新建兩個text文字框:text1,text2
5.新建一個commandbutton按鈕:command1;
以上的相關控制元件不要改名字,位置也不用設定,程式會自動設定好。
將下面的**copy進去就行了。
private sub form_load()
= 種類"
with combo1
.additem ("90號")
.additem ("95號")
.additem ("100號")
.move 500, 500, 1200
end with
= 單價(元/升)"
= 數量"
= 總價(元)"
= false
= 計算"
end sub
private sub combo1_click()
select case
case "90號":
case "95號":
case "100號":
vb程式設計練習題?
一道vb程式設計題
2樓:匿名使用者
出生看減去今年不就行了。
關於一個vb程式設計
3樓:狼與花椒
程式介面如上圖所示:一個標籤(名稱為label1),三個核取方塊(名稱分別為check1、check2和check3,caption屬性分別為紅、綠和藍)一個命令按鈕(名稱為command1,caption屬性為結束),完成程式功能的**如下:
dim red as integer
dim green as integer
dim blue as integer
private sub check1_click()
if = 1 then
red = 255
elsered = 0
end if
= rgb(red, green, blue)
end sub
private sub check2_click()
if = 1 then
green = 255
elsegreen = 0
end if
= rgb(red, green, blue)
end sub
private sub check3_click()
if = 1 then
blue = 255
elseblue = 0
end if
= rgb(red, green, blue)
end sub
private sub command1_click()
endend sub
private sub form_load()
red = 0
green = 0
blue = 0
= rgb(red, green, blue)
end sub
vb程式設計中程式設計時應注意哪些方面
vb程式題?
4樓:匿名使用者
在迴圈中再做a=a+1,相當於每次迴圈加2(a=a+1加一次,迴圈本身加一次),所以當到10的時候,還會自加2,a變為12,此時因不滿足條件退出迴圈,所以最終a為12,答案選擇d
五道vb程式分析題,答案有,求大神給分析一下程式過程,急!
5樓:夷逸雅顧依
8、輸入一個數x,如果x>=0,則y=1-2*x,否則的話y=1+x9、迴圈,直到i大於7,每次迴圈i增加3,x增加510、rnd函式是返回一個0—1之間的。
隨機數,所以取整後x為4(只取。
整數部分。),輸出結果必為good
11、迴圈,每一次迴圈x=(x+3)*(x+4),n為迴圈次數,迴圈直到x>=60為止,輸出n,x及和。
12、x為字元框內數字,a為x除10求餘,b為x除10求餘後再除以10,c為x除100,因為均為整數型,所以最後結果都必須取整(四捨五入)
電大vb程式設計問題 求高手指點 萬分感謝~!
vb練習題誰有
蔡瑀 最好的練習題就是自己給自己出題 以前我就是這樣自己實踐的.如果不知道怎麼給自己出題,那麼你最起碼的工具都不熟悉,還怎麼學呢?vb編譯器有自帶的教程的 魏煒 一 填空題 1.vb中若要產生一訊息框,可用 1 函式來實現。msgbox 2 常量是指在程式執行過程中,2 的量 其值不能改變 3 整數...
程式設計語言VB複習題,程式設計語言VB複習題 doc
一.4.應選c,picture改為load.picture 三.gfedcba 四.1.if fz 0.text then msgbox 請輸入 exit sub end if s fz 0.text n cint s 此題輸入n為10即可 for i 0 to n msgbox 請輸入第 str ...
VB程式設計題
五十分太少,十幾道題,太虧了,不做 蒼鬱 你把題分開,一道題一個帖子,就會有很多人幫你做了,都是些很簡單的題 五十分太多,十幾道題,太賺了,我做 1.在文字框text1中輸入一串字元,統計其中字母 不區分大小寫 數字和其他字元的個數。dim i as integer,a as integer,b a...