1樓:匿名使用者
//判棧抄空
int stackempty(seqstack *s)//入棧
void push(seqstack *s,elementtype x)
}//出棧
elementtype pop(seqstack *s){
【答案】求n到m之間所有奇數之和(vb)
vb編寫程式 用來計算m的n次方
2樓:匿名使用者
新建工程,新增command1控制元件。vb6.0+xp除錯成功。
**如下:
dim n as integer。
private sub command1_click()。
m = inputbox("請輸入內底數m")。
n = inputbox("請輸入指容數n")。
擴充套件資料vb編寫程式的引數選擇(有利於方便使用者的工作進度)第一個按鈕的index屬性值預設為「0」,第二個的index屬性值自動設為「1」,並且大小與第一個按鈕相同,只需修改其 caption 屬性為數字「1」並將其拖至合適位置即可。
此後繼續使用「貼上」的方法建立其他控制元件組中其餘按鈕,共20個按鈕,每建立一個,就將它拖到合適處,並修改相應的caption屬性值。
vb程式設計:1到m之間偶數之積 10
3樓:網海1書生
m=val(inputbox("請輸入m"))s=0for i=2 to m step 2s=s*i
next
msgbox "1到" & m & "之間偶數之積為" & s注意m值不能太大哦,是積不是和
4樓:匿名使用者
private sub command1_click()m = val(inputbox("請輸
bai入du整數
zhim"))
j = 1
for i = 1 to m
if i mod 2 = 0 then
j = j * i
end if
next i
msgbox "偶數
dao的回積為
答" & j
end sub
5樓:
dim sum as long,i as integersum=0
m=100
for i=2 to m step 2
sum=sum+i
next i
vb 程式設計輸出fibonacci數列的前n項
這題主要考察遞迴函式的思想。如下 include int fbi int i 遞迴函式 輸出數列的第i項資料,這裡i從0開始計算。int main else 擴充套件資料 一個函式可以呼叫其他函式。如果這個函式在內部呼叫它自己,那麼這個函式就叫遞迴函式。遞迴函式的作用和迴圈的方法效果一樣,即遞迴函式...
vb求1到n的階乘,VB求1到N的階乘
sum 0 temp 1 for i 1 to n sum sum temp i temp temp i next 用vb求1到n的階乘和的程式編寫 自己編寫函式 private function jiec byval n as integer as long dim i as integer di...
1從100到500的自然數中有奇數個約數的數有多少個
有100,121,144,169,196,225,256,289,324,361,400,441,484共13個。720 45是一個完全平方數,求這個數的平方根畢遲是多少?720 45 32400,32400 180.980 a是一個完全平方數,求a的最小值是多少?980 5 2 7 a的最小值是5...