【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：vb上机实验报告 - 技术总结绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

Vb上机实验报告 学号2010211758 姓名赵宗菲 班级0381002 一、实验目的与要求 1.掌握VB集成开发环境的常用的编程语言。

     2.了解VB集成开发环境的基本组成以及各种函数。

     3.学会在VB集成开发环境中建立小型应用程序。

     二、实验内容 1、学会利用数组显示各学生成绩。

     2、掌握循环语句并利用它编写如图所示的输出界面。

     3、学会利用数组以及了解上界和下界编写一个删除指定数字的程序。

     4、利用循环语句以及随机函数产生10个数并求出最大值和最小值以及最接近平均值的数。

     三、实验步骤 第一步设计程序的界面 根据题目要求建立用户界面如无要求则自己建立一个合适的用户界面。

     第二步设置属性 根据题目所需为每个对象设置属性。

     第三步编写程序代码 双击窗体并编写相应的程序代码。

     第四步保存工程 第五步调试并运行应用程序 四、程序代码 我所遇到的问题 问题1 代码 Option Explicit Option Base 1 Private Sub Form_Click 单击窗体计算并显示学生成绩 Dim student Dim score5 4 As Single Dim i As Integer j As Integer student Array李晓明 王强 赵雷 陈敏 输入学生姓名 输入分数 score1 1 98: score1 2 84: score1 3 89 score2 1 82: score2 2 86: score2 3 79 score3 1 76: score3 2 79: score3 3 72 score4 1 66: score4 2 72: score4 3 69 计算每人的平均成绩 For i 1 To 4 For j 1 To 3 scorei 4 scorei j score1 4 Next j scorei 4 scorei 4 / 3 Next i 计算每门课程的平均成绩 For i 1 To 3 For j 1 To 4 score5 i scorej i score5 i Next j score5 i score5 i / 4 Next i 显示每个人的成绩 Print 姓名 For i 1 To 4 Print studenti Next i Print Print 平均成绩 For i 1 To 4 Print Formatscorei 4 . Next i Print Print 显示每门成绩 Print 课程 语文 数学 英语 Print 平均成绩 For i 1 To 3 Print Formatscore5 i . Next i End Sub 错误点Print studenti后面差一个“”。

     错误的程序运行的界面 正确的程序运行的界面 错误分析此程序缺少一个用来连接上一个输出和下一个输出的字符“”。

    缺少它会造成程序输出结果大不相同。

    今后在写程序代码的时候一定要注意些细节问题面的难得去改错。

     问题2 代码 Private Sub Form_click Dim i As Integer j As Integer s As String Cls For i 1 To 9 Print Spc9 - i s 10 - i For j 1 To i 2 - 1 Print s Next j Next i End Sub 错误点next j 后面少一个 print 用它来换行。

     错误的程序运行界面 正确的程序运行的界面 错误分析缺少一个起换行作用的print缺少它后会造成无法换行以至于输出结果不同。

    在今后的学习当中一定要注意每个语句的作用和它该在哪个地方用。

     问题3 代码 Private Sub Command1_Click Dim AI I As Integer J As Integer A Array1 6 8 3 5 9 10 2 7 4 For I LBoundA To UBoundA If AI 10 Then J I Print AI Spc2 Next I Print For I J 1 To UBoundA AI - 1 AI Next I ReDim Preserve ALBoundA To UBoundA - 1 For I LBoundA To UBoundA Print AI Spc2 Next I End Sub 错误点Dim AI a s integer 出现错误。

     错误程序运行的界面 正确程序运行的界面 错误分析Dim AI a s integer 本身就有语法错误在数组定义当中不能在最开始的时候用AI定义数组只有在后面的代码才可以那样用。

    这是一个值得我注意的地方。

     问题4 代码 Private Sub Form_click Dim a10 As Integer b As Integer k As Integer max As Integer min As Integer sum As Integer max 10: min 99: sum 0 For i 1 To 10 Randomize ai IntRnd 90 10 Print ai Next i For i 1 To 10 If ai max Then max ai If ai min Then min ai Next i Print Print 最大值为 max Print 最小值为 min For i 1 To 10 sum sum ai Next i b sum / 10 Print 平均值为 b t Absa1 - sum / 10 For i 2 To 10 If Absai - sum / 10 t Then t Absai - sum / 10 k i End If Next i Print 最接近平均值的数为 ak End Sub 错误点多次运行此程序时会出现平均值为零的结果。

     有问题的程序运行的界面 错误分析此程序缺少一个k1语句缺少它会导致程序多次运行后会出现平均值为零的情况。

    那是因为当a1是与平均值最接近的数时执行 For i 2 To 10 If Absai - sum / 10 t Then t Absai - sum / 10 k i End If Next i 这个程序片段时会出现k0的情况而a0又没有赋值结果系统就默认为a00这就出现了平均值为零的情况。

    把t Absa1 - sum / 10改为t Absa1 - sum / 10: k 1就可以了。

     综合测验 改进后的代码 Private Sub Command1_Click Dim A As Single B As Single C As Single A ValText1.Text B ValText2.Text If Option1.Value True Then C A B ElseIf Option2.Value True Then C A - B ElseIf Option3.Value True Then C A B ElseIf Option4.Value True Then If B 0 Then Text3.Text 除数为0计算无效 Else C A / B End If End If If c0 then Text3.Text C End Sub 正确程序的运行界面 错误分析对if选择语句不够了解。

    对计算机的执行过程没有很好的掌握。

     五、实验心得 通过几次vb上机实验我发现了自己有很多知识上的缺陷通过不断的实验调试使我的vb知识得到了提升上机经验也不断的积累。

    尽管课本上有很多相关知识点但是不经过上机实验永远也没办法提高编程能力。

    在上机实验时一定要认真的对待不懂的就要及时地问老师或同学不能让问题遗留下来这样会越积越多导致后面很难补上这些知识点。