vb程式設計問題,VB程式設計問題

2022-06-24 21:37:08 字數 3270 閱讀 9119

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 不是數字的情...