《VB面向对象程序设计实习报告》由会员分享，可在线阅读，更多相关《VB面向对象程序设计实习报告（5页珍藏版）》请在金锄头文库上搜索。
1、 2011年5月一、 实习目的熟练掌握面向对象的概念、特点和基本的程序设计方法，熟悉使用常用的算法解决实际问题。二、 实习时间第14周三、 实习地点二机房、A302、五机房四、 实习内容1、编写程序，将乘法“九九表”存入数组中，单击显示按扭，可以在当前窗口中显示出来；单击交换按扭后，弹出输入框，根据输入框里输入的数据交换乘法“九九表”任意两行的数据。代码：Private Sub Command1_Click()Dim a(9, 9) As IntegerFor i = 1 To 9 For j = 1 To i a(i, j) = i * j Next jNext iFor i = 1 To
2、9 For j = 1 To i Print i; *; j; ; =; a(i, j); vbTab; Next j PrintNext iEnd SubPrivate Sub Command2_Click()Dim a(9, 9) As IntegerFor i = 1 To 9 For j = 1 To i a(i, j) = i * j Next jNext ix = Val(InputBox(请输入需要交换的行数)y = Val(InputBox(请输入需要交换的行数)PrintPrint 交换后的结果： For i = 1 To 9 For j = 1 To i Select Ca
3、se i Case x For n = 1 To y Print y; *; n; ; =; a(y, n); vbTab; Next n j = i Case y For n = 1 To x Print x; *; n; ; =; a(x, n); vbTab; Next n j = i Case Else Print i; *; j; ; =; a(i, j); vbTab; End Select Next j PrintNext iEnd SubPrivate Sub Command3_Click()EndEnd Sub2、由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法
4、题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分。最后给出总得分。代码：Private Sub Command1_Click()Dim a%, b%, c% For i = 1 To 10 Randomize a = Left(Rnd * 100, 1) b = Left(Rnd * 1000, 2) Label1.Caption = a & + & b c = InputBox(输入答案, 回答) If c = a + b Then MsgBox 回答正确,加10分, 0, 结果 Sum =
5、Sum + 10 Else MsgBox 回答错误, 0, 结果 c = InputBox(重新输入答案, 第二次回答) If c = a + b Then MsgBox 回答正确,加5分, 0, 结果 Sum = Sum + 5 Else MsgBox 回答错误,0分, 0, 结果 End If End If Next i MsgBox 答题完毕,总分: & Sum, 0, 得分 End Sub Private Sub Command2_Click()EndEnd Sub2、 设计一个用户登录检测程序，若用户输入的用户名和密码均无误，显示“欢迎使用本系统”，否则提示用户名或密码错误，请用户重
6、新输入。若用户名或密码连续三次输入错误，则显示“对不起，您不是本系统的合法用户”，然后退出。要求系统一共有三个用户，且每个用户对应不同的密码。代码：Dim sum As IntegerPrivate Sub Command1_Click()x = Text1.Texty = Text2.Text If x = 张三 And y = 0000 Or x = 李四 And y = 1111 Or x = 王五 And y = 2222 Then MsgBox 欢迎使用本系统 Else MsgBox 用户名或密码输入错误，请重新输入 End Ifsum = sum + 1 If sum = 3 Th
7、en MsgBox 对不起，你不是本系统的合法用户 End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub4、编写程序，计算你从出生当天开始计算，到2011年5月31日一共经过了多少天。要求：1、出生日期从键盘输入 2、正确处理和判断闰年问题代码：Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, sum As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If
8、 a 2011 Then For j = a To 2011 If (a Mod 400 = 0) Or (a Mod 4 = 0 And a Mod 100 0) Then sum = sum + 366 Else sum = sum + 365 End If Next j For i = 1 To b Select Case i Case 1, 3, 5, 7, 8, 10, 12 sum = sum - 31 * 2 Case 4, 6, 9, 11 sum = sum - 30 * 2 Case 2 If (a Mod 400 = 0) Or (a Mod 4 = 0 And a Mo
9、d 100 0) Then sum = sum - 29 * 2 Else sum = sum - 28 * 2 End If End Select Next i Select Case b Case 1, 3, 5, 7, 8, 10, 12 sum = sum - c * 2 Case 4, 6, 9, 11 sum = sum - c * 2 Case 2 If (a Mod 400 = 0) Or (a Mod 4 = 0 And a Mod 100 0) Then sum = sum - c * 2 Else sum = sum - c * 2 End If End Select E
10、nd If If a = 2011 Then For j = (b + 1) To 5 Select Case j Case 1, 3, 5 sum = sum + 31 Case 4 sum = sum + 30 Case 2 sum = sum + 28 End Select Next j End If MsgBox 你从出生当天开始计算，到2011年5月31日共经历了 & sum & 天 If (a 2011) Or (b 12 Or b 31 Or c 1) Then MsgBox 输入错误 End If Text1.Text = Text2.Text = Text3.Text = E
11、nd SubPrivate Sub Command2_Click()EndEnd Sub5、 将一张面值为100元的人民币等值换成100张零钞，面额有5元、1元和0.5元三种，要求每种零钞不少于1张，问有哪几种组合？要求：1、将可能的组合情况输出到非窗体的任意一种控件中即可 2、输出格式美观大方代码：Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, sum As Integer For c = 1 To 188 For b = 1 To 94 For a = 1 To 19 If (a + b
12、+ c = 100) And (5 * a + b + 0.5 * c = 100) Then sum = sum + 1 MsgBox 第 & sum & 种方案，5块、1块、5角三种钞票数分别为： & a & & b & & c End If Next a Next b Next c MsgBox 组合方案一共有 & sum & 种End SubPrivate Sub Command2_Click()EndEnd Sub五、实习总结 通过一周的实训，增强了我关于VB编程的实际操作能力。也让我更为透彻的了解到自己在编程方面的学习有待加强。在未来的学习里，我会更加努力的学习，勤能补拙，虽然我现在的能力还不够，但我相信在未来一定能够得到提高。
