VB.NET程序设计,高手进，送高分！

我不是很明白你那个∧是什么意思

创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：做网站、网站制作、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的岱山网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

以下是我写的代码:

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

以上的代码没有经过测试,有什么问题可以留言给我.

Windows程序设计（VB.NET）》在线作业二

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

VB.NET程序设计题

题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

VB.net程序设计求高手解答

if x=0 then

y=cos(x)-x^3+3*x

else

y=sin(x)+sqrt(x*x+1)

end if

VB.NET程序题

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("$")

结果则为：*#*#$

VB.NET程序设计 作业

1楼说的不错，要不就害人害己，将VB.NET当VB使真够累滴！楼主辛苦了！

取出TextBox1.Text中数字并生成数组VB.NET就一句，

将ListBox1的值复制到数组中VB.NET就一句，

找出数组中最小值VB.NET就一句，去掉最小值VB.NET就一句，数组求和VB.NET就一句

...........................真的很累！楼主辛苦了！

网页名称：vb.net程序设计答案 VB程序设计答案
网页URL：http://scgulin.cn/article/hjichs.html