2013VisualBASIC程序设计期末考试编程题复习及答案

1、第2章1. 新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签 Labell，界面如图2-5所示，程序运行要求如下：1） 单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红 色。“改变颜色”按钮代码：Labell.ForeColor = vbRedLabell.Caption =颜色已经改变2） 单击“改变字体”按钮，标签上的字体改为“黑体”。“改变字体”按钮代码：Labell.FontName =黑体图2-5程序运行界面最后将工程文件、窗体文件分别以Ix2-2.vbp、Ix2-2.frm为文件名保存在 D:EX文件夹下。2. 设计一个留言薄

2、。新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图 2-6所示，。要求单击“提交”按钮后，上面的文本框内容复制到下面的 文本框中，且下面文本框中的内容不能修改。单击“清除”按钮则清除两个文本框中的内容。“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text =Text2.Text =图2-6程序界面最后将工程文件、窗体文件分别以Ix2-4.vbp、Ix2-4.frm为文件名保存在 D:EX文件夹下。3设计一个程序，程序界面如图2-7所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB !”；当单击“清除”按钮时，清除

3、文本框内的文本；当单击“退出”按钮时，结 束程序运行。“显示”按钮代码：Textl.Text =欢迎使用 VB!“清除”按钮代码：Textl.Text =“退出”按钮代码：End图2-7程序运行界面最后将工程文件、窗体文件分别以Ix2-5.vbp、Ix2-5.frm为文件名保存在 D:EX文件夹下。4. 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图3-3所示。最后将工程文件、窗体文件分别以SL3-3.vbp、SL3-3.frm为文件名保存在 D:EX文件夹下。叵&i输入亍三位的38数：|1E3百位題：1,十应数-2个位数：3图3-

4、3程序运行界面Private Sub Cctnnwdl Click 0Bit血，黑，b礼=%n = lal CTaxil. TextJ a = n IDOb = (ji - a * 100) 10c = ii Mod 10Lale!2. Captan =百位数：4 a 4 *十位数:& I &二亍位数：矗uEnd Sul5. 设计一个程序，实现简单计算的功能，运行界面如图3-7所示。最后将工程文件、窗体文件分别以Ix3-3.vbp、Ix3-3.frm为文件名保存在 D:EX文件夹下。图3-7程序运行界面Priuate Sub Command3 Cllck()八“按钮的代码Labell 叩皿11

5、 =Text3.Text = Ual(Textl.Text) * Ual(Text2.Text) End SubPriuate Sub Command5_Click() clear1钮的代码Textl.Text = 一Text2.Text = ,i,Text3 .Text = B,MEnd Sub提示：clear按钮的代码：text1.text= 是双引号，空字符串的意思6. 设计一个程序（程序运行界面自定），使用inputbox函数输入某品牌电脑的单价和购买的数量，计算并用msgbox函数输出需付款金额。最后将工程文件、窗体文件分别以Ix3-4.vbp、Ix3-4.frm 为文件名保存在 D

6、:EX文件夹下。Priuate Sub Form Click（）Dim dj&r shl%f jp&dj = Ual（InputBox（输入某品牌电脑的单价）shl = UalflnputBoxCAM品牌电脑的购买的数量汕） je = dj * shlHsgBox和需付款金额：& jeEnd Sub|&为长整行 %为整形7. rnd函数产生一个0, 1）的单精度随机数。设计一个程序（程序运行界面自定） 用此函数产生一个两位的随机整数并用msgbox函数输出该整数值。最后将工程文件、窗体文件分别以Ix3-5.vbp、Ix3-5.frm为文件名保存在 D:EX文件夹下。63页Priuate Sub

7、 FornClickt）Dim zh盅-Randomizpzh = Int（90 * Rnd） + 10Msg Box 两位的随机整数是& zhEnd Sub第4章一、顺序结构8.例：输入数据输入时间（小时，分,秒），然后输出 总计多少秒、解：法一：使用文木框输入数据运行时界面如下:I Examplefri11H匚“计算”按钮和“结束”按钮的click事件代码如下:Private Sub Command (lkk()Dim hho. rnmo 强Totnh!* Dim Outstr $hhVil(Texll)nm-Val(Texl2)stVal(TexD)Totals-hh *3600 * r

8、nm*60* ssOutMr 仙屮小时7 ion屮分11 1 ss屮松”Oijtstr X)t)tsLr A vbCrtJ A*.(4it :鼻 TotiiIs 秒Msgf5ox Outstr, 输出结巣*End SubfYivate Sub Qxnand2 Ci ick 0EndEnd Sub最后将工程文件和窗体文件分别以 ceshi3-3-1.vbp 和ceshi3-3-1.frm 文件名保 存，并保存在D:EX文件夹下。9.从输入框中输入圆的半径，计算圆的周长和面积(1)创建应用程序的用户界面和设置对象属性(刃编写程序代码Private Sb Commandl ClkkODim r As

9、 Single, k As Siagle, s As Single珈请输入圆的半径J 对算圆的周长和面积k = 2*3141S9*rs = 3 14159r* rTextl.Teit = kTextl.Teit = sWgS防咁算己完成你,，时算圆的周长和面枳”End SubPrivate Sub ComniaBd2_Clicl()*EndEnd Sub文件名保存,最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi3-4.frm并保存在D:EX文件夹下。10.给定一个两位数（如3,交换个位数和十位数的位置，把 处理后的数显示在窗体上编写的窗体单击事件过程代码如下,Prh ate

10、 Sb EogQkkODim x As Iateger, a As Integer Dim b As iDteger, c As Iateger 莖=36a =110)b = s Mod 10c = b* 10 + aPriat粗处理后的数：T,; cE 心 Sb运行程序后单击窗体，輸出结果是二，求个俭緊 ，生成新的嫌处理后的数 63并保存在D:EX文件夹下11.编制程序，在一个文本框中输入一串字符(长度大于2),单击“处理”按钮时，则取出该字符串的头、尾部各一个字符，合并后显示在第二个文本框中。如 输入“ ABCDEG，贝U输出“A G。Private Sab Commandl_ClickO

11、Dim x As Striag, y As StrimgEnd Sub最后将工程文件和窗体文件分别以ceshi3-6.vbp 和ceshi3-6.frm 文件名保存,并保存在D:EX文件夹下。二、选择结构12. 请参考如图4-8所示程序的运行结果，新建一个工程，完成“健康称”程序的设计。具体要求如下：(1) 窗体的标题为“健康称”，固定边框。(2) 窗体的左边有两个标签，Label1的标题为“身高” 、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的标题为“ cm，Label4的标题为“ kg”。

12、(3 )将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。(4) 两个文本框均不接受非数字键。(5) 单击“健康状况”按钮(Command1),根据计算公式将相应的提示信息显示在标签 Label5 中。计算公式为：标准体重=身高-105 ;体重高于标准体重*1.1为偏胖，提示“偏胖，注意 节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正 常，继续保持”。Private Sut Ccmmaitdl_Click ()Din when益岂a As Integer, tizh?ng As IntegerLi m bi gothiiTL1徽. shuchu$弓

13、heng詐o - Vsl (Teitll Text)ti Ehong - Vai CText2. Text)liaozhun - shenggao - 1U5I ti rhong bi aorhun *1.1 ThanShuchu =偏胖，注意节直ElzIf ti rhong biaozhim * 0. 9 Then shuchu僞痩，増加営莽Elseshuchu -征常,继续保持穴End ILbel5. Cftptivn - whuch口EnA SubPrivate Syt Textl_Qlsngt ()If IsNumtric CTextl) = False Than Tsxtl Endr

14、 SubPrivate Sub Text2_Chanje ()If IsNumric CTeitS) = FsIme Then Text2 =Bnd Sub最后将工程文件、窗体文件分别以Ix4-1.vbp、Ix4-1.frm为文件名保存在D:EX文件夹下。图4-8实验题目1运行界面13. 编写模拟袖珍计算器的程序，运行界面如图4-9所示。要求如下：输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。输入的数据进行合法检验，当输入出错时，调用MsgBox()提示。Trim是去掉俩边空格Opti on ExplicitPrivate Sub Comtnsndl_C1 ick()Dim x

15、lf y!x 二 Vai (Textl)y = ValCT6xt2)Seltet Case TrimClext3)Text4=x+yText4=x-yText4=x*yCu 7*If y = 0 ThtHsfBoK 除数不能为Ot wTtjct2. SetFocus TsxU = ElseT at4 = x / y End IfEnd SelectEnd SubPrivate Sub 匚qitriand2_Click() EndInd Sub下。图4-9实验题目2运行界面三、循环结构14. 输入任意一个整数 N,求1到N之间所有偶数和；（可参考课本p89页）利用文本框来实现数据的输入和输出。最

16、后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:EX文件夹下。15. 输入任意一个整数N,计算N阶乘；5！ =5*4*3*2*1（可参考课本p90页）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在 D:EX文件夹下。16. 输入任意一个整数 N,输出1+1/2+1/3+ 1/N的计算结果；（可参考课本p93页）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在 D:EX文件夹下。17. 输入任意一个整数 N,输出N以内3的倍

17、数之和（即3+6+9）;（可参考课本p93页）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在 D:EX文件夹下。2 2 218. 输入任意一个整数 N,输出1X 2 X 3 X-x N的计算结果；（可参考课本p90页）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:EX文件夹下。19. 输入任意一个整数 N,输出N以内的所有5的倍数的积；（可参考课本p90页）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.

18、frm为文件名保存在D:EX文件夹下。20. 输入任意一个整数N,输出1+1/2 莓+1/用的计算结果;现数据的输入和输出。最后将工程文件、窗体文件分别以（可参考课本p93页）利用文本框来实XH4-7.vbp、XH4-7.frm 为文件名保存在D:EX文件夹下。21.输入任意一个整数N,输出1!+2!+n!的累加和；（可参考课本p90页和课本 p93页）Private Sub Ccimmndl_Click () Dim i%f 巩 p%? n%E = 0P - 1ii =VaifTextl, Text)Fori=1Tonp =p*ie =s+pNextText2. Text 二 sEnd Su

19、b22. 编程求出50之内的全部素数；（可参考课本p98页）。最后将工程文件、窗体文件分别以XH4-9.vbp、XH4-9.frm为文件名保存在 D:EX文件夹下。23. 编写程序打印如下九九乘法表（使用双重循环实现）。（可参考课本 p97页）最后将工程文件、窗体文件分别以XH4-10.vbp、XH4-10.frm为文件名保存在 D:EX文件夹下。1 X 1=12X 仁2 2 X 2=49X 1=1 9 X2=189 X 9=8124. 编一程序，显示所有的水仙花数，如下图。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153=13+53+33。最后将工程文件、窗体文件分

20、别以XH4-11.vbp、XH4-11.frm 为文件名保存在 D:EX 文件夹下。Optiflu EspLic i tPrivate Sub CommiidljClick0Dim 氓 A b亀 c%For i = 100 To 699a = Iikt (i / WO)b = TutCi - a * 100 / 10)c = i - a # 100 - b * 10Ti 二电+Then Print i,HextEnd Sub25. 我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题：鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百元买百鸡，问鸡翁、鸡母、鸡雏各几何？意思是

21、：用100元钱买100只鸡，公鸡5元一只，母鸡3元一只，小鸡1元3只；100 只鸡中必须包括鸡翁、 鸡母和鸡雏。自行设计界面并在图形框中输出百鸡百元的几种解。最后将工程文件、窗体文件分别以XH4-12.vbp、XH4-12.frm为文件名保存在 D:EX文件夹下。提示：按题意列出方程组，并己知鸡翁不能超过19只，鸡母不能超过 32只。Dp t i on Expli ci tPrivity Suh Cwmzdl ClickC)Dim i髦j紂區n% Ficturel.Frint Tib):公鸡J T*bQ3); *母鸡J Tab(16);小鸡For i = 1 To 19Fr j = 1 To

22、32k = 10C - i - jIfi*5 + j*3 + k/ 3 = 100 Thenn - it + 1Ficturel.PriM Tab(l);解& n &Tab(); i; Tal(13); j; Tab(19); kEnd INxt jNext 1End SubPr i vat e Sut C omm ind2_Cl i ck 0 EndEnd Sub26编写程序，将随机产生的两位数的一维数组A(10 )中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别以Ix6-2.vbp、Ix6-2.frm为文件名保存在D:EX文件夹下。Frivate

23、Sul Form_Cli ck(DDim a(10)辰 Integer, temp%Eandcmi ztFar i = 1 To 10a(i二 InttlOO * BndIf i 1 Then Print，原数组为：； FriM aG); ” JHext iPrinttsmp - a. C10)For i = 9 Tc 1 St ftp -1a(i + 1) = a Ci)Haxt 1& (1) = teiftpFor i = 1 To 10I i = 1 Then Priat 现数组対：J Print aG)； JN&xt iEnd SuL27.输入某小组5个同学的成绩，计算总分和平均分 (

24、取小数后一位)。本例利用InputBox函 数来输入成绩，输入完毕后经过计算，再采用 Print直接在窗体上输出结果。最后将工程文件、窗体文件分别以SZ5-1.vbp、SZ5-1.frm 为文件名保存在 D:EX文件夹下。Pr i vat e Sub Form_ClLck()Dim d C5) AsDim i Ae Integer, total As, SiilL-3 average As SingleFor i = I To 5J输入成绩da) = Vai anputBcxCit入第ft i ft 个学生的咸簸”輸入成ST)itotal - 口For i 1 To 5计宜总分total 二

25、total + 4Ci)Next iavr&g& = totl / 5Frint 总分：；totalPrint ”平均分：“；Format (wrargeEnd Sub28.输入10名学生的成绩，求出最高分和最低分功能要求：通过 Array函数输入10个分数；单击 查找按钮(Command2)后，开始查找最 高分和最低分，找到后显示在标签 Label1上。最后将工程文件、窗体文件分别以SZ5-2.vbp、SZ5-2.frm为文件名保存在 D:EX文件夹下。Option 1Dim score M 7ari antFrivatfi Sub Frm_Lo4d0Lab.ll Cation = ”单击“

26、查找孫融开始查找最高分和煤低分” icore = Array诞 96, 81f ST, 79, 90, 63# 05, 95” 93)End SubPrivate Sub coniniaiidl_click0Dimmax As Integer, min As Integer设定初值max=score (1)mol.AdItenCamtol. AldltemCbol. AdIt ”上网End Sub33. 在窗体上画一个名称为HS1的水平滚动条(min=0,max=100 )和三个名称分别为C1,C2,C3，标题分别为“左端”，“居中”，“右端”的命令按钮。编程是的程序运行后，单击 C1，则滚动

27、框位于滚动条的最左端；单击C2，则滚动框位于滚动条的中间处；单击 C3，则滚动框位于滚动条的最右端，运行界面如图10-14所示。最后将窗体文件、工程文件分别以LX10-3.frm、LX10-3.vbp为文件名保存在 D:EX文件夹下。图10-14滚动条运行界面Frivat Sub CljClick0HS1. Value = 0End如Frivat Sub C2_Click0HS1. Value = 50 End如Private Sub C3_Click 0HS1. Value = 100End Sub34. 列表框举例。窗体上添加二个列表框、二个命令按钮，设置完属性后的界面如图10-16所示。

28、要求：（1）选中列表框中的某一条目，单击命令按钮，将其移动到另一列表框中。（2）双击列表框中的某一条目，直接将其移动到另一列表框中。完成运行界面所达到的要求，最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:EX文件夹下。图10-16题目6的设计界面（其中右图为题目6的运行结果）Private Sub FoncJdadQListl. Addlt&m 张二Listl. Adiltem 季四Li stl. Mdltan 主五Listi. Adiltem 赵六Listl. Addltm 拣七Li stl. Addltem 江河LiEtl.Addltn 毛九*E

29、nd SubPrivate Sul) Comtnyidl _C11 clc 0，*按钮的单击事件LiEt2. Addltsn Listl. 7axtListl - RnovItem Li stl. ListlndjexEnd SubFrivati Sub CoHimand2_Cl i ck 0 僅钮的用击爭件Listl. Ad(Ht*m Li st2. TextLi st2.Li Li stlndexb4 SshPrivate Sub Li3tl_BblCli ck C)List2. Addltm Liitl. TaxiListl. Removeltm Li stl. ListindexEnd

30、 SubFrivate Suh Li st2_BMClick 0Listl. Aldltem Li st2. Text List2. R&iftoveltefft Lis 12.Li stinder End Sub35.例：模拟电犷秋农 单击*开始 按钮终止汁时.textl中，最后将窗体文件、工程文件分别以SL10-10.frm、SL1O-1O.vbp为文件名保存在D:EX文件夹下。Option Explicit Dim空謀，mm規 hh%Private Sub Commandl_Click0 Timer 1. Enabled 二 TrueEnd SubPrivate Sut Coiwniid

31、2_Click0 Timer 1. Enabled = FalseEnd SubTriratt Sub Form_Lo4d 0Timer 1. Enabled = FalseTewtl. Test = Form泌血扎00) + ： + Format (mnij QO) + *： * + Fermat tss7 (KT) End SubPrivate Sub Tiinerl_riiner ()5 = ss + 1If ss 扫 60 Theniwn mm + 1ss 0If mm N 60 Tbefthh = hh + 1nwn = 0End IfEnd IfTaxt.1. Txt = Form

32、at Chh CKJ) !： + Forfint Gruij U+ ： + Format Ce UD) End Sub36.。最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在 D:EX文件夹下。Jnl X1嘉应学院欢迎询FriSul Timerl_Tirner 0 I Labell FantSize b * 1.1 Then shuchu = 偏胖，注意节食 ElseIf t b * 0.9 Then shuchu = 偏瘦，增加营养 Else shuchu = 正常，继续保持 End IfLabel1.Caption = shuchuEnd SubPri

33、vate Sub Text1_Change()If IsNumeric(Text1) = False Then Text1 = Private Sub Text2_Cha nge()If lsNumeric(Text2) = False Then Text12 =End Sub13Private Sub Comma nd1_Click()Dim x!, y!x = Val(Text1)y = Val(Text2)Select Case Trim(Text3)Case +Text4 = x + yCase -Text4 = x - yCase *Text4 = x * yCase /Text4

34、= x / yIf y = 0 The nMsgBox 除数不能为0Text4 =Text2.SetFocusElseText4 = x / yEnd IfEnd SelectEnd Sub三、循环结构14. 输入任意一个整数 N,求1到N之间所有偶数和；(可参考课本p89页)利用文本框来实 现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:EX文件夹下。Private Sub Comma nd1_Click()Dim i, N, s As In tegers = 0N = val ( Text1.Text)Fori = 1 To NIf

35、 i Mod 2 = 0 The ns=s+iNext iText2.Text = sEnd Sub15. 输入任意一个整数 N,计算N阶乘；5! =5*4*3*2*1(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在 D:EX文件夹下。Private Sub Comma nd1_Click()Dim i, N, s As Integers = 1N = val ( Text1.Text)Fori = 1 To Ns=s*iNextText2.Text = sEnd Sub16. 输入任意一个整数 N,输出

36、1+1/2+1/3+ 1/N的计算结果；(可参考课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在 D:EX文件夹下Private Sub Comma nd1_Click()Dim i,s,N As In tegerN = Val(T ext1.Text)s = 0For i = 1 To ns = s + 1/ iText2.Text = sEnd Sub17输入任意一个整数 N,输出N以内3的倍数之和(即3+6+9);(可参考课本p93页) 利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4

37、-4.vbp、XH4-4.frm为文件名保存在 D:EX文件夹下。Private Sub Comma nd1_Click()Dim i, N, s As Integers = 0N = val ( Text1.Text)Fori = 1 To NIf i / 3 = Int(i / 3) The ns=s+iEnd IfNextText2.Text = sEnd Sub18.输入任意一个整数 N,输出1 X 22X 32X-x Nf的计算结果；(可参考课本p90页)利用文 本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:EX文件

38、夹下。Private Sub Comma nd1_Click()Dim i,s,N As In tegers = 1N = Val(T ext1.Text)Fori = 1 To Ns = s * (i * i)Next i19输入任意一个整数 N,输出N以内的所有5的倍数的积；(可参考课本p90页)利用文本 框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:EX文件夹下。Private Sub Comma nd1_Click()Dim i, N, s As Integers = 1N = val ( Text1.Text)Fori

39、 = 1 To NIf i / 5 = Int(i / 5) The ns=s*iEnd IfNextText2.Text = sEnd Sub20.输入任意一个整数N,输出的计算结果;(可参考课本p93页)利用文本框来实XH4-7.vbp、XH4-7.frm 为文件名l+l/22+l/32+l/42+.,+l/n:现数据的输入和输出。最后将工程文件、窗体文件分别以 保存在D:EX文件夹下。Private Sub Comma nd1_Click()Dim i,s,N As In tegerN = Val(T ext1.Text)s = 0For i = 1 To ns = s + 1/ ( i

40、*i)Next i21Private Sub Command1_Click() Dim i%, s$, p$, n% s = 0 p = 1n = Val(Text1.Text)For i = 1 To n p = p * i s = p * s Next Text2.Text = s End Sub22Private Sub Form_click() Dim i%, j%, d%, k% For i = 1 To 50 Step 2 k = Int(Sqr(i) flag = 0 j = 2While j = k And flag = 0 If i Mod j = 0 Then flag =

41、 1 Else j = j + 1 End If Wend If flag = 0 Then d = d + 1If d Mod 5 Then Print i;Print End If End If Next iEnd Sub23 课本Private Sub Form_Click()Dim s As IntegerForm1.Print Tab(35); 九九乘法表 Form1.Print Tab(35); For i = 1 To 9For j = 1 To 9s = i * jPrint i & x & j & = & s,Next jPrintNext iEnd Sub解法一Privat

42、e Sub Form_Click()For i = 1 To 9For j = 1 To i s = i * jPrint j & x & i & = & s, Next jPrintNext iEnd Sub24Private Sub Command1_Click()Dim i%, a%, b%, c%For i = 100 To 999a = Int(i / 100)b = Int(i - a * 100) / 10)c = i - a * 100 - b * 10If i = a A 3 + b A 3 + c A 3 The n Print i,NextEnd Sub25Private Sub Command1_Click()Dim i%, j%, k%, n%Picture1.Print Tab(8); 公鸡; Tab(13); 母鸡; Tab(18); 小鸡 For i = 1 To 19For j = 1 To 32 k = 100 - i - jIf i * 5 + j * 3 + k / 3 = 100 Thenn = n + 1Pictur