1樓:匿名使用者
dim max%, i%, t$, a
t = inputbox("請輸來入三個數源,中間
bai用空格
du隔開zhi")
a = split(t, " ")
for i = 0 to ubound(a)if a(i) > max then max = a(i)next
msgbox t & " 中最大值是dao:" & vbcrlf & max
2樓:匿名使用者
max=val(inputbox("輸入zhi第一數dao"))a=val(inputbox("輸入第
二數回"))
b=val(inputbox("輸入第三數"))if max
答" & max
3樓:匿名使用者
max=val(inputbox("輸入
du第zhi一數dao"))
a=val(inputbox("輸入第二
專數"))
b=val(inputbox("輸入第三數"))if max
屬" & max
vb程式設計題:任意輸入三個數,找出其中最大數?
4樓:匿名使用者
form新增一個按鈕bai,複製du
**,執行zhi,輸出最大數
private sub ***mand1_click()dim a, b, c
a = val(inputbox("請輸dao入專a:"))
b = val(inputbox("請輸入b:"))c = val(inputbox("請輸入c:"))if a < b then a = b
if a < c then a = c
msgbox "最大屬數是: " & a
end sub
5樓:匿名使用者
private sub ***mand1_click()dim a, b, c
a = val(inputbox("請輸bai入duzhia:"))
b = val(inputbox("請輸入b:"))
c = val(inputbox("請輸入c:"))if a>b then d=a
else d=b
if c>d then x= c
else x=c
msgbox "最大數是
dao: " & a
end sub
vb程式設計題,輸入3個數,然後輸出其中的最大數
6樓:耽門弄腐
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
7樓:匿名使用者
private sub ***mand1_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
8樓:匿名使用者
private sub ***mand1_click()if val(text1)>val(text2) then max=val(text1)
if val(text3)>max then max=val(text3)
text4=max
end sub
按下按鈕,比較3個文字框中數字大小版輸出權到文字框4
9樓:郭某人來此
private sub ***mand1_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
10樓:匿名使用者
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
幫幫你吧 自己編的 不會問我 歡迎
從鍵盤輸入任意三個數a,b,c,找出其中的最大數用vb做
11樓:匿名使用者
private sub form_click()dim a as long
dim b as long
dim c as long
a = inputbox("請輸
自入第一個bai數")
b = inputbox("請輸入第二
du個數")
c = inputbox("請輸入第三zhi個數")if a > b and a > c then print "最大數是dao" & a
if b > a and b > c then print "最大數是" & b
if c > b and c > a then print "最大數是" & c
end sub
求VB高手 編寫程式，找出10000 99999的所有迴文數
private sub mand1 click dim i as long,j as longdim x1 as long,x2 as longdim str as string dim flag as boolean str 從 10000 到 99999 之間的迴文數有 vbcrlf for i...
設計程式,讓計算機找出自然數來,使得其中任意兩個數
var a array 1.32767 of boolean b array 1.40 of integer i,s,t integer begin for i 1 to 32767 do a i false write 1 8,2 8 a 1 true b 1 1 b 2 2 s 2 repeat...
用C語言，任意輸入數，求其中的最大值和最小值
程式原始碼如下 include pch.h define crt secure no warnings include int main else while loop 0 printf 輸入的10個數中，最大數 d t最小數 d n max,min 輸出最值 return 0 程式執行結果如下 擴...