我不是很明白你那个∧是什么意思
创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：做网站、网站制作、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的岱山网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
以下是我写的代码:
Dim sum as integer = 0
Dim finsum as integer = 0
'-------默认TextBox1文本框接收你的∧值,此除你可以加入方法判断输入的
'-------TextBox1.Text是否为数字
If TextBox1.Text.Trim = string.Empty Then
msgbox("请输入一个数字!")
Exit Sub
End If
Dim b as Boolean = false '------用于循环中判断负数还是正数
'-------循环输入的∧值,每次阶梯为2向上取值,得到右表达式值
For i as integer = 1 to Cint(TextBox1.Text) step 2
If b Then
b = false
sum += 1 / cint(TextBox1.Text)
else
b = true
sum -= 1/cint(TextBox1.Text)
End If
Next
'------得出最终结果
finsum = 4 * sum
以上的代码没有经过测试,有什么问题可以留言给我.
1.C
2.A
3.A
4.A
5.A
6.C
7.D
8.A
9.A
10.D
11.D
12.D
13.B
14.D
15.A
16.B
17.C
18.A
1.A
2.B
题1:
最简单了，高中就学过的等差数列，公式代过来就行拉
SUB A()
return 100*101/2
END SUB
题2：
更简单拉，小学初中就学过长度乘高度等于面积
FUNCTION B(Width as integer, Height as integer) AS INTEGER
return Width*Height
END FUNCTION
if x=0 then
y=cos(x)-x^3+3*x
else
y=sin(x)+sqrt(x*x+1)
end if
1、
For j = 3 To 19 Step 4
m += 1
Next
为循环5次
For i = 1 To 15 Step 4
Next
为循环4次
则总共循环4*5=20,m没循环一次+1，则m=20
2、从下面这段可以看出“*”与“#”是同步的(因为走else时，会继续循环)，有“*”肯定“#”，而输出“*”只有当i=2,4时，则有2次，为*#*#
For i = 1 To 5
If i Mod 2 = 0 Then
Console.Write("*")
Else
ContinueFor
EndIf
Console.Write("#")
Next
在加上最後次输出：Console.WriteLine("$")
结果则为：*#*#$
1楼说的不错，要不就害人害己，将VB.NET当VB使真够累滴！楼主辛苦了！
取出TextBox1.Text中数字并生成数组VB.NET就一句，
将ListBox1的值复制到数组中VB.NET就一句，
找出数组中最小值VB.NET就一句，去掉最小值VB.NET就一句，数组求和VB.NET就一句
...........................真的很累！楼主辛苦了！
