《面向对象程序(vb)设计实习报告模板》由会员分享，可在线阅读，更多相关《面向对象程序(vb)设计实习报告模板（8页珍藏版）》请在金锄头文库上搜索。
1、（本报告为vb实习报告，封面请自行填写）实习报告题 目: 所属系、部 : 班 级: 姓 名: 学 号: 指 导 教 师: 2011年6月一、 实习目的熟练掌握面向对象的概念、特点和基本的程序设计方法，熟悉使用常用的算法解决实际问题。二、 实习时间2011年6月13日-17日三、 实习地点教学楼A302机房四、 实习内容1、 编写程序，将乘法“九九表”存入数组中，单击显示按扭，可以在当前窗口中显示出来；单击交换按扭后，弹出输入框，根据输入框里输入的数据交换乘法“九九表”中任意两行对应的数。99乘法表交换设计代码Dim a(9)Dim b(9)Private Sub Command1_Click(
2、)Fori = 1 To 9 a(i) = i Forj = 1 To i Print a(i) & * & a(j) & =; a(i) * a(j); Next j PrintNext iEnd SubPrivate Sub Command2_Click()Fori = 1 To 9 a(i) = iNext iDim m%, n%m = InputBox(输入第一行号)n = InputBox(输入第二行号)Fori = 1 To 9 a(i) = i If i = m Then图1-199乘法表交换设计界面 Fork = 1 To n b(k) = k Print n & * & b(
3、k) & =; n * b(k); Next k Print i = i + 1 End If If i = n Then Fork = 1 To m b(k) = k Print m & * & b(k) & =; m * b(k); Next k Print i = i + 1 End If Forj = 1 To i Print a(i) & * & a(j) & =; a(i) * a(j); Next j PrintNext iEnd Sub图1-199乘法表交换运行界面2、由随机函数产生10道一位整数与两位整数相加的加法题。产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答
4、案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分。最后给出总得分。十道加法题设计代码Private Sub Command1_Click() s = 0 For i = 1 To 10 a = Int(10 * Rnd) b = Int(10 + 10 * Rnd) m = 第 & i & 题 & a & + & b c = Val(InputBox(m & 第一次回答, 作答) If a + b = c Then s = s + 10 n = m & 10分 Else c = Val(InputBox(m & 第二次回答, 作答) If a
5、 + b = c Then s = s + 5 n = m & 5分 Else n = m & 0分 End If End If Form1.Print n Form1.Print 当前得分, s, 分 Print Next i Form1.Print 总分; sEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 加法题，单击“开始答题”开始， End Sub图2-1十道加法题设计界面图2-2十道加法题运行界面2、 设计一个用户登录检测程
6、序，若用户输入的用户名和密码均无误，显示“欢迎使用本系统”，否则提示用户名或密码错误，请用户重新输入。若用户名或密码连续三次输入错误，则显示“对不起，您不是本系统的合法用户”，然后退出。要求系统一共有三个用户，且每个用户对应不同的密码。登录界面设计代码Dim i%Private Sub Command1_Click()Dim a$, b$, c$, q, w, ea = liuyangb = linningc = lanjunq = 123w = 456e = 789 If (Text1.Text = a And Text2.Text = q) Or(Text1.Text = b And Te
7、xt2.Text = w) Or(Text1.Text = c And Text2.Text = e) Then Label3.Caption = 密码正确，欢迎使用本系统 Print 密码正确，欢迎使用本系统 Else Label3.Caption = 密码错误，请重新输入 Text2.Text = End If i = i + 1If i = 3 ThenMsgBox 你不是合法用户, 48EndEnd IfEnd Sub图3-2登录窗口运行界面图3-1登录窗口设计界面4、编写程序，计算你从出生当天开始计算，到2011年5月31(本题程序计算出生至当前日期)日一共经过了多少天。要求：1、出
8、生日期从键盘输入 2、正确处理和判断闰年问题出生天数计算设计代码Private Sub Command1_Click()a = Year(Now)b = Month(Now)c = Day(Now) Print 系统当前日期Print a, b, cd = Val(InputBox(请输入出生年份)e = Val(InputBox(请输入出生月份)f = Val(InputBox(请输入出生日期)For i = d + 1 To a - 1 If i Mod 400 = o Then m = 1 ElseIf i Mod 4 = 0 Then If i Mod 100 0 Then m = 1
9、 Else m = 0 End If Else m = 0 End If If m = 1 Then k = k + 366 Else k = k + 365 End IfNext iFor i = e + 1 To 12 开始累计出生那一年月份 If i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12 Then k = k + 31 ElseIf i = 4 Or i = 6 Or i = 9 Or i = 11 Then k = k + 30 ElseIf i = 2 Then k = k + 28 考虑出生下一月份为
10、2月是同时为闰年 End IfNext iFor i = 1 To b - 1 开始累计今年月份 If i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12 Then k = k + 31 ElseIf i = 4 Or i = 6 Or i = 9 Or i = 11 Then k = k + 30 ElseIf i = 2 Then k = k + 28 End IfNext i If e = 1 Or e = 3 Or e = 5 Or e = 7 Or e = 8 Or e = 10 Or e = 12 Then k
11、 = k + (31 - f) ElseIf e = 4 Or i = 6 Or i = 9 Or i = 11 Then k = k + (30 - f) ElseIf e = 2 Then k = k + (28 - f) End If k = k + c Print Print 出生至今共; k; 天End SubPrivate Sub Command2_Click()End图4-2出生天数计算运行界面图4-1出生天数计算设计界面End Sub5、 将一张面值为100元的人民币等值换成100张零钞，面额有5元、1元和0.5元三种，要求每种零钞不少于1张，问有哪几种组合？要求：1、将可能的
12、组合情况输出到非窗体的任意一种控件中即可 2、输出格式美观大方换钱设计代码Private Sub Command1_Click()Dim x As Integer, y As Integer, z As IntegerPicture1.Print 五元, 一元, 0.5元Forx = 1 To 100 Fory = 1 To 100 z = 100 - x - y If 5 * x + y + 0.5 * z = 100 Then Picture1.Print x, y, z Next y Next xEnd Sub图5-1换钱运行界面五、 实习总结经过了接近一周的实习，真正的在机器上设计和运行
