189 8069 5689
如图?图呢?
成都创新互联从2013年开始，先为深州等服务建站，深州等地企业，进行企业商务咨询服务。为深州企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
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
我做了一遍是这样做的：
A：先放3个label,caption值分别设为：语文 数学 英语
B：再放3个text控件
C：再放一个command caption值为平均分
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
print (a + b + c) / 3
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
我是初学的，我在本机试做是没错的，只是可能没有专家们的回答精致，我的比较笨拙，不过我做出来的结果是对的，你试下请不要见笑
Private Sub Command1_Click() '计算平均分
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = (a + b + c) / 3
Text4.Text = d
End Sub
Private Sub Command2_Click() ‘清除
Text1.Tex = ""
Text2.Tex = ""
Text3.Tex = ""
Text4.Tex = ""
End Sub
Private Sub Command3_Click() ’退出
End
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；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。