VB面向对象程序设计实习报告

1、2011年5月特点和基本的程序设计方法，熟悉使用常用的算存入数组中，单击显示按扭，可以在当前窗口 弹出输入框，根据输入框里输入的数据交换乘法一、实习目的熟练掌握面向对象的概念、 法解决实际问题。二、实习时间第14周三、实习地点二机房、A302、五机房四、实习内容1、编写程序，将乘法“九九表' 中显示出来；单击父换按扭后,“九九表”任意两行的数据。 代码：Private Sub Command1_Click()Dim a(9, 9) As IntegerFori = 1 To 9Forj = 1 To ia(i, j) = i * jNext jNext iFori = 1 To 9Fo

2、rj = 1 To iPrint i; "*" j; ; "=" a(i, j); vbTab;Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim a(9, 9) As IntegerFori = 1 To 9Forj = 1 To ia(i, j) = i * jNext jNext ix = Val(lnputBox("请输入需要交换的行数") y = Val(InputBox("请输入需要交换的行数") PrintPrint "交换后的结果

3、："Fori = 1 To 9Forj = 1 To iSelect Case iCase xFor n = 1 To yPrint y; "*" n; ; "=" a(y, n); vbTab;Next nj = iCase yFor n = 1 To xPrint x; "*" n; ; "=" a(x, n); vbTab;Next nj = iCase ElsePrint i; "*" j; ; "=" a(i, j); vbTab;End SelectNe

4、xt jPrintNext iPrivate Sub Command3_Click()End SubEndEnd Sub5 & T s 9却LSLSLBII剋ZTA-7 8B九九乘陡五02 Has4因銅型32-BE5303S4DJI5 = T fl 97 7 7eI06 0Eg2豐剪:Mmls7 8 ArLe0LZL5ID77 8总2、由随机函数产生10道一位整数与两位整数相加的加法题，显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记 如果答案错误，允许第二次输入答案，第二次输入答案正确，记分。最后给出总得分。代码：Private Sub Command1_Click()

5、Dim a%, b%, c%Fori = 1 To 10Randomizea = Left(Rnd * 100, 1)b = Left(Rnd * 1000, 2)Label1.Caption = a & "+" & bc = lnputBox("输入答案","回答")If c = a + b ThenMsgBox "回答正确，加 10分", "0","结果Sum = Sum + 10ElseMsgBox "回答错误", "0",

6、"结果"c = InputBox("重新输入答案","第二次回答")产生的加法题依次10分； 5分，错误记0MsgBox "回答正确，加 5分", "0","结果"Sum = Sum + 5ElseMsgBox "回答错误,0分", "0","结果"End IfEnd IfNext iMsgBox "答题完毕，总分:"& Sum, "0","得分"E

7、nd SubPrivate Sub Command2_Click()End口 Forml9 + 13开!需题退出2、设计一个用户登录检测程序，若用户输入的用户名和密码均无误，显示“欢 迎使用本系统”，否则提示用户名或密码错误，请用户重新输入。若用户名或密 码连续三次输入错误，则显示“对不起，您不是本系统的合法用户”，然后退出 要求系统一共有三个用户，且每个用户对应不同的密码。代码：Dim sum As IntegerPrivate Sub Command1_Click()x = Text1.Texty = Text2.TextIf x ="张三"And y = "

8、0000" Or x =" 李四"And y ="1111" Or x ="王五"And y = "2222" ThenMsgBox "欢迎使用本系统"ElseMsgBox "用户名或密码输入错误，请重新输入End Ifsum = sum + 1If sum >= 3 ThenMsgBox "对不起，你不是本系统的合法用户End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub4、编写程序，计算你从出生当天开始计算

9、，到2011年5月31日一共经过了多少天。要求：1、出生日期从键盘输入2、正确处理和判断闰年问题代码：a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, sumAs IntegerIf a < 2011 Thensum = sum - c * 2For j = a To 2011If (a Mod 400 = 0) Or (a Mod 4 = 0 And a Mod 100 <

10、;> 0) Thensum = sum + 366ElseElsesum = sum - c * 2End IfEnd SelectEnd Ifsum = sum + 365End IfNext jFor i = 1 To bSelect Case iCase 1,3, 5, 7, 8, 10, 12sum = sum - 31 * 2Case 4, 6, 9, 11sum = sum - 30 * 2Case 2If a = 2011 ThenFor j = (b + 1) To 5Select Case jCase 1,3, 5sum = sum + 31Case 4sum = su

11、m + 30Case 2sum = sum + 28End SelectIf (a Mod 400 = 0) Or (a Mod 4 = 0 And aMod 100 <> 0) Thensum = sum - 29 * 2Elsesum = sum - 28 * 2End IfEnd SelectNext iSelect Case bCase 1,3, 5, 7, 8, 10, 12sum = sum - c * 2Next jEnd IfMsgBox "你从出生当天开始计算，到2011年5月31日共经历了 " & sum & "天&

12、quot;If (a > 2011) Or (b > 12 Or b < 1) Or (c > 31 Or c <1) ThenMsgBox "输入错误"End IfText1.Text =""Text2.Text =""Text3.Text =""Case 4, 6, 9, 11sum = sum - c * 2Case 2If (a Mod 400 = 0) Or (a Mod 4 = 0 And aMod 100 <> 0) ThenEnd SubPrivate Su

13、b Command2_Click()EndEnd Sub工桎1你秋巳主斗天珈计艺，封2011年5冃mi日共廖了？2西天5、将一张面值为100元的人民币等值换成100张零钞，面额有5元、1元和0.5 元三种，要求每种零钞不少于1张，问有哪几种组合？要求：1、将可能的组合情况输出到非窗体的任意一种控件中即可End IfNext aNext bNext cMsgBox "组合方案一共有"& sum & "种End SubPrivate Sub Command2_Click()EndEnd Sub2、输出格式美观大方代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, sum As IntegerFor c = 1 To 188For b = 1 To 94For a = 1 To 19If (a + b + c = 100) And (5 * a + b + 0.5 * c = 100) Thensum = sum + 1MsgBox "第"& sum