1樓:匿名使用者
private sub form_click()for i = 100 to 1000
if i mod 37 = 0 then print inext i
end sub
第二題private sub form_click()dim n as integer, i as integer, a as integer
n = val(inputbox("請輸入n的值"))for i = 1 to n
a = a + sum(i)
next i
print a
end sub
private function sum(n as integer)sum = 0
for i = 1 to n
sum = sum + i
next i
end function
2樓:匿名使用者
private sub command1_click()for i = 100 to 1000
if i mod 37 = 0 then
print i
end if
next i
end sub
3樓:匿名使用者
2/private sub form_click()dim n as integer, a as integer, sum as integer
n = val(inputbox("請輸入n的值"))for i = 1 to n
a = a + i
sum = sum + a
next i
print sum
end sub
4樓:歷又
'(1)(2)兩題
private sub form_load()form1.windowstate = 2: me.show: print "能被37整除的數:"
for i = 100 to 1000
if i mod 37 = 0 then
me.show: print " " & i: end ifnext i: n = val(inputbox("請輸入n的值"))
for i = 1 to n
a = a + i: sum = sum + anext i
print chr(13) & "s=" & sumend sub
一道關於vb的簡單程式設計題目
5樓:匿名使用者
private sub form_load()
form1.scaleleft = -90
form1.scaletop = -60
form1.scalewidth = 180
form1.scaleheight = 120
form1.fillstyle = 1
x0 = -89
y0 = -60 * sin(-89 / 180 * 3.1415926)
for i = -89 to 89
x = i
y = -60 * sin(i / 180 * 3.1415926)
x0 = x
y0 = y
next
end sub
在sin 加60*就可以了
6樓:匿名使用者
y0 = -tan(-89 / 180 * 3.1415926)
y = -tan(i / 180 * 3.1415926)
把這兩行中的tan換成sin不就可以了嗎
7樓:萍水e相逢
有 什麼 問題 呢?
直接 改 不就得了?
一道vb程式設計題
8樓:匿名使用者
function yys(num as long) as boolean '判斷乙個數是否是盈餘數
if num < facsum(num) thenyys = true '盈餘數
else
yys = false '不是盈餘數
end if
end function
function facsum(num as long) as long '求乙個數的因子和
dim fac as long
facsum = 1
for fac = 2 to sqr(num)if num mod fac = 0 thendebug.print fac, num / facfacsum = facsum + facfacsum = facsum + num / fac * iif(fac = num / fac, 0, 1) '如果num是平方數,則sum的平方根只加1次。
end if
next fac
end function
沒有圖,不好做介面。給出你求因子和及判斷是否是盈餘數的兩個函式。
求助一道vb的程式設計題目
9樓:
private sub command1_click() '華氏-->攝氏
c = val(text1.text)
f = 9 / 5 * c + 32
text2.text = f
end sub
private sub command2_click() '攝氏-->華氏
f = val(text2.text)
c = 5 / 9 * (f - 32)
text1.text = c
end sub
請教一道vb的程式設計題!!
10樓:伊人尤在
dim x as integer
dim y as integer
dim u as integer
dim l as integer
private sub form_load()command1.caption="出題"
l=0u=100
end sub
private sub command1_click()if command1.caption="出題" thenx=int((u-l+1)*rnd+l)
y=int((u-l+1)*rnd+l)
label1.caption=x & "+" & y & "="
text1.text=""
command1.caption="判定"
else
if cint(text1.text)=x+y thenmsgbox "運算正確"
command1.caption="出題"
else
msgbox "運算錯誤"
end if
end if
end sub
一道VB題目,一道VB的題目
private sub command1 click s abcdefabcdefabcdef k instr s c 獲取字串 c 在字串s的位置 do while k 0 n n 1 統計在字串s共有多少個字串 c s mid s k 1 將字串s的第k 1個位置到結尾賦給本身 k instr ...
一道VB基礎題目,一道VB題目
private sub c1 click dim temp as string temp c2.caption c2.caption text1 text1 temp end sub c1按鈕click dim str as string str c2.caption c2.caption text...
請教一道vb題,請教一道vb的程式設計題!!
太睏了,直接用if語句給你 if ch1.check true thentext1.text 學習程式設計 end if if ch2.check true then end if if ch1.check true and ch2.check true then end if if ch1.che...
vb一道讀程式和一道程式設計序的題目急!(高手請進
private sub dir1 change file1.path dir1.pathend sub private sub drive1 change dir1.path drive1.driveend sub private sub form load file1.pattern bat dr...
一道vb題目求大神幫忙, 急 一道vb題目,求大神幫忙!
如題目原文如此,則程式沒有問題,完全正確。具體要看題目的要求。比如 奇數日通行 還是 偶數日限行 急 一道vb題目,求大神幫忙!這個彎路繞大了,36!3.71993e 41,是個億億億億億級的數字,vb中沒有什麼資料型別能精確存放它的結果,而36 7 36 7 只需要算 36 35 34 33 32...