1樓:who絕版笨_我
設 text1 text2 text3 text4 command1 label1
4個test輸入資料
command1是按鈕
label1顯示內容
我給你寫一個子程式
其它你在工具欄向視窗託就行了,然後把這個子程式複製到**做就ok了
private command1_click()
dim maxa,maxb as long
maxa=iff(val(text1.text)>val(text1.text),val(text1.text),val(text1.text)
maxb=iff(val(text3.text)>val(text4.text),val(text3.text),val(text4.text)
label1.caption=val(iff(maxa>maxb,maxa,maxb) )
end sub
2樓:
沒時間編,應該不難吧!
3樓:匿名使用者
前邊自己定義吧
private command1_click()dim max as integer
max=val(text1.text)
if val(text2.text)>max thenmax=val(text2.text)
endif
if val(text3.text)>max thenmax=val(text3.text)
endif
if val(text4.text)>max thenmax=val(text4.text)
endif
label1.caption=max
end sub
4樓:翰林院裡掃地的
private sub form_click()
dim a(1 to 5) as integer
a(1) = -2
a(2) = 1
a(3) = -4
a(4) = 2
a(5) = 6
dim max as integer 'max 是用來儲存在當前已經進行過比較的陣列元素中最大的數
for i = 1 to 5 '對陣列中每一個元素進行逐一比較,先從第一個開始
if a(i) > max then max = a(i)
'如果當前比較的a(i)元素比已有的max要大,則改變max為較大的那個元素,直到完成逐一比較,那麼max就是所有陣列元素中最大的那個數了
next
print max
end sub
上面的示例**是直接用陣列來進行的,當然,如果你說要在文字框裡輸入數字再進行比較,那麼只需要a(1)=val(text1)和a(2)=val(text2)......陣列賦值完畢後,比較過程是一樣的
5樓:匿名使用者
如果你用的是vb2005的話,下面的方法又簡潔又高效:
dim a as integer() = new integer()array.sort(a)
messagebox.show(a(a.getupperbound(0)))
vb程式設計問題
6樓:依晴虹
插入前陣列是**來的?
vb程式設計問題?
7樓:
dim a(1 to 3,1
to 4) as integer
8樓:匿名使用者
廣告費一根火柴不會畫風方大同
vb程式設計問題
9樓:vb程式設計解放雙手
private sub command1_click()dim a as long, b as long, c as long, d as long, s as string
dim jt(4) as long
'1 3
'1 3
'變成'3 1
'3 1
'當前的值負責給jt
jt(1) = 1
jt(2) = 3
jt(3) = 3
jt(4) = 1
for j = 1 to 4
s = s & jt(j)
next
print "原始順序:"; s
' 當前的應該是1331,轉換後的結果應該是3113for j = 1 to 100 'a聯動對應jt(1)jt(2) = jt(2) + 1
if jt(2) >= 5 then jt(2) = 1jt(4) = jt(4) + 1
if jt(4) >= 5 then jt(4) = 1for k = 1 to 100 'b聯動對應jt(2)jt(1) = jt(1) + 1
if jt(1) >= 5 then jt(1) = 1jt(3) = jt(3) + 1
if jt(3) >= 5 then jt(3) = 1for l = 1 to 100 'c聯動對應jt(3)jt(2) = jt(2) + 1
if jt(2) >= 5 then jt(2) = 1jt(4) = jt(4) + 1
if jt(4) >= 5 then jt(4) = 1for m = 1 to 100 'd聯動對應jt(4)jt(1) = jt(1) + 1
if jt(1) >= 5 then jt(1) = 1jt(3) = jt(3) + 1
if jt(3) >= 5 then jt(3) = 1s = ""
for n = 1 to 4
s = s & jt(n)
next
if s = "3113" then
print "目前順序:"; s
print "a聯動次數:"; j; "b聯動次數:"; k; "c聯動次數:"; l; "d聯動次數:"; m
exit sub
end if
next
next
next
next
end sub
10樓:匿名使用者
說實話,解釋、圖形看不太懂,圖上沒有上下的箭頭旋轉來、旋轉後頭都快暈了,不知道它現在是朝向哪個方向。
不如重新理清思路,點選a、b、c、d,各顯示什麼,比如,點選a想讓他顯示第一個圖,即a、c,點選c顯示第三個圖c、a……
這樣用select case分支就能實現
vb程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
VB程式設計的小問題
拆分 千位 int 數字1 1000 百位 int 數字1 100 mod 10十位 int 數字1 10 mod 10各位 數字1 mod 10 逆序 a int 數字1 1000 b int 數字1 100 mod 10c int 數字1 10 mod 10 d 數字1 mod 10 逆序數 d...
VB程式設計的問題,求助高手
private sub text1 keypress keyascii as integer timer1.enabled falseif keyascii 48 or keyascii 58 then 判斷是否數字 if keyascii 32 or keyascii 13 then 不是數字的情...