VB练习题(上机)含答案

第一部分

1在窗体上添加一个叮嘱按钮（名称为Cmdl,标题为"输出平均值”）。程序运行后，单击叮嘱

按钮完成以下工作：

①随机产生20个0到1000的整数，将其放入一个一维数组中

②求出全部元素的平均值，并显示在窗体上（如下图所示）

PrivateSubCmdl_Click()

Dima%(19),i%,sum!,aver!

Randomize

Fori=0To19

a(i)=Int(Rnd*1001)

sum=sum+a(i)

Nexti

aver=sum/20

Printaver

EndSub

2请在名称为Foiml的窗体上添加一个名称为Textl的文本框和一个名称为Cl、标题为“转换

”的叮嘱按钮，如下图所示。在程序运行时，单击“转换”按钮，可以把Textl中的小写字母转

换为大写，把大写字母转换为小写，其他字符不变。

PrivateSubCl_Click()

DimchAsString,chiAsString,i%

ch=Textl

Fori=1ToLen(ch)

IfAsc(Mid(ch,i,1))>=65AndAsc(Mid(ch,i,1))<=90Then

chi=chi+LCase(Mid(ch,i,1))

Else

chi=chi+UCase(Mid(ch,i,1))

EndIf

Nexti

Textl=Textl+vbCrLf

Textl=Textl+chi

EndSub

3在窗体上添加一个叮嘱按钮(名称为MyCmdl,标题为“输出最大值程序运行后，单击

叮嘱按钮完成以下工作：

①随机产生30个0〜1000的整数，将其放入一个一维数组中

②求出其中的最大值，并显示在窗体上。

PrivateSubMyCmdl_Click()

Dima%(29),i%,max%

Randomize

Fori=0To29

a(i)=Int(Rnd*1001)

Nexti

max=a(0)

Fori=1To29

Ifa(i)>maxThenmax=a(i)

Nexti

Printmax

EndSub

4请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，

单击叮嘱按钮，则对文本框中的文本内容做相应的设置。请编写适当的事务过程，完成上述

功能。

・FOEBI□0B

字体修饰

6宋体口下划线确定

「隶书向斜体

重庆科技学院

PrivateSubCommand1_Click()

IfOption1.Value=TrueThen

Textl.FontName=“宋体”

Else

Textl.FontName="隶书”

EndIf

IfCheckl.Value=1Then

Text!.FontUnderline=True

Else

Text1.FontUnderline=False

EndIf

IfCheck2.Value=1Then

Textl.Fontltalic=True

Else

Textl.Fontltalic=False

EndIf

EndSub

5在名称为Forml的窗体上添加一个名称为Textl的文本框；添加两个标题分别为"对齐方式

“、“字体”，名称分别为Fml、Fm2的框架；在Fml框架中添加三个单选按钮，标题分别为"

左对齐"、"居中"、"右对齐"，名称分别为Optl、Opt2、Opt3；在Fm2框架中添加两个单选按

钮，标题分别为“宋体”、"黑体”，名称分别为Opt4、Opt5o

要求：编写五个单选按钮的Click事务过程，使程序运行时，单击这些单选按钮，可以

对文本框中的内容实现相应的操作（如图所示）。

喜,For>l□0®

对齐方式

「左对齐

「居里

r右对齐

电子信息工程学院

PrivateSubOptl_Click()

IfOptlThenTextl.Alignment=0

EndSub

PrivateSubOpt2_Click()

IfOpt2ThenTextl.Alignment=2

EndSub

PrivateSubOpt3_Click()

IfOpt3ThenTextl.Alignment=1

EndSub

PrivateSubOpt4_Click()

IfOpt4ThenTextl.FontName=“宋体”

EndSub

PrivateSubOpt5_Click()

IfOpt5ThenTextl.FontName=“黑体”

EndSub

6请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数,

然后选择“N的阶乘”或“(N+2)的阶乘”单选钮，即可进行计算，计算结果在右侧文本框中显示。

请编写程序完成上述功能。

Dimn%

PrivateSubFormLoad()

EndSub

PrivateSubOptionl_Click()

Dimi%

n=Vai(Text1)

m=1

Fori=1Ton

m=m*i

Nexti

Text2=m

EndSub

PrivateSub0ption2_Click()

Dimi%

m=1

Fori=1Ton+2

m=m*i

Nexti

Text2=m

EndSub

7在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在

第一个文本框输入一串字符，在其次个文本框中输入一个字符，然后单击“统计”叮嘱按钮，

统计其次个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计

结果在标签Label3中显示。

PrivateSubCommand1_Click()

Dimi%,n%

Fori=1ToLen(Textl)

IfMid(Textl,i,1)=Text2Thenn=n+1

Nexti

Label3=n

EndSub

PrivateSubLabel3_Click()

EndSub

8在窗体上添加一个文本框和一个叮嘱按钮。程序运行后，单击叮嘱按钮，即可计算出0〜

200范围内能被3或7整除的全部整数的和，并显示在文本框中。程序运行界面如下图所示。

PrivateSubCommand1_Click()

Dimi%,sum%

Fori=0To200

IfiMod3=0OriMod7=0Thensum=sum+i

Nexti

Textl=sum

EndSub

PrivateSubTextl_Change()

EndSub

9请设计如下图所示界面(文本框名称为：Txtl,按钮名称为：Cmdl)o程序运行时在文本框

中输入字符串，点击叮嘱按钮，推断文本框中的字符串是否是回文，将推断结果显示在窗体

上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回

文。

PrivateSubCmdl_Click()

DimchAsString

Fori=Len(Txtl)To1Step-1

ch=ch+Mid(Txtl,i,1)

Nexti

IfTxtl=chThen

PrintTxtl+〃是回文〃

Else

PrintTxtl+〃不是回文”

EndIf

EndSub

PrivateSubFormLoad()

EndSub

c1111

10编程实现求Sum=—+—+—+..…”^（n为小于等于2。的整数）。

程序运行界面如下图所示。程序运行时，在文本框中输入n的值，点击“计算”叮嘱按钮,

将计算结果显示在标签上。

PrivateSubCommandl_Click()

Dimi%,mAsLong,sumAsDouble

n=Vai(Textl)

m=1

Fori=1Ton

m=m*i

sum=sum+1/in

Nexti

Label2="sum=〃&sum

EndSub

PrivateSubForm_Load()

EndSub

其次部分

1已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多

少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”叮嘱按钮，在

两个标签框中分别输出鸡和兔的数量。程序运行界面如下图。提示：N22xM的偶数。

运、工X|12

任、月即纯=叵石

乂?白勺妻女：II:月广

/口勺娄攵：』k

11•/?-

PrivateSubCommand1_Click()

m=Val(Textl)

n=Val(Text2)

IfnMod2<>0Then

MsgBox(”脚数必需为偶数”)

Text2=

Text2.SetFocus

y=n/2-m

Ify<0Then

MsgBox("脚数必需>=只数的2倍，请重新输入”)

Text2=

Text2.SetFocus

x=m-y

Label3=x

Label4=y

EndIf

EndIf

EndSub

PrivateSubForm_Load()

EndSub

2若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数例如

153是水仙花数，因为153=1*1*1+5*5*5+3*3*3。编程求出100〜999之间全部的“水仙花

数要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。程序运行

界面如下图。

PrivateSubCommand1_C1ick()

Print”水仙花数：”；

Fori=100To999

XI=iMod10'分别出个位数

X2=(iMod100)\10'分别出十位数

x3=i\100，分别出百位数

Ifi=XI八3+X2八3+x3八3ThenPrinti;

Nexti

EndSub

PrivateSubForm_Load()

EndSub

3编写程序，要求程序运行后，单击“起先”按钮，随机产生20个学生的成果（0〜100的整

数），并在左边图片框中输出（一行5个成果），并在右边图片框中输出平均分和及格的人数,

程序运行界面如下图。

金.Fgl13回区］

2012均分

.

人

数

9420格

8256

267

PrivateSubCommandl_Click()

Dima(lTo20)AsInteger,i%,n%

Picture1.Cis

Picture2.Cls

Fori=1To20

a(i)=Int(Rnd*101)

Picture1.Printa(i);

IfiMod5=0ThenPicture!.Print

Ifa(i)>=60Thenn=n+1

Sum=Sum+a(i)

Nexti

Piclure2.Print”平均分：Sum/20

Picture2.Print;"及格人数:n

EndSub

PrivateSubPicture2_Click()

EndSub

4编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。

PrivateSubForm_Click.()

Fori=1To5

PrintTab(10-i);String(2*i-1,“*”)

Nexti

Fori=1To4

PrintTab(5+i);String(9-2*i,”*")

Nexti

EndSub

5编程实现：在窗体中有一个文本框，一个计时器和两个叮嘱按钮。其功能是：程序的运行

时，单击“起先计数”按钮，就起先计数，每间隔1秒，文本框中的数增加1；单击“停止计数”

按钮，则计数停止。

PrivateSubCommandl_Click()

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

EndSub

PrivateSubForm_Load()

EndSub

PrivateSubTimerl_Timer()

Textl=Val(Textl)+1

EndSub

'在属性窗口设置定时器的interval属性值为1000

6以下程序运行界面如下图所示。其功能如下：

1)单击“读数据”按钮(Commandl),可将随机产生100个三位正整数存到数组a中；

2)单击“计算”按钮(Command2),则依据从组合框Combol中选中的项目，对数组a中的

数据计算平均值，并将计算结果四舍五入取整后显示在文本框Textl中。

题目供应的程序代码不完整，请设计下图界面并录入代码，将程序中的？改为正确的

内容。留意：不能修改程序的其他部分。

x=x+a(i)：j=j+1

Else

y=y+a(i)

?

EndIf

Nextk

题目供应的程序代码：x=Int(x/j+0.5)：y=Int(y/k+

Dima(100)AsInteger0.5)

PrivateSubCommand!Click()z=Int((x+y)/(j+k)+0.5)

DimnAsIntegerSelectCaseCombol.Text

Forn=1To100Case”全部偶数”

a(n)=Int(Rnd*?)Textl=?

NextnCase”全部奇数”

EndSubTextl=?

PrivateSubCommand?Click()Case”全部数”

Dimx&,y&,z&,i%,j%,k%Textl=?

Fori=1To100EndSelect

Ifa(i)Mod?ThenEndSub

Dima(lTo100)AsInteger

PrivateSubCommand1_Click()

DimnAsInteger

Forn=1To100

a(n)=Int(Rnd*900+100)

Nextn

EndSub

PrivateSubCommand2_Click()

Dimx&,y&,z&,i%,j%»k%

Fori=1To100

Ifa(i)Mod2=0Then

x=x+a(i):j=j+1

Else

y=y+a(i):k=k+1

EndIf

Nexti

x=Int(x/j+0.5):y=Int(y/k+0.5)

z=Int((x+y)/(j+k)+0.5)

SelectCaseCombo1.Text

Case”全部偶数”

Textl=x

Case”全部奇数”

Textl=y

Case”全部数”

Textl=x+y

EndSelect

EndSub

，在combol的属性窗口设置list属性，添加列表项

PrivateSubLabell_Click()

EndSub

7编写程序。要求：程序运行后，单击“起先”按钮，则随机产生20个2位数输出到窗体上，每行10个数。

同时对所产生的20个数从小到大排序，将排序后的数再次输出在窗体上。程序运行界面如下图。

■For-l日回国

排序前数圳•排歹（h

73586236377911788373

14478781439688159542

排序后数加排列:

11141536374243475862

73737879818387889596

RTF照］

PrivateSubCommand1_Click()

Dima%(lTo20),i%

Print”排序前数据排列:“

Fori=1To20

a(i)=Int(Rnd*90+10)

Printa(i);

IfiMod10=0ThenPrint

Nexti

Fori=1To20，冒泡排序

Forj=1To20-i

Ifa(j)>a(j+1)Then

t=a(j)：a(j)=a(j+1)：a(j+l)=t

EndIf

Nextj

Nexti

Print”排序后数据排列：”

Fori=1To20

Printa(i);

IfiMod10=0ThenPrint

Nexti

EndSub

PrivateSubForm_Load()

EndSub

8编写程序，程序的功能是：程序运行后，在文本框中输入一串字符，单击标题为“统计”的叮嘱按钮，

分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分别在相应的标签框中

显示。程序运行界面如下图。

♦,Foral(3回区］

abcd+FGHJK=8

大写字母数5

小”字母数W

其他字符数8

rwi

PrivateSubCommand1_Click()

Dimi%,m%,n%»z%

Fori=1ToLen(Textl)

IfAsc(Mid(Textl,i,1))>=65AndAsc(Mid(Textl,i,1))<=90Then

n=n+1

ElselfAsc(Mid(Textl,i,1))>=97AndAsc(Mid(Textl,i,1))<=122Then

m=m+1

Else

z=z+1

EndIf

Nexti

Label2=n

Label4=m

Label6=z

EndSub

PrivateSubForm_Load()

EndSub

9编写程序。程序功能是：程序运行后在文本框中输入一个正整数，单击“推断”按钮，在标签框中输出

“该数是一个素数''或"该数不是一个素数”的信息。程序运行界面如下图。

PrivateSubCommand1_Click()

Dimn%

n=Val(Textl)

Fori=2Ton-1

IfnModi=0ThenLabel1=n&"不是素数":GoTonotm

Nexti

Labell=n&”是素数”

notm:

EndSub

PrivateSubForm_Load()

EndSub

10编写程序，程序的功能是：程序运行后，单击“起先”按钮，在窗体上显示出10个小于100的随机正整

数，单击“查找”按钮，则在窗体的下一行显示出这10个数中的最大的数以及最大数在此数列中的位置号。

程序运行界面如下图。

瓢For.l13叵区।"I

9026783728916362429

最大数是：91位置号是：6

开始Irswi

Dima%(lTo10)

PrivateSubCommand1_C1ick()

Dimi%

Randomize

Fori=1To10

a(i)=Int(Rnd*101)

Printa(i);

Nexti

EndSub

PrivateSubCommand2_C1ick()

Dimmax%,imax%

max=a(l):imax=1

Fori=2To10

Ifa(i)>maxThenmax=a(i):imax=i

Nexti

Print

Print

Print〃最大数是：”:max;Spc(5);“位置号是："；imax

EndSub

PrivateSubForm_Load()

EndSub

第三部分

1在窗体Forml上添加两个文本框，一个“转换”叮嘱按钮和三个单选按钮（名称分别为Optl、Opt2、

Opt3,标题分别为“大小写转换”、“全部大写”、“全部小写”）。程序功能：在上方文本框Textl中输

入一字符串，选中“大小写转换”，单击“转换”按钮后，Text2中显示大小写相反的字符串；选中“全

部大写”，单击转换按钮后，Text2中显示全部大写字符串，选中“全部小写”，单击转换按钮后，Text2

中显示全部小写字符串。程序运行界面如下图。

要求：①请按要求完成窗体界面设计②程序的部分代码已给出如下，但不完整。请录入下面代码,

并将“？”处补充完整。

PrivateSubCommand1_Click()

DimnAsInteger,kAsInteger,chAsString,aAsString

ch"

IfOpt1.Value=TrueThen

n=Len(?)

Fork=1Ton

a=Mid$(Textl,k,?)

Ifa>=Anda<="zuThen

ch=ch+UCase(a)

Elselfa>="A"Andav=Then

ch=ch+LCase(a)

Else

ch=ch+a

EndIf

Nextk

EndIf

IfOpt2.Value=TrueThench=UCase(Textl)

IfOpt3.Value=TrueThench=?(Textl)

Text2=ch

EndSub

答案PrivateSubCommand1_Click()

DimnAsInteger,kAsInteger,chAsString,aAsString

ch”

IfOpt1.Value=TrueThen

n=Len(Textl)

Fork=1Ton

a=Mid$(Textl,k,1)

Ifa>=HaMAnda<=nzuThen

ch=ch+UCase(a)

Elselfa>="A"Anda<=nZnThen

ch=ch+LCase(a)

Else

ch=ch+a

EndIf

Nextk

EndIf

IfOpt2.Value=TrueThench=UCase(Textl)

IfOpt3.Value=TrueThench=LCase(Text1)

Text2=ch

EndSub

PrivateSubForm_Load()

EndSub

2编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个叮嘱按钮。程序运行后，在

左边列表框中选中所须要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。假如单击

“删除”按钮，则删除左边列表框中选中的项目。程序运行时的窗体界面如图。

For、目回区

彻小

斯

奥克

春兰

长虹

PrivateSubCommand1_Click()

List2.AddItemList1.Text

Listl.RemoveltemListl.Listindex

EndSub

PrivateSubCommand2_Click()

Listl.AdditemList2.Text

List2.RemoveitemList2.ListIndex

EndSub

PrivateSubForm_Load()

List1.Additem”美的”

List1.Additem"海尔”

List1.Additem"奥克斯”

Listl.Additem"春兰”

List1.Additem”长虹”

EndSub

3编程实现：单击“输出最大值”按钮，随机产生8个大于或等于10小于100的整数，显示在窗体的

第一行，然后在窗体其次行显示其中的最大值。程序运行时的效果如图。

PrivateSubCommandl_Click()

Dima%(7),i%,max%

Fori=0To7

a(i)=Int(Rnd*90+10)

Printa(i);

Nexti

max=a(0)

Fori=1To7

Ifa(i)>maxThenmax=a(i)

Nexti

Print

Printmax

EndSub

PrivateSubForm_Load()

EndSub

4在Forml的窗体上有一个名称为Textl的文本框和两个叮嘱按钮，叮嘱钮标题分别为“显示A”和“显

示B”。要求程序运行后，如单击“显示A”叮嘱按钮，则弹出对话框，输入要显示的个数，依据输入

的数值在文本框中显示相应数量"A"构成的字符串；如单击“显示B”叮嘱按钮，也弹出对话框，输入

要显示的个数，依据输入的数值在文本框中显示相应数量"B"构成的字符串。程序运行时的窗体界面如

图所示。

PrivateSubCommand1_Click()

n=Val(bipulBox(”请输入显示个数”))

Textl=String(n,"A")

EndSub

PrivateSubCommand2_Click()

n=ValQnputBox("请输入显示个数”))

Textl=String(n,nB")

EndSub

PrivateSubForm_Load()

EndSub

5已知十个数为:67,45,34,28,49,37,87,76,27,83。编程实现：按“起先”按钮，则在窗体的第一行

显示这十个数，在窗体的其次行按从大到小的依次显示这十个数。

PrivateSubCommand1_Click()

Dima(),i%

a=Array(67,45,34,28,49,37,87,76,27,83)

n=UBound(a)

Fori=0Ton

Printa(i);

Nexti

Fori=0Ton-1

Forj=0Ton-1-i

Ifa(j)<a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=t

Nextj

Nexti

Print

Fori=0Ton

Printa(i);

Nexti

EndSub

PrivateSubForm_Load()

EndSub

6界面设计如下图所示，单击“确定”按钮，在文本框中显示一句话，说明用户选择的综合状况。

PrivateSubCommand1_C1ick()

IfOption1.Value=TrueThenxb=Option1.CaptionElsexb=Option2.Caption

IfOption3.Value=TrueThensf=Option3.CaptionElsesf=Option4.Caption

IfCheck1.Value=1Thenah=ah+Check1.Caption+“、”

IfCheck2.Value=1Thenah=ah+Check2.Caption+"、"

IfCheck3.Value=1Thenah=ah+Check3.Caption+"。”

Textl="我是“+xb+sf+”，爱好:"+ah

EndSub

PrivateSubForm_Load()

EndSub

7编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击叮嘱按钮，在窗

体上显示出数组元素中的最大值。

PrivateSubCommandl_Click()

Dima%(3),i%,max%

Fori=0To3

a(i)=Val(Textl(i))

Nexti

max=a(0)

Fori=1To3

Ifa(i)>maxThenmax=a(i)

Nexti

Printmax

EndSub

PrivateSubForm_Load()

EndSub

8编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第一

行显示它们的最大公约数。程序运行界面如下图所示。

PrivateSubCommand1_Click()

Dimm%,n%

m=Vai(Text1)

n=Val(Text2)

Ifn>mThent=n:n=m:m=t

r=mModn

DoWhiler<>0

m=n

n=r

r=mModn

Loop

PrintTextl;"和";Text2;”最大公约数是:"；n

EndSub

PrivateSubForm_Load()

EndSub

9编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一张图片装入到图像框的Picture属性

中，每按一次“放大”按钮时图像放大10%,同理，每按一次“缩小”按钮时图像缩小10%,放大缩

小时均需保持图像的纵横比不变，按“结束程序”按钮则结束程序。程序运行界面如下图。

PrivateSubCommand1_Click()

Image1.Stretch=True

Image1.Width=Image1.Width*1.1

Image1.Height=Image1.Height*1.1

EndSub

PrivateSubCommand2_Click()

Image1.Stretch=True

Image1.Width=Image1.Width*0.9

Image1.Height=Image1.Height*0.9

EndSub

PrivateSubCommand3_Click()

End

EnclSub

PrivateSubForm_Load()

EndSub

10编程实现：在窗体上建立一个文本框(内容如下图所示)，另外建立菜单，一级菜单标题分别为“背

景颜色”，子菜单标题分别为“白色”、“红色”、“绿色”、“蓝色”。程序运行时，假如单击“白色”子菜

单，则将文本框的背景色设置为白色；假如单击“红色”子菜单，则将文本框的背景色设置为红色；假

如单击“绿色”子菜单，则将文本框的背景色设置为绿色；假如单击“蓝色”子菜单，则将文本框的背

景色设置为蓝色。程序运行界面如下图。

•For*l□0®

背景颜色I

白色

红色重庆科技学院是一所全日制公办普通本

绿色科院校，以工为主，以石油、冶金、机

蓝色电为特色，涵盖理、工、经、管、文，

蕴藏着勃勃生机与较大发展潜力的高等

学校.

PrivateSubblue_Click()

Textl.BackColor=vbBlue

EndSub

PrivateSubgreen_Click()

Textl.BackColor=vbGreen

EndSub

PrivateSubred_Click()

Textl.BackColor=vbRed

EndSub

PrivateSubTextl_Change()

EndSub

PrivateSubwhite_Click()

Textl.BackColor=vbWhite

EndSub

第四部分

[Jx+y,(x>0,y>0)

z=4J|%-y|,(x<0,y<0)

1.编程计算分段函数1的值。要求用文本框(TextBox)输入x,y的

0,(其他情况)

值，单击标题为“计算”叮嘱按钮后，利用标签控件上显示Z的值。

PrivateSubCommandl_Click()

x=Val(Textl)

y=Vai(Text2)

Ifx>0Andy>0Then

z=Sqr(x+y)

Elselfx<0Andy<0Then

z=Sqr(Abs(x-y))

Else

z=0

EndIf

Label3=z

EndSub

PrivateSubForm_Load()

EndSub

2、在窗体添加一个叮嘱按钮(标题为“起先”)，单击该按钮，随机产生10个三位数(100-999),在

窗体的第一行这10个三位数，在窗体的其次行输出其中的奇数，在窗体的第三行输出其中的偶数。

PrivateSubCommand1_Click()

Dima%(lTo10),i%

Fori=1To10

a(i)=Int(Rnd*900+100)，随机产生10个100到999的整数

Printa(i);

Nexti

Print

Fori=lTolO

Ifa(i)Mod2<>0ThenPrinta(i);，输稀奇数

Nexti

Print

Fori=1To10

Ifa(i)Mod2=0ThenPrinta(i);,输出偶数

Nexti

EndSub

PrivateSubForm_Load()

EndSub

x2+z2,(x>-10,z<0)

3.编程计算分段函数，一</('<-30,Z〉°)的值。要求用InputBox函数输

y/x-z,(-30<X<-10,X>Z)

入X,Z的值，单击叮嘱按钮(标题为“计算”)后，利用图形框(PictureBox)输出计算结果y。

PrivateSubCommand1_Click()

Picture1.Cis

x=Val(InputBox("输入x的值”))

z=Val(InputBox("输入z的值”))

Ifx>=-10Andz<0Theny=xA2+zA2

Ifx<-30Andz>0Theny=x/z

Ifx>=-30Andx<-10Andx>zTheny=Sqr(x-z)

Picture1.Printy

EndSub

PrivateSubForm_Load()

EndSub

J—-9,>-y>1)

z=<0,(x=0)

4.编程计算分段函数的值。要求用InputBox函数输入x,y的