郑州大学VB选择

1、郑州人学VB选择、填空题（带答案、保你vb 过 90）一，选择题1如果VB环境中缺少某个窗口，一般应从主菜单_C的下拉菜单中找到相应的激活命令。（1分）A、编辑B、文件C视图D调试2、启动Visual Basic 后，VB为用户建立的第一个窗体是 _B。（ 1分）A FormB、FormlC窗体1D窗体3、不属于一个工程文件（*.vbp ）里的文件是A q（ 1 分）A *.txt文件C *.cls文件B、*.bas 文件D *.frm文件4、与传统的程序设计语言相比较,Visual Basic最突出的特点是_C。 （1分）A结构化的程序设计B、数据处理C面向对象的可视化编程5、 文本框中的S

2、crollBars 属性已设置为3-Both可能是Bq （1分）A文本框中没有内容C文本框的MaxLength属性为06、 能够盛放其他控件，而且是最基本的对象是_A窗体D中文支持，但却没有水平和垂直滚动条的效果，原因B、文本框的MultiLine 属性为FalseD 文本框的 Locked属性是TrueA q （1分）B、图像C标签D文本7、任何控件都具有的属性是 C_ （ 1分）A PictureB、CaptionC、NameD AutoSize8、窗体上有一个标签Label1和一个命名按钮Comma nd1当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_Cli

3、ck（）中能完成这个功能的命令为 D。（ 1分）A Label1.Left = 100B、Label1.Left = Label1 丄eft - 100C Label1.Move 100D Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是A 。( 1分)A VisibleB、EnabledC DefaultD Cancel10、 以下B是正确的ForNext结构。(1分)A For x=1 To Step 10Next xB、For x=3 To -3 Step -3Next xC For x=1 To x=10Next xD

4、For x=3 To 10 Step 3Next y11、 能产生10 , 32之间随机整数的函数表达式为_B_。( 1分)A Int(Rnd*22)+10B、Int(Rnd*23)+10C Int(Rnd*22)+11D Int(Rnd*23)+1112、程序如下：k = 0: Do Un til k 10: k = k + 1: Loop 分)的循环体执行次数是C。（1C 11B、10D无数次13、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是C。（ 1分）A ForecolorB、BackColorC BackStyleD BorderStyle14、Print Format(1

5、234.234, #.#)； Format(1234.234, #.#)的显示结果是 A Q （1分）A 1234.234 1234.23C 123.234001234.2315、运行程序：x = 2: For i = 1 To 10 Step 2: x = x + 分）不会A 26C 3816、 Cis方法可以清除窗体或图片框中的_CA在设计阶段使用 Picture设置的背景位图C在运行阶段产生的图形和文字17、如果想用Print方法将计算结果显示在窗体上， C。（ 1 分）A EnabledC、AutoRedraw18、窗体文件的扩展名_D。（ 1分）A .basC、.exe19、以下关于

6、 MsgBox的叙述中，错误的是A MsgBox函数返回一个整数C MsgBox过程语句没有返回值20、 能够通过标准工具栏打开的窗口是_A、代码窗口B、123.234001234.234i: Next，x 的值是B。（ 1B、27D 57。（1分）B、在设计阶段放置的控件D以上全部内容则必须保证属性值为True的属性是B、ApperaneeD MoveableB、.vbpD .frmD。（ 1 分）B、通过MsgBox函数可以设置信息框中图标和按钮的类型D MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数C。（ 1分）B、设计器窗口C属性窗口D立即窗口21、在下列逻

7、辑表达式中，逻辑值为真的是 A 。 （1分）A Not （1 2）B、Not （3 + 4 2 Or 2 3D 2 1 And 3 = 1.7 And W = 52.5B、T = 52.5C T 1.7 And W 1.7 Or W m在以下4个语句中，能将 x赋值为一个 m n之间（含m,n ）的任意整数，即满足 mx n的是_B_。 （1分）A x = Int(Rnd * n) + mB、x = Int(Rnd * (n-m + 1) + mC、x = Int(Rnd * m) + nD x = Int(Rnd * (n-m)+ m30、执行语句 Print Format(32548.5,

8、 #,#0.00)，输出结果是D。(1 分)A 32548.5B、32,548.5C 032,548.50D 32,548.5031、下列选项中，D不是字符串常量。（1分）A 你好”B、C TrueD #False#32、下列不合法的常量形式是C。（1分）A 1O0B、100.0C 1OE+0.5D Const G = 23 + 1233、表达式Val（.123E2CD）的值是B。（1 分）A .123B、12.3C OD .123E2CD34、下列符号中，属于Visual Basic合法变量名的是A 。（ 1分）A x23B、8xyC ENDD X8B35、下列符号常量的声明中，_C 不合法

9、的。（1分）A Const a As Sin gle = 2.6B、Con st a As Stri ng = abC Const a As Double = Sin36、表达式Turbo + C True + BasicA TrueD Con st a = OK的值是 A o（ 1分）B、FalseC NullD出错信息37、执行MsgBox 123 + 123，信息框中可以出现 _C。（1分）A 123 + 123B、 123123C 246D显示出错信息38、执行程序段： m$= ABC: n$ = abc: k$ = LCase$（m$）: j$ = UCase$（n$）: j$），输

10、出的结果是 Do （1分）Print Asc（k$ +A abcabcB、ABCABCC 65D 9739、Single （单精度）型数据占B个字节。（1分）A、2B、4C8D1040、 变量未赋值时，数值型变量的值为A o （1分）A、OB、空串CNullD没任何值41、如果在图片框 Picture1中装入一个图形，为了清除该图形（不删除图片框） 法是Co （1分），应采用的方A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键C 执行语句 Picturel. Picture =LoadPicture（”）42、 Visual Basic的编程机制是 _C_A、面向过程C事件驱

11、动43、 设 n=10，执行 n=IIF（n=3,n,-n）后，A 10C 344、除了系统默认的工具箱之外，还可以通过A、执行“文件”菜单中的“添加工程”命令C在工具箱处执行其快捷菜单中的“添加选项卡”命令C应用程序的代码B、选择图片框，然后按 Del键D 执行语句 Picture1.Picture =。（1 分）B、面向对象D可视化n的值为_B_o（ 1分）B、-10D -3B方法来增加控件。（1分）B、执行“工程”菜单中的“部件”命令D执行“工程”菜单中的“添加窗体”命令45、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是D_o （1分）B、窗体设计窗口A、窗体布局窗口C属性窗

12、口D代码窗口46、有一个命令：Text仁”欢迎您！ ”，表达方式中省略了对象的 _B_。（1分）A、方法B、属性名C对象名D标题47、窗体设计器是用于设计D 。（1 分）A、窗体的代码B、对象的属性D应用程序的界面48、以下关于MsgBox的叙述中，错误的是A MsgBox函数返回一个整数C MsgBox过程语句没有返回值49、 在程序运行模式能够A q（ 1分）A、中断程序C输入程序50、下面四个语句中，正确的赋值语句是_Dq （1 分）B、通过MsgBox函数可以设置信息框中图标 和按钮的类型D MsgBox函数的第一个参数 是一 -个整数， 参数只能确定对话框中显示的按钮数B、添加程序D

13、编辑程序Aq （1分）A、a = a + cC c + a = a51、Select Case 语句中的表达式列表”不能是A、变量名的列表，例如 Case x ,y ,zC To表达式，例如 Case 1 to 1052、比较两个数中较大的数的程序段，错误的是A IF x y Then max=x Else max=yC IF x y Then max=x : max=yB、a + c = aD a c = aA q （1分）B、值的列表，例如Case a ，”b,cD Is关系表达式，例如 Case Is y , x, y）D max=x: If xb) Or (b2)D (5a) And

14、(b2)A o ( 1 分)B、 123123A 4C 656、语句 Print int(-23.4)= ”； ; Int(-23.4)A Int(-23.4)=-23.4C Int(-23.4)=-2357、 下列叙述中，正确的是_B。 (1分)A、工程文件(.vbp )应用程序可以在任 何计算机上运行C VB工程文件中可以没有窗体文件58、下列各组中，两个函数功能完全相反的是A Str(x)和 Val(x)C LTrim(x)和 RTrim(x)59、设a=3，b=5,则以下表达式值为假的是A a=b And b l0C (a0)60、执行MsgBox 123 + 123，信息框中可以出现

15、A 123 + 123C 246D显示出错信息A X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 161、下列表达式中，表示X和Y之中有一个是奇数”的表达式是_Do (1分)C (X Mod 2 = 1 And Y Mod 2 = 0) AndD (X Mod 2 = 1 And Y Mod 2 = 0) Or (X(X Mod 2 = 0 And Y Mod 2 = 1)Mod 2 = 0 And Y Mod 2 = 1)62、下列符号常量的声明中，C 不合法的。(1分)A Con st a As Sin gle = 1.1B、Co

16、n st a As In teger = 12D Con st a = OKC Const a As Double = Sin63、以下声明语句中，错误的是C_。 （1 分）A Const varl=123B、Const var2=ABCC Public const=计算机等级考试 ”D Static var3 as Integer64、下面表达式中，_D_的运算结果与其他3个不同。（1分）A Log（Exp（-3.5）B、Int（-3.5） + 0.5C -Abs(-3.5)D Sin(30 * 3.14 / 180)65、Print Format(32556, #)； Format(325

17、56, #)的输出结果是 A 。( 1 分)A 3255632556B、 3255632556C 32556-325D -3255632566、 下列数据中，C 日期型数据。（1分）A01/30/2004B、Date（01/30/2004）C#01/30/2004#D01/30/200467、执行语句 Print Format（32548.5, #,#0.00），输出结果是 _D_。（ 1 分）A32548.5B、32,548.5C032,548.50D32,548.5068、 InputBox函数返回值的类型为 B。（ 1分）A、数值B、字符串C变体D数值或字符串69、 m n是整数，且nm

18、在以下4个语句中，能将 x赋值为一个 m n之间（含m,n ）的任意整数，即满足 mx n的是_B。 （1分）A x = Int(Rnd * n) + mB、x = Int(Rnd * (n - m + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m70、在下列逻辑表达式中，逻辑值为真的是A_。（1分）A Not (1 2)B、Not (3 + 4 2 Or 2 3D2 1 And 3 True + Basic的值是A o （1分）A TrueB、FalseC NullD、出错信息73、执行程序段：Dim axs As Integer

19、: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是_B_。( 1分)A 232 232032B、 232 232C 232.32 232.32D显示出错信息74、执行 x = -6 A 2: Print Sgn(x) + Abs(x) + Int(x)的结果是C o (1 分)A -36B、1C -1D -3275、假设变量iVar是一个整型变量，则执行赋值语句iVar = 2 + 3之后，变量iVar的值是 Do ( 1分)A 2B、3D 2376、程序段Dim x%: If x Then y = x Else y = x + 1: Prin

20、t y运行后，显示的结果是 (1分)B、1C随机数D显示出错信息77、 语句 Print int(-23.4)= ”； ; Int(-23.4)的输出结果为 (1 分)DAInt(-23.4)=-23.4B、(-23.4)=23.4CInt(-23.4)=-23DInt(-23.4)=-2478、 设a=3，b=5，则以下表达式值为假的是A 。( 1分)Aa=b And b 10B、(ab) Or (b2)C (a0)D (5a) And (b2)79、 处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是A(1分)A LoadB、ClickC DblClickD Mouse

21、Down80、运行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next， x 的值是 A 。（ 1分）A 2B、26D 38个工程的名字是_D_。( 1分)B、工程D工程1。(1分)C 2781、启动Visual Basic 后，VB为用户新建立的第A、窗体1C窗体82、 决定窗体标题栏显示内容的属性是CA TextB、NameC CaptionD BackStyle83、Select Case 语句中的表达式列表”不能是 A o ( 1分)A、变量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case a ,b,cC、To表达式，

22、例如 Case 1 to 1084、若要选择 Text对象的Text1_KeyPress事件A、在属性窗口中选择C在代码设计窗口中利用对象列表框、过程列表框选择85、如果对文本框 Textl设置了 PasswordChar=则文本框中显示的是B。（ 1分）A 1个“ $”D Is关系表达式，例如Case Is m在以下4个语句中，能将 x赋值为一个 m n之间（含m,n ）的任意整数，即满足 mx n的是 B q （1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (n- m + 1) + mC x = Int(Rnd * m) + nx = In t(R nd

23、 * (n-m) + m93、F列声明语句中，错误的是Bq (1 分)94、A、Const varl=123C Const y=计算机等级考试F面关系运算中，输出结果为“True ”的是B、Dim var2=ABCStatic var3 as In tegerCq (1 分)A、 1 + 2 = 12B、1 + 2 一 3C 1 & 2 = 121 & 2 一 395、程序段 a = 10.5: b = Int(a + 0.5): Print b的功能是Bq （1分）A、输出平均值B、将一个实数四舍五入取整并输出C输出绝对值舍去一个实数的小数部分并输出96、分）执行程序 For n = 1 T

24、o 3: Cls: Print n=; n;: Next n后，输出结果是C_q (1A 123B、C n= 3n= 1 n= 2 n= 397、方法Print 等级”;考试”，输出的结果是A。（ 1 分）A、等级考试B、等级；考试C 等级考试”D 等级;考试98、Single （单精度）型数据占B个字节。（1分）A 2B、4C 8D 1099、表达式 Val（.123E2CD）的值是B_。（1 分）A .123B、12.3C OD.123E2CD100、表达式 4 + 5 6 * 7 / 8 Mod 9的值是 B （ 1 分）A 4B、5C 6D7101、窗体上有一个文本框和一个命名按钮，当

25、向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为 C。（ 1分）A Private Sub Command1_Click（）:B、Private Sub Command1_Click（）: Text1Command1.Caption = ” 计算机考试:End Sub =计算机考试:End SubC Private Sub Text1_Change（）:D Private Sub Text1_Click（）:Command1.Caption = ” 计算机考试:End Sub Text1.Caption =计算机考试:End Sub102、文本框中的Scrol

26、lBars 属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是_B。（ 1分）A、文本框中没有内容B、文本框的 MultiLine 属性为FalseC文本框的MaxLength属性为0D 文本框的 Locked属性是True，执行后s103、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Un til i 4的值是C_（ 1分）A 10B、11D 15C 12 104、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是(1分)A、0B、1C随机数D显示

27、出错信息105、 如果VB环境中缺少某个窗口，一般应从主菜单_C的下拉菜单中找到相应的激活命令。（1分）A、编辑B、文件C视图D调试106、 以下关于InputBox函数的叙述中，错误的是 C。（ 1分）A、InputBox函数的提示信息参数”不B、每执行一次InputBox函数，只能输入一能缺省个值C InputBox函数的返回值是数值型的D要保存InputBox函数的返回值必须赋予 一个变量107、能产生10，32之间随机整数的函数表达式为_B_。（ 1 分）A Int(Rnd*22)+10B、Int(Rnd*23)+10C Int(Rnd*22)+11D Int(Rnd*23)+1110

28、8、 设有变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是A (1分)A TestDate = #1/1/2002#B、TestDate = #1/1/2002#D TestDate = Format(m/d/yy,C TestDate = Date(1/1/2002)1/l/2002)109、 已知下列程序段：a = 3: b = 4: Print b a，输出的结果是 A 。( 1分)A TrueB、FalseC 43D显示出错信息的值是 A q （1分）110、表达式Turbo + C True + BasicA TrueC NullB、Fa

29、lseD出错信息提示信息）的执行后,111、语句 T = MsgBox（程序执行了非法操作 , vbAbortRetrylgnore,可以在对话框中显示 _C 按钮。（1分）B、2C 3D 4112、如果将布尔常量值 True赋给一个整型变量，则整型变量的值为 B_q（ 1分）A OB、-1C TrueD False113、 执行语句age = InputBox（ 请输入数值,年龄输入框, 38），如果从键盘上输入数 值20并按回车键，则下列叙述中，不正确的叙述是A q （1分）A、变量Age的值是数值20B、对话框标题栏中显示的是年龄输入框C对话框的默认值是38D对话框的提示文字为”请输入数

30、值”114、 执行程序段：Con st c$ = He nan: c$ = Zhe ngzhou: c$ = Daxue: Print c$，输出的结果是_D_q （1分）A HenanB、 ZhengzhouC DaxueD显示出错信息115、执行程序段：a$ = Visual Basic Programi ng: b$ = Quick: c$ = b$ & UCase（Mid$（a$,7, 6） & Right$（a$, 11） ，变量 c$ 的值为 _D。（1 分）A Visual BASIC Programi ngB、Quick Basic progra mingC QUICK Bas

31、ic Programi ngD Quick BASIC Programi ng116、程序段 a = 10.5: b = Int（a + 0.5）: Print b的功能是B_。（1 分）A、输出平均值B、将一个实数四舍五入取整并输出C输出绝对值D舍去一个实数的小数部分并输出117、 执行程序段： m$=ABC: n$ = abc: k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ +j$)，输出的结果是 D_。( 1分)A、abcabcB、ABCABCC 65D 97118、 下列表达式中，表示X和Y之中有一个是奇数”的表达式是_D_。( 1分)A

32、 X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C (X Mod 2 = 1 And Y Mod 2 = 0) AndD (X Mod 2 = 1 And Y Mod 2 = 0) Or (X(X Mod 2 = 0 And Y Mod 2 = 1)Mod 2 = 0 And Y Mod 2 = 1)119、下列符号中，属于 Visual Basic合法变量名的是A 。 （1分）A x23B、 8xyC END二，填空题1、*求正整数 M和N ( MN的最大公约数。* 程序段如下：R = M Mod NDo While R 0M

33、= NN =RR = M Mod NLoopPrint 最大公约数为：；N2、*在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()Dim a As String, b As In tegera =InputBox(请输入一个数字)b = InputBox( 请输入一个数字)Prin t s; a; b; okEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为：S321 456ok。3、* 计算 s = (1-1/2)*(1-1/3)*.(1-1/10)s = 1For x =2 To 10s = s *

34、 (1 - 1 / x)Next xPrint s4、 *求菲波那契数列(1、1、2、3、5、8.)的第3到 10项的值。* 程序段如下：A(1) = 1A(2) = 1I =3Do While I = 10A(I) = A(I - 1)+ A(I - 2)Print 第 ” & I & ” 项为：;A(I)I = I + 1Loop5、* 求 S=1! +2! + 10!* 程序段如下：s =0t = 1Fori = 1 To 10t= t *is = s + tNext iPrint s6、 *下面的程序在运行结束时一共执行循环体5次，最后打印结果为16。For i = 1 To 10 S

35、tep 1i = i + 1j = j + 1NextPrint i + j7、* 求 SUM=K 2X 3+4X 5X 6+7X 8X 9+28X 29X 30* 程序段如下：sum=0I = 2Do While I = 30Sum = Sum + （I - 1） * I * （I + 1）I =I + 3LoopPrint 总和为：”；SumName8、*设在窗体上面有两个文本框（ Name属性分别为 Text1和Text2 ）和一个命令按钮（属性为Command1，然后编写如下两个事件过程，则程序运行结果为：123321。Private Sub Comma nd1_Click（）a =

36、Text1.Text + Text2.TextPrint aEnd SubPrivate Sub Form_Load（）Text1 .Text = 123Text2.Text = 321Print aEnd Sub9、 *判断N是否为完全数（一个数等于它所有因子（不包括自身）之和，如6=1+2+3）。* 程序段如下：I = 1N=InputBox（请输入 N 的值：）Do While I = 0.000001Print Term11、 *下面程序用于求小于和等于50的自然数的平方和，请填空。*程序段如下：private sub form_click()dim sum as longsum=0f

37、or i=1 to 50sum=sum +iA2n extiprint sumend sum12、*下面程序的功能是随机产生一个三位数正整数，将该数和该数的逆序同时输出。Private Sub Form_Click()Dim a%, s As Stri ng, c As Stri ngRan domizea = In t(R nd * (999 - 100 + 1) + 100)s = Format(a)c = Right(s, 1) & Mid(s, 2, 1) & Left(s, 1)Print 三位数是” & aPrint a & ”的逆序是” & cEnd Sub13、*使用Selec

38、t Case结构将一年中的12个月份，分成四个季节输出。Private Sub Form_Click()Dim m%m = In putBox(请输入月份)SelectcasemCase 1,2, 3Print m & ”月是第一季度”Case 4, 5, 6Print m & ”月是第二季度”Case 7, 8, 9Print m & ”月是第三季度”Case 10, 11, 12Print m & ”月是第四季度”End SelectEnd Sub14、 * 根据 n /4=1-1/3+1/5-1/7+.+(-1)n-1/(2n-1)，分别求 n=1000、1500、2000、2500时n

39、的近似值。* 程序代码如下：Private Sub Form_Click()For i = 1000 To 2500step 500s = 0f = 1Forj = 1 To it = 1 / (2 * j - 1)s = s + f * tf = -fNext jPrin t i=; i, pi=;sNext iEnd Sub15、*使用双循环实现正三角形输出* 程序代码如下：Private Sub Comma nd1_Cick()Fori = 1 To 10Print Tab(25 -i );Forj = 1 To 2 *i-1卩和t *;Next jprintNext iEnd Sub1

40、6、*执行下列事件代码：Private Sub Comma nd1_Click()Dim MyStri ng As Stri ngDim MyLen As In tegerMyStri ng = Hello WorldMyLen =2+le n(MyStri ng)PrintMyLe nEnd Sub在弹出的消息对话框中的内容是： 13。17、*判断正整数 M是否为素数。*程序段如下：FLAG =1 : M=InputBox( 请输入 M的值”)For I = 2 To Sqr(M)IfM%I = 0 The nFLAG = 0Exit ForEnd IfNext IIf FLAG = 1 T

41、he nPrin t YESElsePrin t NOEnd If18、*在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()Dim a As String, b As In tegera = InputBox (请输入一个数字)b = InputBox( 请输入一个数字)Prin t s; a; b; okEnd Subs321 456则窗体程序运行后，单击命令按钮，在输入对话框中分别输入321和456,输出结果为：ok。19、 *在窗体上画一个名称为Comma nd的命令按钮并编写下列事件过程，程序运行后,上显示的是10。Private

42、Sub Comma nd1_Click()x = In t(R nd * (20 - 1 + 1) + 1)Select Case xCase 1 to 20y = 10Case 11, 13, 15, 17y = 30Case Is 10y = 50End SelectPrint yEnd Sub20、 *下列程序段的执行结果是“HELLO! ZHANG! GOOD MORNIN”！A = HELLOGOODMORNINGB = WANGZHANGLIC = Left(A,5 ) + !D = Right(A, 7)E = Mid(A, 6, 4)F = Mid(B, Le n(B) -6, 5) + ”!G = E + + D + !H = C + + FPrint H + + G21、 *下列程序段的执行结果为-3 3。X = 5Y = -20If NOT X YThe n X = Y - 3 Else Y = X + 3Print X - Y; Y - X22、*古代数学家在编写算经时，提出了一个不定方程问题，即著名的“百鸡问题”* 鸡翁一，值钱五，母鸡一，值钱三，雏鸡三，值钱一。百钱卖百鸡，问鸡翁、母、雏， 各几何？* 程序代码如下：Private Sub Form_Click()Dim i As In teger, j