配菜問題 VB 如何設計時間程式

樓上的回答正確。 使用 VB 的日期和時間函式。

private sub cmdok_click()= "日期：" & date

end sub

如果你不想給他，就給我。

就是這樣，新增 1 個命令按鈕，2 個標籤。

private sub command1_click()= "日期：" & date

end sub

datepart 函式應該用於分別獲取小時、分鐘和秒的值，然後將它們組合在一起。

= "日期：" & cstr(date)

讓我們看看這是否可行。

有什麼要求？ 需要哪些功能？

首先繪製自己的控制項，請參閱其中的控制項。

不會有錯。 請注意，左側的框架內還有乙個標籤。

別忘了！ private sub command1_click()

randomize

dim a%, b%, c%, cr%

cr = int(3 * rnd + 1)

if cr = 1 then

石頭"elseif cr = 2 then

剪刀"elseif cr = 3 then

布"end if

if cr = 1 and = true then msgbox ("乒")

if cr = 1 and = true then msgbox ("you lost")

if cr = 1 and = true then msgbox ("you win!")

if cr = 2 and = true then msgbox ("you win!")

if cr = 2 and = true then msgbox ("乒")

if cr = 2 and = true then msgbox ("you lost")

if cr = 3 and = true then msgbox ("you lost")

if cr = 3 and = true then msgbox ("you win!")

if cr = 3 and = true then msgbox ("乒")

end sub

private sub command2_click()

unload form1

end sub

private sub label3_click()

end sub

private sub command3_click()

msgbox ("you win!" & w & chr(13) &"you lost" & l & chr(13) &"乒" & p)

end sub

private sub form_load()

end sub

private sub option1_click()

end sub

private sub option2_click()

end sub

private sub option3_click()

end sub

它不是很簡潔，但沒關係。

呵呵，希望它能解決你的問題。

private sub form_load()

shell "要開啟的檔案的路徑", vbhide

end sub

要使用程式呼叫，首先將乙個變數設定為要開啟的檔案，然後使用 open 命令來指示此變數，僅此而已。

在表單上新增乙個按鈕和乙個標籤，以向您傳送私人訊息。

這個很有用，你有答案嗎？

如果問題有問題，x=3，我該怎麼辦？

if x>=3 then

y=x^2-2*x

elsey=6+4*x^2

end if

print y

模組：宣告 sub sleep lib"kernel32" (byval dwmilliseconds as long)

form1：

private sub command1_click()speed = 50

for i = 1 to 10

if < 4000 then

for l = 1 to 10

i * 100

i * 100

call sleep(speed)

nextelse

i * 100

call sleep(speed)

end if

nextend sub

private sub form_load()= 4000

vbredvbfssolid

vbredend sub

shape2 是列。

角色跳躍動作的控制與酒吧相同，但修改了對人所有部位的控制的最高值。 我沒有寫所有的**，但上面的**應該給你乙個想法，剩下的你能自己寫嗎？ 如果你寫不出來，那就問吧，有時間我幫你完成。

現在我要修車，我的車被劃傷了，55555。

哦，是的，對於加速度控制，變速由文字框表示，使用者可以修改障礙的速度。

完成後，功能如圖所示，可以自定義速度、障礙物數量和障礙物橫坐標。

人物、地面、障礙物都是用**繪製的！

因為我寫得很匆忙，所以有些地方需要自己優化。

1.你做乙個按鈕命令1，雙擊進入**視窗，寫如下**：

private sub command1_click()shell "c:\windows\pchealth\helpctr\binaries\"

end sub

2.然後執行程式，單擊按鈕，即可進入“系統配置實用程式”。

希望對你有所幫助。