『壹』 VB編程實現s=1-2+3-4+...+97-98+99-100的計算
編寫累加函數
Private Function SumModSeri()
Dim s As Integer, i As Integer '聲明變數s和i
For i = 1 To 100 '變數由1到100循環累加
If i Mod 2 = 0 Then
s = s - i 『如果變數i為偶數，則減i
Else
s = s + i '如果變數i為基數，則加i
End If
Next i '回頭處理下一個i值
SumModSeri = s ' 函數輸出累計計算結果
End Function
調用函數舉例
Private Sub Command1_Click()
MsgBox SumModSeri '提示框顯示計算結果為-50
End Sub
『貳』 用vb怎麼編程第一行為123456,第二行為112345,第三行為111234
就三行嗎？還是？
通用的演算法：
第一行的字元串為完成的。
從第二行開始，n-1個1字元，加上該字元串的左邊（字元串長度-n+1）個
代碼：
s=「123456」
L=len(s) /即字元串的長度
print s
for n=2 to L
temp="" /初始temp為空
for i=1 to n-1
temp=temp+"1"
next i /上i循環，就是前面1的個數。由行數確定，第二行為1個1，第三行為2個1，當然不包括1234中的1。
ss=temp+left（s,L-n+1)
print ss
next n
輸出結果為
123456
112345
111234
111123
111112
111111