1樓：匿名使用者
用timer控制元件,設interval=1000然後在事件處理過程中檢查
if second(now())=0 then' 0秒
end if
if minute(now())=59 then' 59分
end if
如果用do迴圈,會霸佔cpu資源,結果就想當於死迴圈.
2樓：匿名使用者
dim mytime
mytime = time ' 返回系統當前的時間。
msgbox right(mytime, 2) '此處返回系統時間秒格式為ss
msgbox mid(mytime, 4,2)返回分鐘.
思路如下,如果right(mytime, 2)為0就執行程式,否則mid(mytime, 4,2)為59,且right(mytime, 2)也為0,等待1秒後執行另一程式,否則退出,防止重複執行.
你可以使用2個程式,一個始終檢測時間,當滿足條件時,執行另一個程式.
3樓：匿名使用者
if minute(now) = 59 then '59分'**end if
if second(now) = 0 then ' 0秒'**end if
求大神幫忙一個超級簡單vb程式**編寫 跪求！
4樓：匿名使用者
private sub btnhide_click()label1.visible = flasebtnshow.enabled = truebtnhide.
enabled = flaseform1.caption = "單擊「顯示」按鈕顯示文字"
end sub
private sub btnshow_click()label1.visible = truebtnshow.enabled = falsebtnhide.
enabled = trueform1.caption = "單擊「隱藏」按鈕隱藏文字"
end sub
private sub form_load()form1.caption = "單擊「顯示」按鈕顯示文字"
end sub
設計vb程式,求10!的值
5樓：匿名使用者
dim t as long
dim i as integer
t=1for i=1 to 10
t = t * i
next i
print t
求好心人幫忙做個簡單vb程式
6樓：華影黑蟲
分數也太少了吧，加分的話可以考慮下呵呵
請高手朋友幫忙，萬分感激！求下面vb程式
7樓：匿名使用者
我大概說下我的演算法（我不是學vb的，但是演算法是相通的）：
3、設max=a[1,1]。以i、j分別作為下標，for i=1 to m，for j=1 to n.
if a[i,j]>max,max=a[i,j].maxi=i,maxj=j.最後輸出maxi，maxj。
4、n=1;m=1;讓m每次遞增5，如果m也是7的倍數，則輸出m，同時n+1，直到n=10。可以用do while 迴圈來實現。
5、兩個迴圈，外迴圈計數，從100計到1000.內迴圈用於求素數。for i=100 to 1000
6、用一個數列來存放所有的數。用一個for迴圈來統計每一個數,變數n（初值為0）計數，變數sum（初值為0）求和。凡是負數，則變數n+1；凡是正數，則變數sum=sum+a[i].
7、用一個for迴圈計數，對於每一個i，通過除10取餘，可以不斷得到它的最後一位。
比如i=9876，除10得到987，餘數為6.把6儲存下來，乘以10，6*10=60.而987繼續除10，得到98，餘數為7.
（7+60）*10=670；98再除10，得到9，餘數為8.而（8+670）*10=6780.6780+9=6789.
這樣，就把原先的數字每一位都反過來了。只要判斷現在的數字和i是否相等就行了。
8樓：
每題30分
或分開問每題20分
保證代質量
這活我就接
同意hi我
或 q我38967098
不同意誤擾
彪悍人生不需要解釋，彪悍的**不需要註釋
9樓：匿名使用者
第8題是這樣的:
dim i%, j%
for i = 1 to 9
for j = 1 to i
high(i, j)
next
next
sub high(byval x as integer, byval y as integer)
print x & "×" & y & "=" & x * y & " ",
end sub
10樓：
這麼多問題才30分,哪個給你寫嘛!
跪求大神幫忙用vb程式寫這道題！！！
11樓：
private sub command1_click()dim ts as integer,tv0 integer, tv1 as integer,ta as integer,tt as integer
tv0=40*1000/3600
tt=2*60
'先化簡，統一各單位 v=40km/h=100/9 m/s ,a = 0.15 m/s, t=120 s
tv1=tv0+ta*tt '由公式v2=v1+at得ts=tv0*tt+ta*(tt)^2/2 '由公式s=v0t+at^2/2得
text1.text=tv1 '2min後速度vtext2.text=ts '距開始點的距離send sub
『必要的話可以進行單位換算
求解！！vb程式設計，幫忙，謝謝。 30
12樓：
如果不是家庭作業的話，哥倒可以幫你考慮考慮。
編寫一lisp程式cad，求大神幫忙寫一個cad的lisp程式
試程式設計序如下，請校核。defun hang p r n repeat n command circle p r setq l cons p l p polar p 0 r r l defun sjy p r n i p1 p2 p3 l setq i 0 repeat n hang p r n ...
求PS大神幫忙扣校徽，求PS大神幫忙扣一個校徽
給你透明背景的png格式，滿意就採納吧。 付秋明 應該不麻煩呀，需要png檔案 求ps大神幫忙扣一個 自己懂得這麼多為什麼不自己去做！用ps摳圖換背景有很多種方法，具體根據背景複雜程度。對於背景邊緣較簡單的，可以使用 1 鋼筆工具加路徑相結合的方法 2 濾鏡中的抽出濾鏡 3 快速選擇工具結合選區 4...
求幫忙做c 程式,有重謝，求幫忙做一個c 程式,有重謝
include include using namespace std void func 1 三個數中的最大數void func 2 九九乘法表void func 3 大小寫轉換void func 4 陣列查詢 int main else if a c max c cout 最大的數是 str f...