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问题 二维数组统计10个学生的成绩,将不及格的列出来,学生姓名和成绩从键盘输入
Private Sub Command1_Click()
Const count = 1 '为了方便调试,用了个常量来定义学生数量,我只用了2个,懒得输入太多数据.用常量也便于以后加人,扩充.
Dim StudentName(count), NameStr As String
Dim Student(count, 1), i As Integer
NameStr = ""
For i = 0 To count
StudentName(i) = InputBox("学生姓名", "请输入", 0)
'此处,如无意外,应该是用数组按相应序号保存学生名字,所以,你的9肯定不对的,得相应改为该学生序号,这个是字串数组,直接保存输入的字串就行了,
'用val()会转换为数字,如果输入字符,结果为0,学生名都会是0的.
Student(i, 1) = Val(InputBox("学生成绩", "请输入", 0))
If Student(i, 1) 60 Then
NameStr = NameStr StudentName(i) ":" Str(Student(i, 1))
'这里改了一下,加了个":",方便看结果.
End If
Next
MsgBox "不及格学生:" NameStr, vbOKOnly
'msgbox如果不用在表达式中,其参数不用括号的,我的VB6.0会提示出错的.
End Sub
vb.net 控制excel画饼状图
我自己写的控件,里面有示例程序,很简单的。不过饼图只设置了12种颜色。。。只能显示12项
分享文章:vb.net分数统计,VB成绩查询
文章源于:http://lswzjz.com/article/hopios.html