1樓：匿名使用者
我也是自學的。看在你沒老師的份上給你編了前幾題。後面三個題實在不想編了。其實後三個題也很容易。
1、dim i as long
private sub form_load()
timer1.interval = 1000
end sub
private sub timer1_timer()
i = i + 1
label1 = i
beep
end sub
2、private sub command1_click()
for i = 1 to 30
for j = i to 30
if int(sqr(i ^ 2 + j ^ 2)) = sqr(i ^ 2 + j ^ 2) then
if sqr(i ^ 2 + j ^ 2) <= 30 then print i & "," & j & "," & sqr
(i ^ 2 + j ^ 2)
end if
next j
next i
end sub
3、private sub command1_click()
m = int(inputbox("請輸入m的值：", "輸入資料", 84))
n = int(inputbox("請輸入n的值：", "輸入資料", 48))
if m < n then max = m else max = n
do while max > 1
max = max - 1
if m mod max = 0 and n mod max = 0 then exit do
loop
print m & "與" & n & "的最大公因子是" & max
end sub
4、fprivate sub command1_click()
dim i as long
m = int(inputbox("請輸入m的值：", "輸入資料", 84))
n = int(inputbox("請輸入n的值：", "輸入資料", 48))
if m < n then
max = m
m = n
n = max
end if
for i = n to m
if wqs(i) then print i
next i
end sub
private function wqs(a as long) as boolean
for i = 1 to int(a / 2)
if a mod i = 0 then k = k + i
next i
if k = a then wqs = true else wqs = false
end function
8、private sub command1_click()
dim ints(1 to 10) as long
dim intt(1 to 10) as long
for i = 1 to 10
ints(i) = inputbox("請輸入第" & i & "個資料", "", "")
intt(11 - i) = ints(i)
next i
print "交換前："
for i = 1 to 10: print "（" & i & "）"; ints(i);: next i
print "交換後："
for i = 1 to 10: print "（" & i & "）"; intt(i);: next i
end sub
2樓：
dim a as integer
formload()裡a=0 然後在 timer1_timer() 裡 label1.caption=cstr(a)
a=a+1是回車
3樓：匿名使用者
自己動腦筋吧，把一年的作業都貼上了？
4樓：匿名使用者
凡事都要自己先動腦動手,見題抄解,永遠學不會.
鄙視一下不學只抄的學生,花錢浪費青春!
寧可被刪除,寧可被扣分,謹以此喚醒像你以及和你一樣的學生們!
用C語言編寫程式，用C語言編寫程式？
程式就是讀取檔案到陣列，再將陣列進行排序，最後寫入檔案。讀寫檔案流程 fopen獲取檔案流 根據讀寫需求，選擇引數，使用完必須呼叫fclose函式關閉 fscanf讀取檔案內容，fseek控制檔案流指標，fprintf寫入檔案。選擇排序 每個迴圈週期選出一個最值，交換一次。下面是 陣列為動態陣列 i...
c語言編寫程式計算並輸出，C語言。編寫程式計算並輸出 1 12 123 1234 的前n 設0 n 10 項的和，n從鍵盤輸入。
4歲的帥帥最近感冒了，伴發高燒，流清鼻涕,光波爐菜譜，早晚咳嗽不停，在醫院打了兩天吊針，服過退燒藥和止咳藥，約5天孩子感冒好了，不發燒也不流鼻涕，就是咳嗽不見減輕。事實上，當感冒急性期症狀消失後,咳嗽仍遷延不愈,臨床上稱之感冒後咳嗽。感冒後咳嗽多見7歲以下小兒，症狀表現為剌激性乾咳或咳少量白色黏液痰...
編寫程式，計算s
下面是你的 修改後並能成功執行的 include main printf s 6f n s getchar getchar 錯誤1.maim改為 main 錯誤2.for迴圈沒加花括號，沒括號只迴圈for接下來的那句。錯誤3.a t不能是整型，至少t不能是整型，想想看，若a t是整型會造成s也是整型...