13518219792
代码：a=Convert.toDouble(textbox1.Text)*6/100，先转换字符串格式为双精度型，再和数字相乘获得结果，但结果是双精度型，你若要显示出来必须转换成字符串，比如textbox2.Text=a.toString()，希望对你有帮助
创新互联建站服务项目包括浙江网站建设、浙江网站制作、浙江网页制作以及浙江网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，浙江网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到浙江省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
'以下代码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) '输出最小的数
'兄弟，都这样了你分不给我可不成了
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；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。
方法有很多种，反正就是要输入每个人的成绩。下面就介绍一种最简单的给你
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
