vb難題求助

1樓：匿名使用者

private sub command1_click()dim a as integer

dim b as integer

dim sum as integer

for a = 51 to 1 step -1if (2698 mod a) = 0 thenb = 2698 / a

sum = a + b

print cstr(a)

print cstr(b)

print cstr(sum)

print chr(13)

end if

next a

end sub

結果：a=38,b=71,a+b=109

解釋：要達到a

2樓：匿名使用者

private sub form_load()for i = 51 to 0 step -1c = 2698 mod i

if (c = 0) then

b = 2698 / i

me.caption = b

exit for

end if

next

end sub

執行程式，標題欄上顯示的就是滿足條件的b值

求助VB程式設計達人幫忙編寫程式嘛，求助VB程式設計達人幫忙編寫一個程式嘛

private function f x as singleif x 0 then f cos 2 x elseif x 3 then f int 6 x 2 5 x 1 else f e 3 x end if end sub 你寫的式子可能有些不準確，我猜著寫的，你看對不對.不懂可以問我 跪求程式...

高考攝影專業求助，攝影難題我很著急 求助

我就是攝影專業的。我雖然不敢確定那是否是正規機構，但我敢確定她是在騙你錢。勸你別去！正規本科攝影的課程大致分為三個階段 第一繪畫和美術概論 第二是三大構成平面設計理念，第三，攝影和影像編排！攝影這玩意主要看天賦，沒有天賦還是不要浪費時間了不用去什麼培訓班，他們除了照本宣科什麼都不懂，真的有技術的也不...

感情難題真的是難題

我也不確定自己是否完全的愛她 這點就是你問題所在，也是唯一的突破口。首先來說，當你不確定自己是否愛她的時候，這時你也就對她保留了自己那麼一點點沒盡到的努力，當一個人做到完全愛對方的時候就會盡力付出，盡力袒護，盡力保護，你說是嗎？甚至你現在都不知道你的付出對於自己來說值不值得。是嗎？俗話說得好，戀愛後...