1樓：唐小貝戔
程式設計題1：
option explicit
private sub form_load()dim strinput as stringdim bytidx as byte
dim strrank(1 to 3) as stringdim sngnum() as singlestrrank(1) = "st"
strrank(2) = "nd"
strrank(3) = "rd"
on error resume next
' /* 輸入三數. */
for bytidx = 1 to 3
reinput:
strinput = inputbox("enter the " & cstr(bytidx) & strrank(bytidx) & " number", "prompt")
if strptr(strinput) <> 0 thenredim preserve sngnum(1 to bytidx)if isnumeric(strinput) thensngnum(bytidx) = csng(strinput)if err.number <> 0 thenmsgbox err.description, _vbcritical, _
"error"
err.clear
goto reinput
end if
else
msgbox "not a number, please try again", _
vbexclamation, _
"message"
goto reinput
end if
else
endend if
next
if ubound(sngnum()) = 3 thendim sngtemp as singledim bytk as byte
' /* 氣泡排序. */
for bytidx = 1 to 3
for bytk = 1 to 3
if sngnum(bytidx) > sngnum(bytk) then
sngtemp = sngnum(bytk)sngnum(bytk) = sngnum(bytidx)sngnum(bytidx) = sngtempend if
next
next
me.autoredraw = true
set me.icon = nothingme.caption = "sort descending"
' /* 降序列印. */
for bytidx = 1 to 3
print sngnum(bytidx)
next
end if
erase strrank()
erase sngnum()
end sub
動畫演示：
急求！一道vb程式設計題 謝謝！
2樓：
private sub procmin(a() as integer, byval amin as integer)
dim i%, amin0%
for i = lbound(a) to ubound(a)print a(i);
amin0 = a(lbound(a))
if a(i) < amin0 then amin = a(i)next i
print "amin="; amin
end sub
private sub command1_click()dim a(1 to 10) as integer, i% ', amin0%
for i = 1 to 10
a(i) = int(501 * rnd + 300)next i
call procmin(a(), amin)end sub
3樓：匿名使用者
主程式dim a(10) as integerrandomize
for i = 0 to 9
a(i) = int((800 - 300 + 1) * rnd + 300)
next
procmin(a())
--子函式
function procmin(a() as integer) as integer
dim min as integer
min = a(0)
for i = 1 to 9
if min > a(i) then
min = a(i)
end if
next
procmin = min
end function
求解下面這道題。
4樓：匿名使用者
設提速前相遇時間為t1，提速後相遇時間為t2，乙原來的速度為x，甲速度為a
300/t1-x=300/t2-(x+1)300÷(140/a)=300÷[(300-180)/a]-115a/7=5a/2-1
5/14a=1
a=14/5 米/秒
t1=140÷（14/5）=50秒
x=(300-140)÷50=16/5米/秒
一道有關vb程式設計的題目
5樓：火星飛人
private sub form_load()
show
label1.autosize = true
label1.caption = str(time())
label1.top = val(form1.height) / 2 - val(label1.height) / 2
label1.left = val(form1.width) / 2 - val(label1.width) / 2
command1.caption = "放大"
end sub
private sub command1_click()
label1.fontsize = val(label1.fontsize) * 3
label1.caption = str(time())
label1.top = val(form1.height) / 2 - val(label1.height) / 2
label1.left = val(form1.width) / 2 - val(label1.width) / 2
end sub
6樓：
label1.caption = now
now就是當前系統時間
一道C語言程式設計題求解急謝謝大佬,一道C語言程式設計題，求解答並且說明錯誤原因！！
include void main include int main printf d i return 0 include int main printf 第 d天 n i return 0 一道c語言程式設計題，求解答並且說明錯誤原因！50 所以，其實語言不重要了，重要的是對數學的理解了。等邊，...
下面這三道題怎麼做，這三題怎麼？這三道題怎麼做啊？快點很，謝謝各位大哥大姐們
先說第三道題 要求 1 計算目前的每股收益 利息保障倍數 經營槓桿 財務槓桿和總槓桿 答案 目前情況 目前淨利潤 10000 10000 70 2000 1 40 600萬元 目前所有者權益 5000 1 40 3000萬元 目前負債總額 2000萬元 目前每年利息 2000 8 160萬元 目前每...
VB程式設計這題有人會嗎幫忙下謝謝！！好的就直接採納了
對應a i,j 的值怎麼求你找公式，要在文字框列印陣列其實是利用的空格和換行符，例如 chr 32 空格 chr 10 換行，更多可查詢ascii對應表。你可以輸出後面接第二行的表示式即可。望採納！dim a 1 to 5,1 to 4 as integer,b 1 to 5,1 to 4 as i...