vb.net考试成绩的简单介绍

Vb.net 扩展方法怎么用啊 比方说：一个List a a.where(?) 里面怎么写

楼主您好,这个拓展方法是为LinQ服务的,用来在集合内筛选数据

创新互联是专业的榆阳网站建设公司，榆阳接单;提供成都做网站、成都网站设计、成都外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行榆阳网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

比如有一个List(Of Integer)

类型的scoreList对象,里面存有学生的考试成绩。如果我要输出

大于等于60分的成绩,可以这样：

Dim r=(From s in scoreList Where s=60 Select s).ToList()

For Each e In r

Console.WriteLine(e)

Next

第一句实际编译为对集合的Where等拓展方法的调用

vb输入10个同学的成绩,计算平均分和总分

Dim A(1 To 10) As Single。

Private Sub Command1_Click()。

'请在第一个文2113本中输入成绩,成绩之间用5261空格隔开。

Dim s As String

s = Trim(Text1.Text)

d = Split(s, " ")

ReDim A(1 To UBound(d) + 1) As Single

For i = 1 To UBound(A)

A(i) = d(i - 1)

Next

End Sub

Private Sub Command2_Click()

maxn = A(1)

For i = 2 To UBound(A)

扩展资料

vb.net 特性：

1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。

2、vb.net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。

3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分。在 vb.net 中实现数据访问的方法主要有两种。

其一是在程序设计阶段，通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。

vb问题 二维数组统计10个学生的成绩，将不及格的列出来，学生姓名和成绩从键盘输入

Private Sub Command1_Click()

Const count = 1 '为了方便调试,用了个常量来定义学生数量,我只用了2个,懒得输入太多数据.用常量也便于以后加人,扩充.

Dim StudentName(count), NameStr As String

Dim Student(count, 1), i As Integer

NameStr = ""

For i = 0 To count

StudentName(i) = InputBox("学生姓名", "请输入", 0)

'此处,如无意外,应该是用数组按相应序号保存学生名字,所以,你的9肯定不对的,得相应改为该学生序号,这个是字串数组,直接保存输入的字串就行了,

'用val()会转换为数字,如果输入字符,结果为0,学生名都会是0的.

Student(i, 1) = Val(InputBox("学生成绩", "请输入", 0))

If Student(i, 1) 60 Then

NameStr = NameStr StudentName(i) ":" Str(Student(i, 1))

'这里改了一下,加了个":",方便看结果.

End If

Next

MsgBox "不及格学生:" NameStr, vbOKOnly

'msgbox如果不用在表达式中,其参数不用括号的,我的VB6.0会提示出错的.

End Sub

visual studio2008 中用VB.Net做一个学生成绩管理系统在创建项目中应选择什么项目

按说法建立学生成绩管理系统，应该是普通的应用程序，你选择好语言（VB.NET）后，直接创建应用程序项目就可以了，然后通过添加窗体和编写代码，继续你的开发，建议去看看网站的视频教程。

用vb编程：已知3个学生，5门功课的成绩，求每个学生的总分，平均分，每门功课的平均分。

方法有很多种，反正就是要输入每个人的成绩。下面就介绍一种最简单的给你

Private Sub Command1_Click()

'已知3个学生，5门功课的成绩，求每个学生的总分，平均分，每门功课的平均分。

Dim a As Single, b As Single, c As Single, d As Single, e As Single

For i = 1 To 3

If i = 1 Then

a = InputBox("请输入学科1的成绩：", "学生1")

b = InputBox("请输入学科2的成绩：", "学生1")

c = InputBox("请输入学科3的成绩：", "学生1")

d = InputBox("请输入学科4的成绩：", "学生1")

e = InputBox("请输入学科5的成绩：", "学生1")

ElseIf i = 2 Then

a = InputBox("请输入学科1的成绩：", "学生2")

b = InputBox("请输入学科2的成绩：", "学生2")

c = InputBox("请输入学科3的成绩：", "学生2")

d = InputBox("请输入学科4的成绩：", "学生2")

e = InputBox("请输入学科5的成绩：", "学生2")

Else

a = InputBox("请输入学科1的成绩：", "学生3")

b = InputBox("请输入学科2的成绩：", "学生3")

c = InputBox("请输入学科3的成绩：", "学生3")

d = InputBox("请输入学科4的成绩：", "学生3")

e = InputBox("请输入学科5的成绩：", "学生3")

End If

s = a + b + c + d + e

n = s / 5

a = a + a

b = b + b

c = c + c

d = d + d

e = e + e

If i = 1 Then

Print "学生1的各科总分为："; s; "平均分为："; n

ElseIf i = 2 Then

Print "学生2的各科总分为："; s; "平均分为："; n

Else

Print "学生3的各科总分为："; s; "平均分为："; n

a = a / 3

b = b / 3

c = c / 3

d = d / 3

e = e / 3

Print "学科1的平均分为："; a

Print "学科2的平均分为："; b

Print "学科3的平均分为："; c

Print "学科4的平均分为："; d

Print "学科5的平均分为："; e

End If

Next i

End Sub