1樓：polaris北斗
option explicit
private sub command1_click()
'顯示當前日期
text1.text = format$(now, "yyyy\/mm\/dd")
end sub
private sub command2_click()
'顯示當前時間
text2.text = format(now, "hh:mm:ss")
end sub
private sub form_load()
text1.locked = true '顯示日期，設其為只讀屬性
設定背景顏色與視窗背景相同
text1.forecolor = &hff& '設定文字顏色為紅色
text1.fontbold = true '設定文字加粗
text2.locked = true '顯示時間，設其為只讀屬性
設定背景顏色與視窗背景相同
text2.forecolor = &hff& '設定文字顏色為紅色
text2.fontbold = true '設定文字加粗
command1.caption = "當前日期"
command2.caption = "當前時間"
end sub
2樓：匿名使用者
private sub command1_click()text1.text = year(now) & "-" & month(now) & "-" & day(now)
end sub
private sub command2_click()text2.text = hour(now) & ":" & minute(now) & ":" & second(now)
end sub
怎麼用vb做一個簡單的程式
3樓：愚信苑君
先載入窗體上的各種控制元件，然後進入寫**可以從最簡單的加法器做起
4樓：寇同書訾妍
別人寫好的程式，你是不可以直接訪問的，都加了殼，你只能反彙編~
5樓：是小白啊
加入標籤label1，caption設定為「你好，請輸入你的姓名」
加入文字框text1，用來輸入姓名的
加入標籤label2，按照你的要求設定字型屬性，autosize屬性設成true
分別加入確定，繼續，結束按鈕
以下是**：
private sub form_load()me.結束.visible = falseme.
繼續.visible = falselabel2.visible = falseend sub
private sub 繼續_click()me.結束.visible = falseme.
繼續.visible = falselabel2.visible = falseme.
確定.visible = true
label1.visible = truetext1.visible = true
end sub
private sub 結束_click()endend sub
private sub 確定_click()label2.caption = text1.text & "同學，你好，祝你學好vb程式設計"
me.結束.visible = true
me.繼續.visible = true
label2.visible = truelabel1.visible = falsetext1.
visible = falseme.確定.visible = falseend sub
用vb怎麼做出來
6樓：匿名使用者
開啟電腦
開啟vb6.0程式
活動活動滑鼠
敲敲鍵盤
儲存有必要的話生成exe檔案或打包程式。
7樓：匿名使用者
做什麼?_?沒看到題目
用vb怎麼做啊！！！求解！！！
用vb怎麼做一個小遊戲啊?
8樓：席兆堂憐南
一樓.呵呵我也覺著那啥
.手把手
...至少值2000
我說的是
rmb..
9樓：山芝臧柔惠
www.codefans.net
很多遊戲原始碼有註釋
10樓：嚴迪澄巨集逸
要**的話,我的郵箱[email protected],給我你的郵箱地址，我給你一個我剛學vb時弄得一個小遊戲。
用vb做一個程式
11樓：匿名使用者
完整**如下：
option explicit
private d as string
private w as string
private sub command1_click()msgbox d & w
end sub
private sub form_load()option1.caption = "星期一"
option2.caption = "星期二"
option3.caption = "星期三"
option4.caption = "星期四"
option5.caption = "星期五"
option6.caption = "星期六"
option7.caption = "星期天"
option1.value = true
d = "星期一"
option8.caption = "上課"
option9.caption = "休息"
option8.value = true
w = "上課"
end sub
private sub option1_click()d = option1.caption
end sub
private sub option2_click()d = option2.caption
end sub
private sub option3_click()d = option3.caption
end sub
private sub option4_click()d = option4.caption
end sub
private sub option5_click()d = option5.caption
end sub
private sub option6_click()d = option6.caption
end sub
private sub option7_click()d = option7.caption
end sub
private sub option8_click()w = option8.caption
end sub
private sub option9_click()w = option9.caption
end sub
12樓：匿名使用者
private sub command1_click()msgbox combo1.text & combo2.textend sub
如圖所示
用VB怎麼把12345變成，用VB怎麼把12345變成
最簡單bai的就是用strreverse函式 du假設zhitext1.text 12345在發生 mand1的單dao擊事件時要專讓text2.text 54321 語句屬為 private sub mand1 click text2.text strreverse text1.text end ...
vb中怎麼加入標籤，VB中怎麼加入一個標籤
1 首先我們 新建一個工程，並新建一個標準exe工程。2 這時候我們找到工具箱中標籤框。3 這時候我們可以直接雙擊控制元件即可成功繪製。4 或者我們可以選中他，然後在頁面上繪製。5 如果對它的外觀不滿意，我們在屬性視窗中修改。6 雙擊控制元件即可進入 視窗。完成效果圖。1 label 控制元件不可以...
用vb怎麼寫程式
需要控制元件 textbox 和 commandbuttontext屬性如下設定 text1.text text1.multiline truetext1.scrollbars 2 按鈕 private sub command1 click dim mystr as string mystr 123...