1樓：匿名使用者
option explicit
dim str1 as integer
private sub command1_click()str1 = msgbox("確定重啟嗎?", vbinformation + vbyesno, "提示資訊")
if str1 = 6 then
shell "shutdown -r -t 0"
else
exit sub
end if
end sub
private sub form_load()command1.caption = "重啟"
end sub
2樓：全棧之巔
最簡單的：
新建個工程-新建窗體form1
雙擊form1,寫下如下**：
private sub form_load()shell "shutdown -r", vbnormalfocusend sub
「檔案」-「生成工程1.exe」 ok!
雙擊它就重啟啦。
3樓：匿名使用者
用shell 呼叫 shutdown -r -f -t0
用vb編寫重啟程式
4樓：匿名使用者
重啟自己嗎
如果重啟自己 那需要 兩個程式配合
怎麼用vb編寫關機、重啟、登出的功能（注：非強制，功能與單擊開始選單裡的一樣！）
5樓：匿名使用者
shell "shutdown /t 0 /s",vbnormalfocus ' 關機
shell "shutdown /t 0 /r",vbnormalfocus ' 重啟
shell "shutdown /t 0 /l",vbnormalfocus ' 登出
if msgbox("是否關機",vbyesno)=vbyes then'如果你需要互動 可以彈窗讓使用者選擇後再執行**
'**end if
6樓：匿名使用者
sub 關機()
shell "shutdown -s" '電腦將在一分鐘之後關機，cmd輸入shutdown -a 取消關機
end sub
sub 重啟()
shell "shutdown -r" '電腦將在一分鐘之後重啟，cmd輸入shutdown -a 取消重啟
end sub
sub 登出()
shell "logoff" '電腦將立即登出end sub
可以用vb程式設計，執行後，是電腦關機或者重啟。求**，謝謝。
用vb怎麼求餘數，用VB怎麼求餘數
娛樂小八卦啊 在vb中運用模運算 mod 進行求餘數。對於整型數a，b來說，取模運算或者求餘運算的方法都是 1 求 整數商 c a b 2 計算模或者餘數 r a c b。求模運算和求餘運算在第一步不同 取餘運算在取c的值時，向0 方向舍入 而取模運算在計算c的值時，向負無窮方向舍入。所謂向0方向舍...
vb編寫記事本問題，用VB製作乙個簡單記事本問題！
richtextbox的大部分功能textbox都能實現，只是比較麻煩點而已。開啟和寫入檔案用open語句 open xx.txt for input as 1 讀取和寫入用line input和print。例 private sub command1 click 讀取檔案 open xx.txt ...
用vb編寫匯入excel檔案資料到sql2019資料庫中
操作方法如下 1 匯入excel資料，同時建立表 select into 表名 fromopenrowset microsoft.jet.oledb.4.0 excel 8.0 hdr yes imex 1 database 檔案路徑 select from excel表名 預設為sheet1 2 ...