西北农林科技大学 vb实习作业_西农vb第三章实习作业
西北农林科技大学 vb实习作业由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“西农vb第三章实习作业”。
第五章
(1)例 5-2
Private Sub Command1_Click()Dim sum!, n%, aver!sum = 0 n = 0 x = Val(InputBox(“请输入”))Do While x-9999 sum = sum + x n = n + 1 x = Val(InputBox(“请输入”))Loop aver = sum / n MsgBox “共输入” & n & “ 个数,平均值为:” & aver End Sub
(2)例 5-3 Private Sub Command1_Click()Dim a%(65 To 90), c As String * 1 le = Len(Text1)For i = 1 To le c = UCase(Mid(Text1, i, 1))If c >= “A” And c 0 Then Picture1.Print “”;Chr(j);“=”;a(j);“”;Next j End Sub
(3)例 5-4 Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, “,”)For i = o To UBound(a)
If(a(i)0)Then
k = a(i)10
x(k)= x(k)+ 1
End If
Next i
Print “100分的有:” & x(10)& “人”
For i = 9 To 0 Step-1
Print i * 10 & “分-”;i * 10 + 9&;“分有:” & x(i)& “人”
Next i
End Sub
Private Sub Command2_Click()End End Sub
(4))输入多名学生的一门课程成绩（成绩用数组存放，要求成绩用文本框输入），统计0-
59、60-69、70-79、80-89、90-100个分数段人数。
Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, “,”)For i = o To UBound(a)
If(a(i)0)Then
k = a(i)10
x(k)= x(k)+ 1
End If
Next i
Print “90-100分的有:” & x(10)+ x(9)& “人”
For i = 8 To 6 Step-1
Print i * 10 & “分-”;i * 10 + 9&;“分有:” & x(i)& “人”
Next i
For i = 0 To 5
s = x(i)+ s
Next i
Print “0-59分的有” & s;“人” End Sub
(5)例 5-6(用穷举法、辗转相除法两种方法)Private Sub Command1_Click()Dim m%, n% m = Val(InputBox(“请输入第一个数m:”))n = Val(InputBox(“请输入第二个数n:”))If m
(10)用选择法对10个学生成绩实现从低到高排序
(11)例 5-12(12)第136页第3题(13)第136页第4题(14)第136页第5题(15)第136页第7题(16)第136页第8题(17)第136页第11题
西北农林科技大学2005年下半年教职工政治理论学习安排2005年下半年全校教职工政治理论学习总的要求是：坚持以“三个代表”重要思想为指导，深入学习贯彻党的十六大及十六届四中......
西北农林科技大学2006年上半年教职工政治理论学习安排一、学习内容1、关于科学发展观及构建社会主义和谐社会的有关论述2、胡锦涛同志在全国科学技术大会上的讲话3、《国家......
西北农林科技大学热能与动力工程(本科类)热能与动力工程专业 学制四年，毕业授予工学学士学位。本专业培养具备水利水电动力工程学科的基本理论、基本知识和基本技能，受到现代......
西北农林科技大学（2010届）专科毕业设计（论文）在中职畜牧兽医专业教学中体现就业导向的实践探索专业：畜牧兽医专业学生姓名：张进财2010年摘 要以就业为导向是国家根据我国现状和职......
摘要：做为水利水电工程二年级的学生,学校安排了本次为期五天的认识实习。要求学生对水工建筑物有基本认识。通过实习让我们对水工建筑物的规模,作用及特点有了很大的了解。同......
