Sub Main()
博山网站建设公司创新互联公司,博山网站设计制作，有大型网站制作公司丰富经验。已为博山近千家提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的博山做网站的公司定做！
Dim i, j As Integer
Dim tmpStr As String
Console.WriteLine("please input a integer")
tmpStr = Console.ReadLine()
If IsNumeric(tmpStr) And InStr(tmpStr, ".") 1 Then
判断输入是否是整数,IsNumeric(tmpStr) 是判断是否是数字,InStr(tmpStr, ".")是判断是否有小数点.
i = CType(tmpStr, Integer)
Else
MsgBox("not a valid integer!")
Exit Sub
End If
Console.WriteLine("please input another integer")
tmpStr = Console.ReadLine()
If IsNumeric(tmpStr) And InStr(tmpStr, ".") 1 Then
j = CType(tmpStr, Integer)
Else
MsgBox("not a valid integer!")
Exit Sub
End If
Console.WriteLine("the avg is : " ((i + j) / 2).ToString "press enter to exit...")
Console.ReadLine()
End Sub
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.NET？用EXCEL中的VBA即可完成，如果需要，代码如下：
Sub test()
Dim Last As Double, SUM As Double, Resault As Double, Count As Integer
Data = Range("a1:a" Cells.Find("*", , , , 1, 2).Row)
SUM = 0: Count = 0
For i = 1 To UBound(Data, 1)
If Data(i, 1) 0 Then
If Last 0 Then
SUM = SUM + Data(i, 1) - Last
Count = Count + 1
End If
Last = Data(i, 1)
End If
Next i
Resault = SUM / Count
End Sub
注：由于统计方式比较简单，要取得需要的结果并不需要将相减后的数据放入另一数组，所以没有浪费内存去生成另一个数组。
输入函数
private sub command1_click()
dim a(10) as integer,i,avg as integer
for i=1 to 10
a(i) = val(inputbox("请输入第" i "个数"))
if a(i)0 then avg=avg+a(i)
next
print "平均值="; avg/10
end sub
扩展资料
对象与类
对象（Object）
Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual Basic.NET 程序设计的核心。
在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。
类（Class）
在 Visual Basic.NET中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。
各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象，不一定是同一类对象。
参考资料来源：百度百科-Visual Basic
如图?图呢?
Dim cj(10, 6) As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 1 To 2
cj(i, 0) = InputBox("输入第" i "位学生的学号")
cj(i, 1) = InputBox("输入数学")
cj(i, 2) = InputBox("输入心理学")
cj(i, 3) = InputBox("输入人事管理学成绩")
Next
Button2.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 1 To 10
MsgBox("学号为" cj(i, 0) "的学生平均成绩为:" (cj(i, 1) + cj(i, 2) + cj(i, 3) + cj(i, 4) + cj(i, 5) + cj(i, 6)) / 6)
Next
MsgBox("数学总平均成绩为:" (cj(1, 1) + cj(2, 1) + cj(3, 1) + cj(4, 1) + cj(5, 1) + cj(6, 1) + cj(7, 1) + cj(8, 1) + cj(9, 1) + cj(10, 1)) / 10)
End Sub
方法有很多种，反正就是要输入每个人的成绩。下面就介绍一种最简单的给你
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
