‘壹’ 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