VB練習題(上機)含答案

第一部分

1在窗體上添加一個叮囑按鈕（名稱為Cmdl,標題為"輸出平均值”）。程序運行后，單擊叮囑

按鈕完成以下工作：

①隨機產(chǎn)生20個0到1000的整數(shù)，將其放入一個一維數(shù)組中

②求出全部元素的平均值，并顯示在窗體上（如下圖所示）

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、標題為“轉(zhuǎn)換

”的叮囑按鈕，如下圖所示。在程序運行時，單擊“轉(zhuǎn)換”按鈕，可以把Textl中的小寫字母轉(zhuǎn)

換為大寫，把大寫字母轉(zhuǎn)換為小寫，其他字符不變。

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,標題為“輸出最大值程序運行后，單擊

叮囑按鈕完成以下工作：

①隨機產(chǎn)生30個0?1000的整數(shù)，將其放入一個一維數(shù)組中

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

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請設(shè)計如下圖所示窗體界面。程序運行時，在選中一個或兩個復(fù)選框和一個單選按鈕時，

單擊叮囑按鈕，則對文本框中的文本內(nèi)容做相應(yīng)的設(shè)置。請編寫適當?shù)氖聞?wù)過程，完成上述

功能。

?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事務(wù)過程，使程序運行時，單擊這些單選按鈕，可以

對文本框中的內(nèi)容實現(xiàn)相應(yīng)的操作（如圖所示）。

喜,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請設(shè)計如下圖所示窗體界面。運行程序時，先向左側(cè)文本框中輸入一個不超過10的正整數(shù),

然后選擇“N的階乘”或“(N+2)的階乘”單選鈕，即可進行計算，計算結(jié)果在右側(cè)文本框中顯示。

請編寫程序完成上述功能。

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在窗體上添加兩個文本框和三個標簽，設(shè)置它們的屬性，達到下圖效果。程序運行時，在

第一個文本框輸入一串字符，在其次個文本框中輸入一個字符，然后單擊“統(tǒng)計”叮囑按鈕，

統(tǒng)計其次個文本框中字符(大小寫被認為是不同的字母)在第一個文本框中出現(xiàn)的次數(shù)，統(tǒng)計

結(jié)果在標簽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范圍內(nèi)能被3或7整除的全部整數(shù)的和，并顯示在文本框中。程序運行界面如下圖所示。

PrivateSubCommand1_Click()

Dimi%,sum%

Fori=0To200

IfiMod3=0OriMod7=0Thensum=sum+i

Nexti

Textl=sum

EndSub

PrivateSubTextl_Change()

EndSub

9請設(shè)計如下圖所示界面(文本框名稱為：Txtl,按鈕名稱為：Cmdl)o程序運行時在文本框

中輸入字符串，點擊叮囑按鈕，推斷文本框中的字符串是否是回文，將推斷結(jié)果顯示在窗體

上。所謂回文是指字符串正序和逆序的結(jié)果相同，如“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編程實現(xiàn)求Sum=—+—+—+..…”^（n為小于等于2。的整數(shù)）。

程序運行界面如下圖所示。程序運行時，在文本框中輸入n的值，點擊“計算”叮囑按鈕,

將計算結(jié)果顯示在標簽上。

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已知在同一個籠子里有總數(shù)M只雞和兔，雞和兔的總腳數(shù)為N只，編程求出雞和兔各有多

少只。要求：程序運行后，在兩個文本框中分別輸入M和N的值，單擊“計算”叮囑按鈕，在

兩個標簽框中分別輸出雞和兔的數(shù)量。程序運行界面如下圖。提示：N22xM的偶數(shù)。

運、工X|12

任、月即純=叵石

乂?白勺妻女：II:月廣

/口勺婁攵：』k

11?/?-

PrivateSubCommand1_Click()

m=Val(Textl)

n=Val(Text2)

IfnMod2<>0Then

MsgBox(”腳數(shù)必需為偶數(shù)”)

Text2=

Text2.SetFocus

y=n/2-m

Ify<0Then

MsgBox("腳數(shù)必需>=只數(shù)的2倍，請重新輸入”)

Text2=

Text2.SetFocus

x=m-y

Label3=x

Label4=y

EndIf

EndIf

EndSub

PrivateSubForm_Load()

EndSub

2若一個3位正整數(shù)中各位數(shù)字的立方和等于該數(shù)字本身，則該數(shù)稱之為“水仙花數(shù)例如

153是水仙花數(shù)，因為153=1*1*1+5*5*5+3*3*3。編程求出100?999之間全部的“水仙花

數(shù)要求：程序運行后，單擊“查找”按鈕，在窗體上顯示找到的“水仙花數(shù)”。程序運行

界面如下圖。

PrivateSubCommand1_C1ick()

Print”水仙花數(shù)：”；

Fori=100To999

XI=iMod10'分別出個位數(shù)

X2=(iMod100)\10'分別出十位數(shù)

x3=i\100，分別出百位數(shù)

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

Nexti

EndSub

PrivateSubForm_Load()

EndSub

3編寫程序，要求程序運行后，單擊“起先”按鈕，隨機產(chǎn)生20個學生的成果（0?100的整

數(shù)），并在左邊圖片框中輸出（一行5個成果），并在右邊圖片框中輸出平均分和及格的人數(shù),

程序運行界面如下圖。

金.Fgl13回區(qū)］

2012均分

.

人

數(shù)

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;"及格人數(shù):n

EndSub

PrivateSubPicture2_Click()

EndSub

4編寫程序?qū)崿F(xiàn)：程序運行時，單擊窗體則顯示如下圖所示的圖案。

PrivateSubForm_Click.()

Fori=1To5

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

Nexti

Fori=1To4

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

Nexti

EndSub

5編程實現(xiàn)：在窗體中有一個文本框，一個計時器和兩個叮囑按鈕。其功能是：程序的運行

時，單擊“起先計數(shù)”按鈕，就起先計數(shù)，每間隔1秒，文本框中的數(shù)增加1；單擊“停止計數(shù)”

按鈕，則計數(shù)停止。

PrivateSubCommandl_Click()

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

EndSub

PrivateSubForm_Load()

EndSub

PrivateSubTimerl_Timer()

Textl=Val(Textl)+1

EndSub

'在屬性窗口設(shè)置定時器的interval屬性值為1000

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

1)單擊“讀數(shù)據(jù)”按鈕(Commandl),可將隨機產(chǎn)生100個三位正整數(shù)存到數(shù)組a中；

2)單擊“計算”按鈕(Command2),則依據(jù)從組合框Combol中選中的項目，對數(shù)組a中的

數(shù)據(jù)計算平均值，并將計算結(jié)果四舍五入取整后顯示在文本框Textl中。

題目供應(yīng)的程序代碼不完整，請設(shè)計下圖界面并錄入代碼，將程序中的？改為正確的

內(nèi)容。留意：不能修改程序的其他部分。

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

Else

y=y+a(i)

?

EndIf

Nextk

題目供應(yīng)的程序代碼：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”全部偶數(shù)”

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

NextnCase”全部奇數(shù)”

EndSubTextl=?

PrivateSubCommand?Click()Case”全部數(shù)”

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”全部偶數(shù)”

Textl=x

Case”全部奇數(shù)”

Textl=y

Case”全部數(shù)”

Textl=x+y

EndSelect

EndSub

，在combol的屬性窗口設(shè)置list屬性，添加列表項

PrivateSubLabell_Click()

EndSub

7編寫程序。要求：程序運行后，單擊“起先”按鈕，則隨機產(chǎn)生20個2位數(shù)輸出到窗體上，每行10個數(shù)。

同時對所產(chǎn)生的20個數(shù)從小到大排序，將排序后的數(shù)再次輸出在窗體上。程序運行界面如下圖。

■For-l日回國

排序前數(shù)圳?排歹（h

73586236377911788373

14478781439688159542

排序后數(shù)加排列:

11141536374243475862

73737879818387889596

RTF照］

PrivateSubCommand1_Click()

Dima%(lTo20),i%

Print”排序前數(shù)據(jù)排列:“

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”排序后數(shù)據(jù)排列：”

Fori=1To20

Printa(i);

IfiMod10=0ThenPrint

Nexti

EndSub

PrivateSubForm_Load()

EndSub

8編寫程序，程序的功能是：程序運行后，在文本框中輸入一串字符，單擊標題為“統(tǒng)計”的叮囑按鈕，

分別統(tǒng)計輸入字符串中大寫字母、小寫字母以及其他字符的個數(shù)，并將統(tǒng)計結(jié)果分別在相應(yīng)的標簽框中

顯示。程序運行界面如下圖。

?,Foral(3回區(qū)］

abcd+FGHJK=8

大寫字母數(shù)5

小”字母數(shù)W

其他字符數(shù)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編寫程序。程序功能是：程序運行后在文本框中輸入一個正整數(shù)，單擊“推斷”按鈕，在標簽框中輸出

“該數(shù)是一個素數(shù)''或"該數(shù)不是一個素數(shù)”的信息。程序運行界面如下圖。

PrivateSubCommand1_Click()

Dimn%

n=Val(Textl)

Fori=2Ton-1

IfnModi=0ThenLabel1=n&"不是素數(shù)":GoTonotm

Nexti

Labell=n&”是素數(shù)”

notm:

EndSub

PrivateSubForm_Load()

EndSub

10編寫程序，程序的功能是：程序運行后，單擊“起先”按鈕，在窗體上顯示出10個小于100的隨機正整

數(shù)，單擊“查找”按鈕，則在窗體的下一行顯示出這10個數(shù)中的最大的數(shù)以及最大數(shù)在此數(shù)列中的位置號。

程序運行界面如下圖。

瓢For.l13叵區(qū)?"I

9026783728916362429

最大數(shù)是：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〃最大數(shù)是：”:max;Spc(5);“位置號是："；imax

EndSub

PrivateSubForm_Load()

EndSub

第三部分

1在窗體Forml上添加兩個文本框，一個“轉(zhuǎn)換”叮囑按鈕和三個單選按鈕（名稱分別為Optl、Opt2、

Opt3,標題分別為“大小寫轉(zhuǎn)換”、“全部大寫”、“全部小寫”）。程序功能：在上方文本框Textl中輸

入一字符串，選中“大小寫轉(zhuǎn)換”，單擊“轉(zhuǎn)換”按鈕后，Text2中顯示大小寫相反的字符串；選中“全

部大寫”，單擊轉(zhuǎn)換按鈕后，Text2中顯示全部大寫字符串，選中“全部小寫”，單擊轉(zhuǎn)換按鈕后，Text2

中顯示全部小寫字符串。程序運行界面如下圖。

要求：①請按要求完成窗體界面設(shè)計②程序的部分代碼已給出如下，但不完整。請錄入下面代碼,

并將“？”處補充完整。

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、目回區(qū)

徹小

斯

奧克

春蘭

長虹

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編程實現(xiàn)：單擊“輸出最大值”按鈕，隨機產(chǎn)生8個大于或等于10小于100的整數(shù)，顯示在窗體的

第一行，然后在窗體其次行顯示其中的最大值。程序運行時的效果如圖。

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”叮囑按鈕，則彈出對話框，輸入要顯示的個數(shù)，依據(jù)輸入

的數(shù)值在文本框中顯示相應(yīng)數(shù)量"A"構(gòu)成的字符串；如單擊“顯示B”叮囑按鈕，也彈出對話框，輸入

要顯示的個數(shù)，依據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量"B"構(gòu)成的字符串。程序運行時的窗體界面如

圖所示。

PrivateSubCommand1_Click()

n=Val(bipulBox(”請輸入顯示個數(shù)”))

Textl=String(n,"A")

EndSub

PrivateSubCommand2_Click()

n=ValQnputBox("請輸入顯示個數(shù)”))

Textl=String(n,nB")

EndSub

PrivateSubForm_Load()

EndSub

5已知十個數(shù)為:67,45,34,28,49,37,87,76,27,83。編程實現(xiàn)：按“起先”按鈕，則在窗體的第一行

顯示這十個數(shù)，在窗體的其次行按從大到小的依次顯示這十個數(shù)。

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界面設(shè)計如下圖所示，單擊“確定”按鈕，在文本框中顯示一句話，說明用戶選擇的綜合狀況。

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編程實現(xiàn)：在窗體上的4個文本框中各輸入一個整數(shù)作為各數(shù)組元素的值，然后單擊叮囑按鈕，在窗

體上顯示出數(shù)組元素中的最大值。

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編程實現(xiàn)：在窗體的兩個文本框中分別輸入一個正整數(shù)，單擊“求最大公約數(shù)”按鈕后，在窗體第一

行顯示它們的最大公約數(shù)。程序運行界面如下圖所示。

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;”最大公約數(shù)是:"；n

EndSub

PrivateSubForm_Load()

EndSub

9編程實現(xiàn)：在窗體的左上角有一個圖像框，通過屬性窗口任選一張圖片裝入到圖像框的Picture屬性

中，每按一次“放大”按鈕時圖像放大10%,同理，每按一次“縮小”按鈕時圖像縮小10%,放大縮

小時均需保持圖像的縱橫比不變，按“結(jié)束程序”按鈕則結(jié)束程序。程序運行界面如下圖。

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編程實現(xiàn)：在窗體上建立一個文本框(內(nèi)容如下圖所示)，另外建立菜單，一級菜單標題分別為“背

景顏色”，子菜單標題分別為“白色”、“紅色”、“綠色”、“藍色”。程序運行時，假如單擊“白色”子菜

單，則將文本框的背景色設(shè)置為白色；假如單擊“紅色”子菜單，則將文本框的背景色設(shè)置為紅色；假

如單擊“綠色”子菜單，則將文本框的背景色設(shè)置為綠色；假如單擊“藍色”子菜單，則將文本框的背

景色設(shè)置為藍色。程序運行界面如下圖。

?For*l□0?

背景顏色I

白色

紅色重慶科技學院是一所全日制公辦普通本

綠色科院校，以工為主，以石油、冶金、機

藍色電為特色，涵蓋理、工、經(jīng)、管、文，

蘊藏著勃勃生機與較大發(fā)展?jié)摿Φ母叩?/p>

學校.

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.編程計算分段函數(shù)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、在窗體添加一個叮囑按鈕(標題為“起先”)，單擊該按鈕，隨機產(chǎn)生10個三位數(shù)(100-999),在

窗體的第一行這10個三位數(shù)，在窗體的其次行輸出其中的奇數(shù)，在窗體的第三行輸出其中的偶數(shù)。

PrivateSubCommand1_Click()

Dima%(lTo10),i%

Fori=1To10

a(i)=Int(Rnd*900+100)，隨機產(chǎn)生10個100到999的整數(shù)

Printa(i);

Nexti

Print

Fori=lTolO

Ifa(i)Mod2<>0ThenPrinta(i);，輸稀奇數(shù)

Nexti

Print

Fori=1To10

Ifa(i)Mod2=0ThenPrinta(i);,輸出偶數(shù)

Nexti

EndSub

PrivateSubForm_Load()

EndSub

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

3.編程計算分段函數(shù)，一</('<-30,Z〉°)的值。要求用InputBox函數(shù)輸

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

入X,Z的值，單擊叮囑按鈕(標題為“計算”)后，利用圖形框(PictureBox)輸出計算結(jié)果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.編程計算分段函數(shù)的值。要求用InputBox函數(shù)輸入x,y的