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...