【VB课件】VisualBasic程序设计课后习题答案

习题1

1.填空题

(1)VisualBasic是一种面向的可视化程序设计语言，采取了的编程机

制。

(2)VisualBasic的对象主要分为和两大类。

(3)在VisualBasic中，用来描述一个对象外部特征的量称之为对象的。

(4)在VisualBasic中，设置或修改一个对象的属性的方法有两种，它们分别是：

和,

(5)在VisualBasic中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件

作出响应，其响应方式就是通过调用执行一个与之相对应的来实现的。

(6)在VisualBasic中，事件过程的名字由_________、和所构成。

(7)若用户单击了窗体Forml,则此时将被执行的事件过程的名字应为：。

(8)VisualBasic的集成开发环境主要由6个部分组成，它们分别是：、_

2.简答题

(1)简述VisualBasic的特点

(2)什么是对象的属性、事件和方法？

(3)VisualBasic如何完成对用户操作的响应？

(4)什么是事件？事件过程的••般格式是怎样的？如何编写对象的事件过程?

习题2

2.1说明下列哪些是VisualBasic合法的直接常量，并分别指出它们的类型。

100.0%1001E1123D3123,4560100

“ASDF“1234.5”#2004/10/7#100#JI

&O78&H123TrueT-1123!345.54#

2.2下列数据哪些是变量，哪些是常量？是什么类型的常量？

Name“name”Falseff力1/16/99”cj

“120”n#11/12/2004#12.345

2.3下列符号中，哪些可以是VisualBasic的合法变量名？

A123al2_3123_aa,123a123Integer

XYZFalseSin(x)变量名sinxJI

2.4把下列数学表达式写成VisualBasic表达式：

1x+y1+z，(2)(1+孙力

(1)

10X+技—-+近一4碇

(3)孙(4)2a

1

e10+lnlO

sin45°+

(5)n-2「3(6)y/x+y+l

2.5写出卜列表达式的值:

(1)123+23Mod10\7+AscC'A")

(2)Int(68.555*100+0.5)/100

(3)#11/22/2004#-10

(4)"ZXY"&123&"abc”

2.6设a=7,b=3,c=4,求下列表达式的值:

⑴a+3*c(2)a-2/4

(3)a/2+3\2(4)aMod3+b3/c\5

2.7写出下列函数的值:

(1)Int(-3.14159)(2)Fix(-3.14159)

(3)Sqr(Sqr(81))(4)Len(，zVisualBasic程序设计")

(5)Int(Abs(99-100)/2)(6)Sgn(7*3+2)

(7)LCase("HellowVB!H)(8)MidC'HellowVB!n,4,3)

(9)Left(HHellowVB!n,3)(10)Val(”16个加23个”)

(11)Str(-459.55)(12)UCase(nVisualBasic")

2.8选择题

(1)可以同时删除字符串前导和尾部空格的函数是。

A.LtrimB.RtrimC.TrimD.Mid

(2)函数Int(Rnd(l)*10)是在哪个范围产生随机整数。

A.(0,1)B.(0,9)C.(1,10)D.(1,9)

(3)数学式子sin25°写成VisualBasic表达式是。

A.Sin25B.Sin(25)C.Sin(25°)D.Sin(25*3.14/180)

(4)表达式16/4-2A3*8/4Mod5\2的值是。

A.14B.4C.20D.2

(5)数学关系式3Kx<10表示成正确的VB表达式为o

A.3<=x<10B.x>=3Andx<10

C.x>=3Orx<10D.3<=xAnd<10

(6)已知A="12345678”，则表达式Val(Left(a,4)+Mid(a,4,2))的值是。

A.123456B.123445C.8D.6

(7)表达式Len(M123程序设计ABC")的值是。

A.10B.14C.20D.17

(8)表达式LenB(n123程序设计ABC")的值是。

A.10B.14C.20D.17

(9)下面正确的赋值语句是o

A.x+y=30B,y=x+30C.y=五*r*rD.3y=x+l

(10)为了给x,y,z三个变量赋初值1,正确的赋值语句是o

A.x=l:y=l:z=lB.x=l,y=l,z=lC.x=y=z=lD.x,y,z=l

(11)赋值语句g=123+Mid(”123456”,3,2)执行后,变量g中的值是。

A.”12334”B.123C.12334D.157

(12)赋值语句8=123&1^或”123456”,3,2)执行后，变量g中的值是。

A.”12334”B.123C.12334D.157

(13)如果x是一个正实数，对x的第3位小数四舍五入的表达式是o

A.0.01*Int(x+0.005)B.0.01*Int(100*(x+0.005))

C.0.01*Int(100*(x+0.05))D.0.01*Int(x+0.05)

(14)下列哪组语句可以将变量a,b的值互换o

A.a=b:b=aB.a=a+b:b=a-b:a=a-b

C.a=c:c=b:b=aD.a=(a+b)/2:b=(a-b)/2

(15)下列四个字符串进行比较，最小的是o

A.“9977”B."B123”C."Basic"D.“DATA”

(16)下列逻辑表达式中，其值为True的是。

A."b”>“ABC"B.“THAT”>“THE”C.9>“H"D."A”>“a”

(17)表达式a+b=c是o

A.赋值表达式B.字符表达式C.算术表达式D.关系表达式

(18)在下列表达式中，非法的是o

A.a=b+cB.a>b+cC.aWb>cD.a<b+c

(19)语句PrintFormat("HELLO”,“v”)的输出结果是。

A.HELLOB.helloC.HeD.he

(20)MsgBox函数的返回值的类型是o

A.整数B.字符串C.逻辑值D.日期

(21)用语句DimA(-3to5)AsLong定义的数组元素个数是。

A.7B.8C.9D.10

(22)用语句DimA(3,-3lo0,3to6)AsLong定义的数组元素个数是

A.12B.27C.64D.80

2.9程序阅读题

(1)执行下面程序段后，变量c$的值为o

a=”学习VisualBasicProgramming"

b="我们”

c$=b&”喜欢"&UCase(Mid(a,10,5))

(2)执行下面程序后,显示的结果是o

PrivateSubForm_Click()

DimxAsInteger

x=Int(Rnd)+4

SelectCasex

Case5

Print”优秀”

Case4

Prinl"良好”

Case3

Print”及格“

CaseElse

Print”不及格”

EndSelect

EndSub

(3)执行下面程序段后，变量x的值为o

DimxAsInteger

x=5

Fori=1To20Step3

x=x+i\5

Nexti

(4)执行下面程序后，输出的结果是o

PrivateSubForm_Click()

DimxAsInteger

Fori=1To3

Forj=1Toi

Fork=jTo3

x=x+1

Nextk

Nextj

Nexti

Printx

EndSub

(5)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

DimxAsInteger

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+1

Loop

Printnx=M;x;nn=n;n

EndSub

(6)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

DimxAsInteger,aAsInteger

x=0

Forj=1To5

a=a+j

Nextj

X二J

Printx,a

EndSub

(7)以下程序的循环次数是o

Forj=8To35Step3

Printj;

Nextj

(8)执行下面程序输入4后，程序输出的结果是

PrivateSubForm_Click()

x=InputBox(x)

IfxA2<15Theny=1/x

IfxA2>15Theny=xA2+1

Printy

EndSub

(9)执行下面程序后，输出的结果是o

PrivateSubForm_Click()

DimsumAsInteger

sum%=19

sum=2.23

Printsum%;sum

EndSub

(10)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

a=100

Do

s=s+a

a=a+1

LoopUntila>100

Printa

EndSub

(11)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

a=HABCDn

b=nefghM

c=LCase(a)

d=UCase(b)

Printc+d

EndSub

(12)执行下面程序后，输出的结果是

PrivateSubForm_Click()

x=2:y=4:z=6

x=y：y=z：z=x

Printx;y;z

EndSub

(13)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

DimcountAsInteger

count=0

Whilecount<20

count=count+1

Wend

Printcount

EndSub

(14)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

a="*"：b="$M

Fork=1To3

x=Str(Len(a)+k)&b

Printx;

Nextk

EndSub

(15)执行下面程序后，输出的结果是o

PrivateSubForm_Click()

k=0:a=0

DoWhilek<70

k=k+2

k=k*k+k

a=a+k

Loop

Printa

EndSub

(16)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

DimM(10)AsLong,N(10)AsLong

i=3

Fort=1To5

M(t)=t

N(i)=2*i+1

Nextt

PrintN(i);M(i)

EndSub

A.311B.315C.1113D.153

(17)执行下面程序后，输出的结果是o

PrivateSubForm_Click()

Dima()

a=Array(1,2,3,4)

j=1

Fori=3To0Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

A.1234B.4321C.12D.34

(18)执行下面程序后，输出的结果是。

PrivateSubForm_Click()

DimM(10)

Fork=1To10

M(k)=11-k

Nextk

x=6

PrintM(2+M(x))

EndSub

A.2B.3C.4D.5

(19)执行下面程序后，输出的结果是o

PrivateSubForm_Click()

Dima(10)AsInteger,p(3)AsInteger

k=5

Fori=1To10

a(i)=i

Nexti

Fori=1To3

p(i)=a(i*i)

Nexti

Fori=1To3

k=k+p⑴*2

Nexti

Printk

EndSub

A.33B.28C.35D.37

(20)执行下面程序后，输出的结果是o

PrivateSubForm_Click()

Dima(10,10)AsInteger

Fori=2To4

Forj=4To5

a(i,j)=i*j

Nextj

Nexti

Printa(2,5)+a(3,4)+a(4,5)

EndSub

A.22B.42C.32D.52

2.10填空题

(1)填空，使得程序运行后，能在窗体上打印如图所示的图案。

PrivateSubForm_Click()

Print

Fori=1To4

PrintTab(8-i);1・Forml,1□!x|

Forj=1To8

Print"*”；

(1)********

Print

Nexti

EndSub

卜山|桂力口、J功目匕万利用隗机由效厂士iu丁AI用irj加机整数，打印其中

能被5整除的数并求其和，请用正确的内容填空。

PrivateSubForm_Click()

DimsumAsInteger,xAsInteger

Fori=lTol0

x=Int(Rnd*100+1)

If(2)=0Then

sum=sum+x

Print"x=n;x

EndIf

Nexti

Ifsum<>0Then

Print"sum=n;sum

EndIf

EndSub

(3)用正确的内容填空，使得以下程序能够找出50以内所有能构成宜角三角形的整

数。

PrivateSubForm_Click()

DimaAsInteger,bAsInteger

DimcAsSingle

Fora=1To50

Forb=aTo50

c=Sqr(aA2+bA2)

If⑶ThenPrinta,b,c

Nextb

Nexta

EndSub

(4)用正确的内容填空,使得以下程序能够计算1+1/3+1/5+……+1/QN+1),直到

1/QN+1)小于10'\

PrivateSubForm_Click()

sum=1:n=1

Do

n=n+2

temp=1/n

sum=sum+temp

Iftemp<0.00001Then(4)

Loop

PrintnN=n;n

Print"sum=M;sum

EndSub

(5)某大奖赛，有7位评委给参赛选手打分。以下程序是输入7位评委对某选手的打

分后，去掉最高分和最低分后计算其平均值作为该选手的成绩。请填空使得程序

能正确运行。

PrivateSubForm_Click()

sum=0

Fori=1To7

cj=Val(InputBox(“请输入第”&i&”位评委的打分:‘录入"))

Ifi=IThen

Max=cj

Min=cj

Else

IfMin>cjThen

Min=cj

ElselfMax<cjThen

Max=cj

EndIf

EndIf

sum=sum+cj

Nexti

aver=______(_5)________

Print”该选手的成绩为：”,aver

EndSub

(6)以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数，请用正确的

内容填空。

PrivateSubForm_Click()

Dima(lTo6)AsInteger

Randomize

Fori=1To50

n=______C6)____________

a(n)=a(n)+1

Nexti

Fori=1To6

Printi;”点出现”;a⑴;“次”

Nexti

EndSub

2.11编程题

(1)编写程序将l~100自然数中能被3和5同时整除的数打印出来，并统计其个数。

(2)我国现有人口14亿，设年增长率为0.75%,编写程序，计算多少年后将增加到

16亿。

(3)编写程序输出100~200之间不能被3整除的自然数。

(4)设计程序，求s=l+(l+2)+(l+2+3)+……+(1+2+3+……+n)的值。

(5)编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止。并用Print方法

输出计算结果。其中：

S=1--+---+KK+(-l)^+1—

234K

(6)假设某项税收的规定如下：

•收入在500元以内，免征；

•收入在500〜1000元内，超过500元的部分纳税3%；

•收入超过1000元时，超过的部分纳税4%；

•收入超过2000元时，超过的部分纳税5%。

试编程实现上述操作。

(7)编写程序，用InputBox函数输入3个正整数，打印其中最大的数。

(8)编写程序，任意输入三个整数A,B,C,按由大到小顺序把它们打印出来。

r3r5r2"-1

sinX®X-—+—+A+(-1尸一-----

(9)编写程序，计算3!5!(2〃-1)!直到第n项的

绝对值小于10-8

(10)分别编写两个程序，在窗体上分别灯m山戏、而二的图形。

***

***

****

*

(11)编写程序，输出1000之内的所有完数。“完数”是指一个数恰好等于它的因子之

和，如6的因子为1、2、3,而6=1+2+3,因而6是完数。

(12)一只小球从10米高度上自由落下，每次落地后反弹回原高度的40%,再落下。

编程计算小球在第8次落地时，共计经过了多少米？

(13)编写程序，求出所有小于或等于100的自然数对。自然数对是指两个自然数利与

差都是平方数，如8和17的和为8+17=25与其差17-8=9都是平方数，则8和17

就称为自然数对。

(14)找出100~999之间的所有“水仙花数”。所谓“水仙花数”是一个三位数，其各

位数的立方各等于该数本身，例：153=353+33,故153是“水仙花数”。

(15)编写程序，在窗体上打印下图所示的“数字金字塔”：

迁Forml

1

121

12321

1234321

123454321

12345654321

1234567654321

123456787654321

12345678987654321

(16)用一元纸币兑换一分、二分和五分的硬币，要求兑换硬币的总数为50枚。编程列

出所有可能的兑换方案。

(17)编写程序，建立并输出一个10X10的矩阵，该矩阵两条对角线上的元素为1,其

余元素均为0。

习题3

一、选择题

（1）窗体的标题条显示内容由窗体对象的（）属性决定。

A.BackColorB.BackStyleC.TextD.Caption

（2）窗体的示意图标可用（）属性来设置。

A.PictureB.ImageC.IconD.Mouseicon

（3）若要取消窗体的最大化功能，则可设置（）属性为False来实现。

A.ControlBoxB.MinButtonC.MaxButtonD.Enabled

（4）窗体的风格由窗体对象的（）属性来设置。

A.BackStyleB.BorderStyleC.WindowStateD.FillStyle

（5）若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的（）属性

来实现。

A.FontNameB.FontC.FontSizeD.FontBold

（6）若要设置文本的显示颜色，则可用（）属性来实现。

A.BackColorB.ForeColorC.FillColorD.BackStyle

（7）若要使用窗体启动时，位于屏幕的中间，则可通过（）属性来设置。

A.TopB.LeftC.StartUpPositionD.WindowState

（8）若要禁止窗体被移动，则可设置窗体的（）属性为False来实现。

A.MoveB.MoveableC.MinButtonD.ControlBox

（9）若要将窗体隐藏起来，则实现的方法为（）

A.Hide氏UnLoadC.ShowD.WindowState

（10）命令钮的标题文字由（）属性来设置。

A.TextB.C叩tionC.NameD.（名称）

（11）命令按钮标题文字的下划线，可通过（）符号来设置。

A.\<B.&C._D\>

（12）若要将某命令按钮设置为默认命令钮，则可设置（）属性为True来实现。

A.ValueB.CancelC.DefaultD.Enabled

（13）若要设置命令钮的工具提示，则可通过（）属性来设置。

A.CaptionB.TextC.ValueD.ToolTipText

（14）若要使用某命令按钮获得控制焦点，则可使用（）方法来设置。

A.RefreshB.SetFocusC.GotFocusD.Value

（15）若要使用命令钮在运行时不可见，则可通过设置0属性的取值来实现。

A.VisibleB.EnabledC.DefaultD.Value

（16）在运行时，若要调用某命令钮的Click事件过程，则可设置该命令按钮对象的（）属

性为True来实现。

A.EnabledB.ValueC.DefaultD.Cancel

（17）标签框的边框，由（）属性的设置值决定。

A.BorderStyleB.BackStyleC.BackColorD.AutoSize

（18）若要使用标签框的大小自动与所显示的文本相适应，则可通过设置（）属性的值为

True来实现。

A.AutoSizeB.AlignmentC.AppearanceD.Visible

（19）若要设置或返回文本框中的文本，则可通过文本框对象的（）属性来实现。

A.CaptionB.TextC.（名称）D.Name

（20）若要使用文本框成为只读文本框，可通过设置（）属性值为True来实现。

A.ReadonlyB.LockC.LockedD.Enabled

（21）若要设置定时器控件的定时时间，可通过（）属性来设置。

A.IntervalB.ValueC.EnabledD.Text

（22）若要多列显示列表项，可通过设置列表框对象的（）属性来实现。

A.ColumnsB.MultiSelectC.StyleD.List

（23）若要获知当前列表项的数目，可通过访问（）属性来实现。

A.ListB.ListindexC.ListCountD.Text

（24）若要向列表框新增列表项，则可使用的方法是（）。

A.AddB.RemoveC.ClearD.Additem

(25)若要清除列表框的内容，可使用()方法来实现。

A.AddB.RemoveC.ClearD.Additem

(26)在3种不同风格的组合框中，用户不能输入数据的组合框是()

A.下拉式组合框B.简单组合框C.下拉式列表框

(27)复选框或单选框的当前状态通过()属性来设置或访问。

A.ValueB.CheckedC.SelectedD.Caption

(28)下列控件中，没有Ciption属性的是()。

A.框架B.列表框C.复选框D.单选按钮

(29)复选框的Value属性为1时，表示()。

A.复选框未被选中B.复选框被选中

C.复选框内有灰色的勾D.复选框操作错误

(30)用来设置粗字体的属性是()。

A.FontltalicB.FontNameC.FontBoldD.FontSize

(31)将数据项“China”添加到列表框Listl中，成为第一项应使用()语句。

A.Listl.Additem"China"，0B.Listl.Additem“China”,1

C.Listl.Additem0,"China"D.Listl.Additem1,“China”

(32)假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,

计算机将发出()次Beep声。

PrivateSubTimerl_Timer()

Fori=1To5

Beep

Nexti

EndSub

A.1000次B.10000次C.5次D.以上都不对

(33)如果每0.5秒产生一个计时器事件，那么时钟控件的Interval属性应设为()。

A.5B.50C.500D.5000

(34)将命令按钮Command1的标题复制到文本框控件，Textl作为显示文本，应执行()。

A.Textl=Command1B.Textl=Command1.Caption

C.Textl.text=Command1.CaptionD.Text1.Text=CStr(Command1)

(35)表示滚动条控件取值范围最大值的属性是()。

A.MaxB.LargeChangeC.ValueD.Max-Min

二、填空题

(1)复选框的属性设置为2-Grayed时，将变为灰色，禁止用户使用。

(2)VisualBasic中有一种控件组合了文本框和列表框的特点，这种控件是。

(3)为了在程序运行时把d:\pic文件夹中的图形文件a.jpg装入图片框Picture1，所使用的语

句为o

(4)计时器控件能有规律地以一定的时间间隔触发事件，并执行该事件过程中的

程序代码。

(5)若要求输入密码时文本框中只显示*号，则应当在文本框的属性窗口中设置_______属

性。

(6)图像框和图片框在使用时有所不同，这两个控件中，能作为容器容纳其它控件的是—。

(7)单击滚动条边的箭头时，滚动条默认滚动值为1,为了实现单击滚动条边的箭头时，滚

动条的滚动值为2,需要将其属性设置为2。

(8)滚动条响应的重要事件有和Change,滚动条产生Change事件是因为

改变了。

(9)列表框中的和属性是数组。

(10)在窗体匕有■个名为Commandl的命令按钮和•个名为Textl的文本框，程序运行后，

Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为

可用。请在空白处填入适当的内容，将程序补充完整。

PrivateSubForm_Load()

Command1.Enabled=False

EndSub

PrivateSubTextl_()

Command1.Enabled=True

EndSub

三、编程题

(1)在FormLoad事件编写一个程序，利用Inputbox来输入语文、英语和计算机3门课的成

绩。然后算出这3门课的总分和平均分，以MsgBox显示出来。

⑵在下图中“半径”后的文本框(TEXT1)中书输入圆的半径值后，单击“计算面积”按钮

(COMMAND】)和“计算周长”按钮(C0MMAND2),其计算结果将显示在结果后的文本

框(TEXT2)中。请将控件的相关事件代码编写出来，以完成上述各功能。

(3)卜图所示的界面，在图示的文本框中输入3个不同的数，点击“排序”按钮后，输入的

三个数按从大到小的顺序显示在另外3个文本框中。

(4)在窗体中建立两个命令按钮和一个标签，程序启动时只显示两个命令按钮，单击按钮“英

文”时显示"GoodBye"，单击按钮“中文”时显示“再见”。

•Forml

再见！

更哀JEnglish|

(5)设计一程序界面如图示，程序运行时，拖动滚动条便可以改变颜色区的背景色。

(6)设计一倒计时程序界面如下图示，运行时点击“设置倒计时间”按钮可以用设置倒计时

的初始时间，点击“开始倒计时”按钮就开始倒计时。

-Forml

02:02:36

设置倒计时间|『并据倒讦时］|退出

(7)设计一程序，窗体上有两个列表框，左侧列表框列出若干个城市名称，当双击某个城市

名时，这个城市名显示在右侧列表框中

XForml,1□1x|

全部城市被选城市

北

京

海

上

津

天

肥

合W

网

南

京

重

庆

昆

明

退出

(8)设计如下图所示的程序界面，实现计算两个整数的最大公约数功能。

(9)设计一个程序，有两个输入栏用来输入数据，然后可以计算它们的值，如加、减、乘、

除、’幕次方及余数。当用户输入数据时，会马上更新运算结果，界面如下图所示：

(10)输入两点坐标，在图片框中显示两点的连线并计算两点间的距离。

习题4

1程序阅读题

(1)假定有如下的Sub过程：

SubS(xAsSingle,yAsSingle)

t=x

x=t/y

y=tMody

EndSub

在窗体上添加一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimaAsSingle

DimbAsSingle

a=5:b=4

Sa,b

Printa,b

EndSub

程序运行时，单击命令按钮得到的结果是。

A.5,4B.1,1C.1.25,4D.1.25,1

(2)在在窗体上添加一个命令按钮Commandl和一个文本框Textl,然后编写如下事件

过程：

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger,zAsInteger

x=5

y=7

z=0

Textl.Text=,,n

Callpl(x,y,z)

Text1.Text=Str(z)

EndSub

PrivateSubpl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)

c=a+b

EndSub

程序运行后，单击命令按钮得到的结果是_____________二

A.0B.12C.Str(z)D.没有显示

(3)假定有以下函数过程：

FunctionFun(SAsString)AsSiring

DimsiAsString

Fori=1ToLen⑸

si=UCase(Mid(S,i,1))+si

Nexti

Fun=si

EndFunction

在窗体上添加一个命令按钮，然后编写如下事件过程：

PrivateSubCommandl_Click()

DimstrlAsString,str2AsString

strl=InputBox("请输入一个字符串”)

str2=Fun(strl)

Printstr2

EndSub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdegf”，单击确定按

钮后程序在窗体上输出结果为。

A.abcdefgB.gfedcbaC.ABCDEFGD.GFEDCBA

(4)在在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标

签，然后编写如下事件过程：

PrivateXAsInteger

PrivateSubCommandl_Click()

X=5:y=3

Callproc(X,y)

Label1.Caption=X

Label2.Caption=y

EndSub

Subproc(ByValaAsInteger,ByVaibAsInteger)

X=a*a

y=b+b

EndSub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是O

A.5和3B.25和3C.25和6D.5和6

(5)下列程序输出结果为o

PrivateSubCommand1_Click()

Fori=1To10

GetValuei

Nexti

PrintGetValue(i)

EndSub

PrivateFunctionGetValue(ByValaAsInteger)

StaticSAsInteger

S=S+a

GetValue=S

EndFunction

A.10B.65C.66D.11

(6)以下程序的运行结果是：o

Functionf(mAsInteger)AsInteger

b=1

StaticcAsInteger

b=b+1

c=c+1

f=m*b*c

EndFunction

PrivateSubCommand1_Click()

DimaAsInteger

a=2

Sum=0

Fori=1To3

Sum=Sum+f(a)

Nexti

PrintSum

EndSub

A.24B.12C.28D.32

(7)以下程序的运行结果是：o

DimxAsInteger,yAsInteger,zAsInteger

Subsl(aAsInteger,bAsInteger)

DimcAsInteger

a=2*a

b=b+2

c=a+b

EndSub

Subs2(aAsInteger,ByVaibAsInteger)

DimcAsInteger

a=2*a

b=b+2

c=a+b

EndSub

PrivateSubCommand1_Click()

x=4

y=4

z=6

Callsl(x,y)

Printx+y+z;

Calls2(x,y)

Printx+y+z

EndSub

A.24