vb.net怎么求分数 vb求学生平均成绩
vb net 计算百分比代码怎么写
代码:a=Convert.toDouble(textbox1.Text)*6/100,先转换字符串格式为双精度型,再和数字相乘获得结果,但结果是双精度型,你若要显示出来必须转换成字符串,比如textbox2.Text=a.toString(),希望对你有帮助
创新互联建站服务项目包括浙江网站建设、浙江网站制作、浙江网页制作以及浙江网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,浙江网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到浙江省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
1. 设有5个学生成绩分别是80、78、91、62、88,编写一个VB.NET程序,找出最高分和最低分
'以下代码VS.NET2008运行通过
Dim n() As Integer = {80, 78, 91, 62, 88}
Dim Max_NB As Integer = n(0)
For i As Integer = 0 To 3 '因为5个数只需要对比4次,下边同理
Max_NB = Math.Max(Max_NB, n(i + 1))
Next
MsgBox(Max_NB.ToString) '输出最大的数
Dim Min_NB As Integer = n(0)
For i As Integer = 0 To 3
Min_NB = Math.Min(Min_NB, n(i + 1))
Next
MsgBox(Min_NB.ToString) '输出最小的数
'兄弟,都这样了你分不给我可不成了
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编程:已知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
本文名称:vb.net怎么求分数 vb求学生平均成绩
网站路径:http://scyanting.com/article/hhipji.html