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