VB課后習(xí)題答案匯總

課后習(xí)題參考答案

第1章VisualBasic6.0

一、判斷題

1——5：VXVXV6——10：XXJXJ11——13：VXX

二、選擇題

1——5：ADBBB6——10：.CACDB

三、填空題

1、圖片框和框架

2、對(duì)象

3、控件屏幕

4、Load

5、LoadActivate

四、程序設(shè)計(jì)題

1、

PrivateSubCommandl_Click()

PrintText1.Text

EndSub

PrivateSubCommand2_Click()

End

EndSub

2、

PrivateSubCommand1_Click()

Form1.FontSize=Form1.FontSize+3

Print"青春無(wú)悔”

EndSub

PrivateSubCommand2_Click()

FontSize=FontSize-3

Print"青春無(wú)悔”

EndSub

PrivateSubCommand3_Click()

Forml.FontBold=True

Print"青春無(wú)悔”

EndSub

PrivateSubCommand4_Click()

FontBold=False

Print"青春無(wú)悔”

EndSub

3、

PrivateSubCommandl_Click()

Text1.Visible=False

EndSub

PrivateSubCommand2_Click()

Text1.Visible=True

Textl.FontName二"楷體_gb2312”

Text1.FontSize=15

Textl.Text="我學(xué)會(huì)了創(chuàng)建?個(gè)應(yīng)用程序了！”

EndSub

第二章

判斷題：1?5

錯(cuò)錯(cuò)錯(cuò)錯(cuò)錯(cuò)

第3章順序結(jié)構(gòu)程序設(shè)計(jì)

一、思考題略

二、程序閱讀題

1.A=2B=1C=2

2.12

3.BABCBACBC

4.12False

5.1-12-123-1234-

三、選擇題

LB2,D3.B4.B5.D6.C

四、程序設(shè)計(jì)題

1.

Privatesubform_click()

Dimr!,s!

R=val(inputbox(<"r=,))

S=3.14159*r*r

Print"s=”;s

Endsub

2.

Privatesubform_click()

Dimxassingle

X=val(inputbox("x="))

Printfix(x*x*1000)/1000,fix(sqr(x)*1000)/1000

Endsub

第4章選擇結(jié)構(gòu)程序設(shè)計(jì)

一、判斷題

1.錯(cuò)2.錯(cuò)3.錯(cuò)4.錯(cuò)5.對(duì)

二、選擇題

1.A2.D3.A4.B5.A6.A

三、程序閱讀題

1.

X=3y=7

2.

w=4

w=13

w=135

w=31

3.

XJal2Uvw&

4.

129

四、程序填空題

1.

(1)chr(keyascii)(2)chr(keyascii)=,,)M(3)countl=countl-1(4)countl=0

(5)countl>0

2.

(1)max(2)min(3)c>max(4)c<min

3.

(1)xmod3=2andxmod5=3andxmod7=4then

(2)text1.setfocus(3)textl.selstrat=O(4)text1.sellength=len(text1.text)

五、

1.

PrivateSubCommandI_Click()

DimyAsInteger

y=Val(InputBox(ny="))

If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then

Print”是閏年”

Else

Print”不是閏年”

EndIf

EndSub

PrivateSubCommand1_Click()

DimyAsInteger,y1asstring

y=Val(InputBox(“y="))

If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then

Y1二”是閏年”

Else

Y1二”不是閏年”

EndIf

?y，yi

EndSub

PrivateSubCommandl_Click()

DimyAsInteger,ylasstring

y=Val(InputBox(ny=H))

Yl二"不是閏年”

If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then

Yl二”是閏年”

EndIf

?y，yi

EndSub

PrivateSubCommandl_Click()

Dima%,b%?c%,x!,s!

a=Val(InputBox(na=H))

b=Val(InputBox(nb="))

c=Val(InputBox(nc=n))

Ifa+b>cAnda+c>bAndb+c>aThen

x=(a+b+c)/2

s=Sqr(x*(x-a)*(x-b)*(x-c))

Print"s=H;s

Else

Prim”不是三角形，重輸a,b,cH

EndIf

EndSub

PrivateSubCommand1_Click()

Dima%,b%,c%,x!,s!,t%

a=Val(InputBox(Ha=u))

b=Val(InputBox(ub=n))

c=Val(InputBox("c="))4a,b,c=3,4,5

t=0

Ila+b>cAnda+c>bAndb+c>aThen

x=(a+b+c)/2

s=Sqr(x*(x-a)*(x-b)*(x-c))

t=l

EndIf

Ift=0then

?”不是“

endif

EndSub

PrivateSubCommandl_Click()

Dimx!,y!

x=Val(InputBox(,,x=n))

y=x*x-x-x

Ifx<0Andx<>-3Then

y=x*x+x-6

Elself0<=xAndx<10Andx<>2Andxo3Then

y=x*x-5*x+6

EndIf

Print"x="；x,"y=n;y

EndSub

PrivateSubCommandl_Click()

Dimx!,y!

x=Val(InputBox(Hx=n))

Ifx<0Andx<>-3Then

y=x*x+x-6

elself0<=xAndx<10Andxo2Andx<>3Then

y=x*x-5*x+6

else

y=xA2-x-l

EndIf

Print"x=";x,ny=n;y

EndSub

Privatesubform_click()

Dimy%,z%,dj%,p!,t!

Y=val(inputbox(“月”))

Z=val(inputbox(“訂票數(shù)”))

Dj=val(inputbox(“票價(jià)”))

Selectcasey

case7,8,9

Ifz>=20thenp=0.15elsep=0.05

case1to5,10,11

Ifz>20thenp=0.3elsep=0.2

Caseelse

P=0.2

Endselect

T=z*dj*p

?t

endsub

5.

privatesubform_click()

dimm1%,m2%,m3%,dj$

m1=val(inputbox("ml=n)):m2=val(inputbox("m2=")):m3=val(inputbox(um3=,))

if(m1+m2+m3)/3>=95or(a=100andb=100andc>=80)or(a=100andc=100andb>=80)or(c=100

andb=100anda>=80)then

dj二"一等”

elseif(m1+m2+m3)/3>=90or(a=100andb>=75andc>=75)or(b=100anda>=75andc>=75)or

(c=100andb>=75anda>=75)then

dj二"二等”

elseifa>=75andb>=75andc>=75then

dj二"三等”

else

可二，，沒(méi)有，，

endif

?“dj，dj

endsub

第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

1.判斷題

XVVVXXVX

2.選擇題

BBBBCC

3.填空題

(1)7

(2)Do/LoopFor/NextWhile/Wend

(3)-36

4.程序閱讀題

(1)88⑵1234

6886Sum=10

468864

24688642

(3)4######

#####

####

###

##

#

5.程序填空題

(1)①sign=l②Fori=2to19

(2)①Len(strl)②length-1③Mid(strl,i,2)(4)Sum=0

⑶①I(mǎi)mod7=5andiMod5=3AndiMod3=2②i<1000

(4)?last_one=last_two(2)last_two=this_one@i=i+l@i-2

(5)①I(mǎi)>int(sqr(m))②Int(Sqr(n-m))

6.編程題

(1)

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

DimsAsDouble,SumAsDouble

s=1

Sum=0

Fori=1To11Step2

Forj=IToi

s=s*j

Nextj

Sum=Sum+s

Nexti

PrintSum

EndSub

(2)

PrivateSubForm_Click()

Dimm%,n%,mn%,r%?t%

m=Val(InputBox("m=u))

n=Val(InputBox(nn=n))

Ifn<=0Orm<=0Then

MsgBox”數(shù)據(jù)有誤”

End

EndIf

mn=m*n

Ifm<nThen

t=m:m=n:n=t

EndIf

DoWhile(no0)

r=mModn:m=n:n=r

Loop

Forml.Print”最大公約數(shù)二”;m

Forml.Print”最小公倍數(shù)二”;mn/m

EndSub

(3)

PrivateSubForm_Click()

Dimi%,j%

Fori=1To5

PrintSpc(20-i);

Forj=1To2*i-1

PrintTrim(Str(i));

Nextj

Print

Nexti

Fori=4To1Step-1

PrintSpc(20-i);

Forj=1To2*i-1

PrintTrim(Str(10-i));

Nextj

Print

Nexti

EndSub

(4)

PrivateSubForm_Click()

DimxAsInteger

DimyAsInteger

DimzAsInteger

Forx=0To100

Fory=0To100-x

z=100-x-y

If5*x+3*y+z/3=100ThenPrintx,y,z

Nexty

Nextx

EndSub

(5)

PrivateSubForm_Click()

DimxAsSingle,yAsSingle,aAsSingle,iAsInteger

x=Val(InputBox("輸入x:"))

a=1:y=a:i=0

Whilea>=0.00001

i=i+l:a=a*x/i:y=y+a

Wend

Printuy=u;y

EndSub

第六章答案

一、判斷題

1.錯(cuò)

2.錯(cuò)

3.錯(cuò)

4.錯(cuò)(可以為小數(shù)，不過(guò)仍然是當(dāng)作整數(shù)來(lái)處理)

5.錯(cuò)

6.錯(cuò)

二、選擇題

1.C

2.C

3.A

4.D

三、程序填空

1.(1)N4(2)T=A(J):A(J)=A(J+1):A(J+A=T(3)PrintA⑴

2.(1)a(i,i)=1(2)Print

四、程序閱讀

1.5

2.

1234

1234

1234

1234

1111

2222

3333

4444

3.(前面空4個(gè)空格)

1121110

213169

314158

4567

第7章過(guò)程

判斷題：

1、對(duì)2、錯(cuò)3、錯(cuò)4、錯(cuò)5、對(duì)6、對(duì)7、錯(cuò)

選擇題：

1.B2、D3、D4、C5、A

程序閱讀題：

1、y=5a=52、n=1z=4

y=15a=10n=2z=7

y=30a=15n=3z=10

3、32644、222

1664

864

464

5、Al=10Bl=20

A2=20B2=10

程序填空題：

1>(1)hwstring(str)(2),,n(3)AsBoolean

(4)n=len(strtxt)(5)True(6)False

2.(1)Xsch(Nman,Nkcen)(2)n

(3)sum=sum+x(i,j)(4)tt/n(5)x(i,m+1)v1.2*venandx(i,m+1)>=LI*ver

3.(1)number(i)(2)ByvalnasInlcgcr(3)number=number+7*10八(i-1)

4.(1)temp=l(2)4mp(3)nFactoKi)(4)sum

程序設(shè)計(jì)題：

1、具體程序?yàn)椋?/p>

FunctionMaxnum(ByRefa()AsInteger,ByVainAsInteger)AsInteger

DimiAsInteger

Maxnum=a(l)

Fori=2Ton

Ifa(i)>MaxnumThenMaxnum=a(i)

Nexti

EndFunction

FunctionAvenu(ByRefa()AsInteger,ByVainAsInteger)AsSingle

DimiAsInteger,sumAsInteger

Fori=1Ton

sum=sum+a(i)

Nexti

Avenu=sum/n

EndFunction

SubSortrnum(ByRefa()AsInteger,ByVainAsInteger)

DimiAsInteger,jAsInteger,kAsInteger

DimtempAsInteger

Fori=1Ton

k=i

Forj=i+1Ton

Ifa(k)>a(j)Thenk=j

Nextj

IfiokThen

temp=a(i)

a(i)=a(k)

a(k)=temp

EndIf

Nexti

EndSub

PrivateSubForm_Click()

Dimb(10)AsInteger,iAsInteger

Fori=1To10

b(i)=InputBox(”請(qǐng)輸入整數(shù)”，“輸入”)

Nexti

CallSortrnum(b(),10)

Print”從小到大排序?yàn)椋骸?/p>

Fori=1To10

Printb(i);

Next

Print

Print"最大數(shù)為：”;Maxnum(b(),10)

Print"平均數(shù)為：";Avenu(b(),10)

EndSub

2、具體程序?yàn)椋?/p>

Functionfe(n%,x!)AsSingle

DimtempAsSingle,iAsInteger

fe=1

temp=1

Fori=1Ton

temp=temp*x/i

fe=fe+temp

Nexti

EndFunction

PrivateSubForm_Click()

DimnAsInteger,xAsSingle

n=Val(InputBox(“請(qǐng)輸入n”,“輸入”))

x=Val(InputBox("請(qǐng)輸入輸入”))

Print”e的值為：H;fe(n,x)

EndSub

3、具體程序?yàn)椋?/p>

Subsort(a()AsSingle,nAsInteger)

DimiAsInteger,jAsInteger,kAsInteger

DimtempAsSingle

Fori=1Ton

k=i

Forj=i+1Ton

Ifa(k)<a(j)Thenk=j

Nextj

IfiokThen

temp=a(i)

a(i)=a(k)

a(k)=temp

EndIf

Nexti

EndSub

PrivateSubForm_Click()

Dima(10)AsSingle,iAsInteger

Fori=1To10

a(i)=Val(InputBox("請(qǐng)輸入數(shù)據(jù):,輸入"))

Nexti

Callsort(a(),10)

Print”從大到小為：”

Fori=1To10

Printa(i);

IfiMod5=0ThenPrint

Nexti

EndSub

第8章常用控件

參考答案：

一、判斷題

1、X2、X3、J4、J5、X6、X7、X8、義9、X10、X

11、X12、V13、X14、V15、V

二、單選題

1、A2、B3、A4、C5、B6、D7、A8、B9、C10、C

IkA12、A13、C14、B15、A

三、填空題

1>AutosizeWordwrap2、EnabledVisible3、文本框和列表框

4、拖動(dòng)滾動(dòng)框5、Change6^Command1.Setfocus7、Timer

8、MaxLength9>Addltem10、定時(shí)器屏蔽

四、程序閱讀題

1、w=42、463789

w=13

w=135

w=31

3、李r4、23451

蘋(píng)果34512

橘子

葡萄

柚子

香焦

5.——

6

15

28

45

五、程序填空題

1、⑴Label1.left(2)-Label1.Width

2、(1)Listl.ListIndex<0(或者List1.Listindex=-1)(2)List1.RemoveitemList1.Listindex

(3)Text1.Text="”(4)List1.AddltemText1.Text

3、(1)1to2*1-1(2)Command2.Enabled=True

(3)Command2.Enabled=False

4、(1)ndecoO(2)ndecmod16(3)ai=ndec

(4)end(5)ai&shex(6)shex

5>(1)Timerl.Enabled=True(2)x\3600(3)(x-h*3600)\60

(4)x=x+1

6、(1)m<len(strl)/2(2)mid(strl,m+1,1)(3)mid(strl,len(str

六、程序設(shè)計(jì)題

1、PrivateSubCommandl_Click()

IfTextl.Text=nnThen

MsgBox"請(qǐng)先輸入添加項(xiàng)"

Else

Listl.AdditemTextl.Text

EndIf

EndSub

PrivateSubCommand2_Click()

IfListl.Listlndex<0Then'或者iflistl.listindex=-lthen

MsgBox"請(qǐng)選擇一刪除項(xiàng)"

Else

Listl.RemoveitemListl.ListIndex

EndIf

EndSub

PrivateSubCommand3_Click()

IfListl.Listindex<0Then

MsgBox"請(qǐng)選擇一修改項(xiàng)”

Else

Textl.Text=Listl.Text

EndIf

Command4.Enabled=True

EndSub

PrivateSubCommanci4_Click()

DimaAsInteger

IfListl.Text=Textl.TextThen

MsgBox”請(qǐng)先修改此項(xiàng),，

Else

a=Listl.Listlndex

Listl.RemoveItemListl.Listindex

Listl.AdditemTextl.Textza

EndIf

EndSub

PrivateSubForm_Load()

Command4.Enabled=False

EndSub

2>DimaAsInteger

PrivateSubCommandl_Click()

a=Int(Rnd*100)+1

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

StaticiAsInteger

IfKeyAscii=13Then

IfVai(Text1.Text)>aThen

Labell.Caption=”太大了，請(qǐng)重輸”

i=i+1

ElselfVai(Textl.Text)=aThen

Labell.Caption="恭喜你，你答對(duì)了！”

i=0

Commandl_Click

Else

Labell.Caption="太小了，請(qǐng)重輸！”

i=i+1

EndIf

Ifi>10Then

MsgBox”你失敗了！”

End

EndIf

EndIf

EndSub

3、

PrivateSubCommandl_Click()

DimnAsInteger:n=Len(Textl.Text)

Dims(1To1000)AsString,iAsInteger,jAsInteger,tAsString,

aAsString

Fori=1Ton

s(i)=Mid(Trim(Text1.Text),i,1)

Nexti

Fori=1Ton-1

Forj=i+1Ton

Ifs(i)>s(j)Then

t=s(i):s(i)=s(j):s(j)=t

EndIf

Nextj,i

Fori=1Ton:a=a+s(i):Nexti

Printa

Commandl.Enabled=False:Command2.Enabled=True

EndSub

PrivateSubCommand2_Click():End:EndSub

PrivateSubForm_Load()

Textl.MaxLength=200

Command2.Enabled=False:Commandl.Enabled=True

EndSub

Dima(1To1000)AsString,b(1To1000)AsString,c(1To1000)AsDouble,

d(1To1000)AsDouble

PrivateSubCombol_click()

Textl.Text=a(Combol.Listindex+1)

Text2.Text=b(Combol.Listindex+1)

Text3.Text=c(Combol.Listindex+1)

Text4.Text=d(Combol.Listlndex+1)

EndSub

PrivateSubCommandl_Click()

Combol.AdditemTextl.Text

a(Combol.ListCount)=Textl.Text

b(Combol.ListCount)=Text2.Text

c(Combol.ListCount)=Vai(Text3.Text)

d(Combol.ListCount)=Vai(Text4.Text)

EndSub

PrivateSubCommand2_Click()

Fori=Combol.ListIndex+1ToCombol.ListCount-1

a(i)=a(i+1)

b(i)=b(i+1)

c(i)=c(i+1)

d(i)=d(i+1)

Nexti

a(i)=nn

b(i)=nn

c(i)=0

d(i)=0

Combol.RemoveitemCombol.ListIndex

Textl.Text=

Text2.Text=

Text3.Text=

Text4.Text=

EndSub

PrivateSubForm_Load()

DimiAsInteger

Combol.Addltem"張三"

Combol.Addltem"李四”

Combol.Addltem“王五”

a(1)="張三”：a(2)="李四”：a(3)=”王五”

b(l)=”浙江林學(xué)院“：b(2)="浙江工業(yè)大學(xué)”：b(3)="浙江大學(xué)”

c(l)=311300:c(2)=310027:c(3)=310014

d(l)=63742212:d(2)=88394277:d(3)=88326531

EndSub

PrivateSubCheckl_Click()

IfCheckl.Value=1Then

Labell.FontBold=True

Else

Labell.FontBold=False

EndIf

EndSub

PrivateSubCheck2_Click()

IfCheckl.Value=1Then

Labell.Fontltalic=True

Else

Labell.Fontltalic=False

EndIf

EndSub

PrivateSubOptionl_Click()

Labell.FontName="宋體”

EndSub

PrivateSubOption2_Click()

Labell.FontName="楷體_gb2312”

EndSub

PrivateSubCommandl_Click()

DimaAsString,iAsInteger,nAsInteger

DimsAsInteger,qAsInteger,1AsInteger

n=Len(Text1.Text)

Fori=1Ton

a=Mid(Textl.Text,i,1)

Ifa>="a”Anda<="znThen

s=s+1'大寫(xiě)個(gè)數(shù)

Elselfa>="A"Anda<=nZ"Then

q=q+11小寫(xiě)個(gè)數(shù)

Elselfa>="0"Anda<="9"Then

1=1+1

EndIf

Nexti

Text2.Text=s

Text3.Text=q

Text4.Text=1

EndSub

PrivateSubForm_Load()

Text1,SetFocus

EndSub

PrivateSubForm_Click()

DimiAsInteger,jAsInteger,tAsInteger

Fori=0ToListl.ListCount-1

List3.AdditemListl.List(i)

Nexti

Listl.Clear

DoWhileList2.ListCount

List3.AdditemList2.List(0)

List2.Removeitem0

Loop

Fori=0ToList3.ListCount-2

Forj=i+1ToList3.ListCount-1

IfList3.List(i)>List3.List(j)Then

t=List3.List(i):List3.List(i)=List3.List(j):List3.List(j)

=t

EndIf

Nextjti

EndSub

PrivateSubForm_Load()

DimiAsIntegerfnAsInteger

n=InputBox(nn)

Fori=1Ton

Listl.AdditemInt(Rnd*90)+10

List2.AdditemInt(Rnd*90)+10

Nexti

EndSub

第9章對(duì)話(huà)框和菜單

1.判斷題：xJJ（題中應(yīng)把flag改為flags）JJ

xxVVxxxVxx

2.選擇題：DDCCDBDCCB

3.填空題

1.-

2.一級(jí)子菜單

3.將頂級(jí)菜單設(shè)置為不可見(jiàn)

4.popupmenupmenu,0,x,y

5.showfont

6.工程、部件

7.click

8.代碼窗口，click

9.下拉式，彈出式

打開(kāi)/另存為、顏色，字體、打印、幫助

4.程序閱讀題

打開(kāi)對(duì)話(huà)框

2、*.txt

3、allfiles

*.exe

*.txt

*.doc

4、Checking,NoFileSelectd,重試(R),取消

5.程序填空題

“c:\winnt”

commondialog1.showopen,

loadpicture(commondialogl.filename)

6.程序設(shè)計(jì)題

1、界面如圖:

代碼如下：

PrivateSubCommand1_Click()

CommonDialog1.FileName=""

CommonDialog1.Flags=4096

CommonDialogl.Action=1

IfCommonDialogl.FileName=',nThen

MsgBox"NoFileSelectd",5+vbExcla

Else

List1.AdditemCommonDialog1.FileName

EndIf

EndSub

2、

代碼如下：

PrivateSuba_Click()

CommonDialog1.ShowColor

Text1.ForeColor=CommonDialog1.Color

EndSub

PrivateSubb_Click()

CommonDialogl.Flags=1

CommonDialog1.ShowFont

Text1.FontSize=CommonDialogl.FontSize

EndSub

PrivateSubc_Click()

CommonDialogl.Flags=1

CommonDialogl.ShowFont

Textl.FontName=CommonDialog1.FontName

EndSub

PrivateSubd_Click()

End

EndSub

第10章圖形操作和圖形控件

一、判斷題

XVXXXVXVXX

二、選擇題

BAADACAA

三、填空題

(1)pic1.Circle(picl.ScaleLeft+picl.ScaleWidth/2,picl.ScaleTop+picl.ScaleHeight/2),700

(2)在圖片框picturel中，以(800,1000)為圓心畫(huà)一個(gè)半徑為500的圓

(3)Forml.Scale(-200,250)-(300,-100)

(4)Autosizestretch

四、程序閱讀題

1、窗體寬和高的1/4為起點(diǎn)，畫(huà)一個(gè)邊長(zhǎng)為1000的正方形，并畫(huà)出其正向?qū)蔷€(xiàn)

2、在圖片框中交替畫(huà)出實(shí)心和空心的矩形，空心矩形是黃色邊框。實(shí)心矩形是黃色邊框，黑色填

充。

五、程序填空題

1、

(1)Screen.Width

(2)Screen.Height

⑶X

(4)Y

2、

(5)Picture1.ForeColor=CommonDialog1.Color

(6)Picture!.CurrentX=X

(7)Picture1.CurrentY=Y

(8)Picture1.Line-(x,y)

六、程序設(shè)計(jì)題

(1)

PrivateSubForm_Click()

ConstPi=3.1415926

DimiAsSingle

Form1.Scale(0,1)-(2*Pi,-1)

Form1.Line(0,0)-(2*Pi,0)

Form1.Line(0,-1)-(0,1)

Fori=0To2*PiStep0.0001

Forml.PSet(i,Sin(i))

Nexti

EndSub

(2)

PrivateSubForm_Click()

DimrAsSingle,xAsSingle,yAsSingle

x=Form1.ScaleWidth/2

y=Forml.ScaleHeight/2

r=x

Ifr>yThenr=y

Forml.Circle(Forml.ScaleLeft+Form1.ScaleWidth/2,Forml.ScaleTop+Forml.ScaleHeight/2),r,

vbBlue,-2*3.14,-3.14

EndSub

PrivateSubForm_Load()

Forml.DrawWidth=22磅，題目不對(duì)，起碼為1磅以上的整數(shù)

Forml.FillStyle=0，接上，堤的刻度在寬度中一般不用

Form1.FillColor=vbRed

EndSub

(3)

PrivateSubPicturel_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Picture1.FillStyle=0

Picture1.FillColor=vbGreen

Picture1.Line(XI,yl)-(X,Y),vbRed,B

EndSub

第11章文件

一、判斷題

1------5：XJJJX6------10：VVXXX

二、選擇題

1------5：ABBAD6------10：DCAAD

三、程序閱讀題

］、------------------------------4、

結(jié)果：

結(jié)果：

print:

5

ABC

10

1234567,abcdefg

15

nwrite:"

20

"A'V'B"V'C"

25

“1234567,abcdefg”

30

35

2、40

結(jié)果：45

y=5a=550

y=15a=1055

y=30a=1560

65

70

75

80

3、85

窗體