高手幫忙做幾個簡單VB程式,獎重金

2022-07-20 02:45:30 字數 1621 閱讀 2348

1樓:

呵呵,我也是新手,做了一下,算是練習!一共三個窗體,每個窗體的**分別如下:

窗體1:兩個command,三個text,三個label,**如下:

const pi = 3.14

dim r, l, s as double

private sub command1_click()

r = val(text1.text)

l = 2 * pi * r

text2.text = l

s = pi * r * r

text3.text = s

end sub

private sub command2_click()

form1.hide

form2.show

end sub

窗體二:一個command ,一個picture,一個timer,**如下:

private sub command1_click()

form2.hide

form3.show

end sub

private sub form_load()

picture1.autosize = true

timer1.enabled = true

end sub

private sub timer1_timer()

picture1.left = picture1.left + 100

if picture1.left > 1500 then

picture1.left = 0

end if

end sub

窗體三:三個commmand,兩個label,兩個text,**如下;

private sub command1_click()

if val(text1.text) >= 10 then

text2.text = 3 * val(text1.text)

else

text2.text = 3.5 * val(text1.text)

end if

end sub

private sub command2_click()

text1.text = ""

text2.text = ""

end sub

private sub command3_click()

unload me

end sub

如有錯誤,還請指正,大家都是新手,相互學習!

2樓:

簡單的作業題你自己完成吧,別指望這裡會有人為了你的分而幫你做作業。現在的家庭作業難倒了家長就搬到網上來了真可笑。

3樓:江湖三腳貓

哥們叫什麼名字,不然別人做了還要給你傳工程檔案,好讓你改caption屬性,我怕你不會改啊。

4樓:匿名使用者

這些題最多幾行**就行了,特別是第二題就一行**,還好意思問~

5樓:

1,3我會,2我不會

6樓:匿名使用者

第一和第三很容易就能做到,但是第二個要用計時器的,好久沒折騰有點兒忘記了~!

以上幾個VB題目怎麼做,求Vb高手做幾個VB題目

考試的麼?求vb高手做幾個vb題目 那位大俠幫我做幾個vb visual basic 的題目啊,很基礎,但我不會 你看前兩題這樣做行不?第一題 dim i as integer dim sum as long i 0 sum 0 while i 100 i i 1 if i mod 5 0 or i...

用vb怎麼做,怎麼用vb做一個簡單的程式

option explicit private sub command1 click 顯示當前日期 text1.text format now,yyyy mm dd end sub private sub command2 click 顯示當前時間 text2.text format now,hh ...

很簡單的vb小程式,高手快來啊,很簡單的一個vb小程式,高手快來啊!

窗體加一個文字框。if text1.text z1z1z1z1 thenmsgbox 密碼正確 shell c program files cs1.6 cstrike.exe unload me else msgbox 密碼錯誤 text1.text end if lable.caption tim...