vb程式設計利用inputbox函式輸入兩個整數,在窗體上

時間 2021-08-30 10:29:00

1樓:白渡網友

private sub command1_click()a = inputbox("請輸入數字a")b = inputbox("請輸入數字b")if a > b then

print "最大數字為" & a & (chr(13) & chr(10)) & "最小數字為" & b

else

print "最大數字為" & b & (chr(13) & chr(10)) & "最小數字為" & a

end if

end sub

2樓:匿名使用者

private sub command1_click()dim a as integer

dim b as integer

a = inputbox("", "")

b = inputbox("", "")

if val(a) > val(b) thenprint "最大值:" & a

print "最小值:" & b

else

print "最大值:" & b

print "最小值:" & a

end if

end sub

用vb編寫程式(找出三個數中的最大數,通過inputbox函式獲得三個數)

3樓:匿名使用者

private sub command1_click()dim a as single

dim b as single

dim c as single

dim max as single

a = val(inputbox("輸入第1個數"))max = a

b = val(inputbox("輸入第2個數"))if b > max then max = bc = val(inputbox("輸入第3個數"))if c > max then max = cmsgbox "最大數是" & max

end sub

vb程式設計題,輸入3個數,然後輸出其中的最大數

4樓:耽門弄腐

public class form1

dim x, y, z as integerprivate property max as objectprivate sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.

load

x = inputbox("鍵入第一來

個數自")

y = inputbox("鍵入第二個數")z = inputbox("鍵入第三個數")max = x

if max < y then max = yif max < z then max = zmsgbox("輸入的三個數分別是" & x & "、" & y & "、" & z & "中最大的數為:" & max)

end sub

end class

5樓:匿名使用者

private sub command1_click()x = inputbox("鍵入

來第自一個數

y = inputbox("鍵入第二個數")z = inputbox("鍵入第三zhi個數")max = x

if max < y then max = yif max < z then max = zprint "最大值

dao"; max

end sub

6樓:匿名使用者

private sub command1_click()if val(text1)>val(text2) then max=val(text1)

if val(text3)>max then max=val(text3)

text4=max

end sub

按下按鈕,比較3個文字框中數字大小版輸出權到文字框4

7樓:郭某人來此

private sub command1_click()dim max

for i = 1 to 3

n=val(inputbox("輸入第

bai" & i & "個數

duzhi"))

if n>max then

max =n

end if

next

print "三個

數中dao最大的

專數是屬" & max

8樓:匿名使用者

a=inputbox("輸入

自","輸入")

b=inputbox("輸入","輸入")c=inputbox("輸入","輸入")if a>b then max=a

else max=b

next if

if c>max then max=c

next if

幫幫你吧 自己編的 不會問我 歡迎

vb利用inputbox,輸入兩個數,分別在於a和b中,利用程式交換a和b的值

9樓:匿名使用者

在任意事件中新增以下** dim a,b,c as integera=inputbox("請輸入a","輸入",0)b=inputbox("請輸入b","輸入",0)print "交換前的a,b分別為: " & a & "," & bc=aa=bb=cprint "交換後的a,b分別為: " & a & "," & b

10樓:匿名使用者

private sub form_click()dim a,b

a=val(inputbox("a="))b=val(inputbox("b="))print a,b

c=a:a=b:b=c

end sub

11樓:會飛滴包子

dim a as double,b as double,t as double

a=inputbox("請輸入第一個數:")b=inputbox("請輸入第二個數:")t=aa=b

b=tprint a

print b

vb程式設計題:用inputbox函式輸入三個任意整數,按從小到大的順序輸出。

12樓:匿名使用者

private sub form_click()dim a#, b#, c#, x#, y#, z#i: a = inputbox("請輸入baidua")

b = inputbox("請輸入b")

c = inputbox("請輸入c")

if a = b or b = c or a = c thenprint "輸入數zhi據無法運算,請重dao新輸版入"

gotoi

end if

if a < b then

x = b

if x < c then

x = c

y = b

z = a

end if else

x = a

if b > c then

y = b

z = c

else

y = c

z = b

end if

end if

print "自大至

小排序權為:"; x, y, z

end sub

vb程式設計,VB程式設計

大哥你這個問題很簡單,只不過在這裡不能把 全給你,你的問題描述的不清楚,我吧幾個關鍵的技術點告訴你 字型變化有font屬性來實現 按鈕始終在窗體又下放可以再窗體的form resize中設定 按鈕的top和left屬性讓他們分別 me.whith 50,me.heght 50 4 4個按鈕每單擊一次...

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

dim a,b 定義兩個變體型變數a,b,在該模組範圍內有效 private sub form load 窗體載入事件觸發的函式 a picture1.width 記錄 框控制元件picture1的寬度到a變數 b picture1.height 記錄 框控制元件picture1的高度到b變數 hs...

VB程式設計題(簡單),VB 程式設計題(簡單)

做個標記,等會發你郵箱 private sub form load timer1.interval 1000timer1.enabled trueend sub private sub timer1 timer if option1.value true then text1.text format...