VB難點個人總結

在

考

文

快

在

臃酢

珥

中

蜂

壽

選

城

生

特.

C2XJ了

j一

Jpj冽

中

一

選

蟀

T<若<

幡

二

中

jrjt若

。4.vb

靜

序

塔

時1

r按

，

目

露

如

的

兀

寡

項

匚

圖

.耳

把

Li則Li

項

st篇st

到

這

l一

>事

城

松

示

本

中

市

”

ST選

偉I}

些is

“

所t2

示

圖

顯e

蒜

強

但

所

了

給

H鼠

出.IU

要

求.

掉著

中

的注

釋符

爵

后

中的

使

去?

請

，

序

部分

來

能

修改

中

運

聾

程

存

，

文

文件

和窗

件

工

保

。

待選城市選中城市待選城市選中城市

北京

武漢

廣州

上海I已經(jīng)選牛

天津

重慶武漢n

南京

顯示

選中

圖1圖2

PrivateSubCommand1_Click()

Dimk%

Fork=Listl.ListCount-1To0Step-1

IfListl.Selected(k)=TrueThen

List2.AddItemUst1.List(k)

Listl.Removeitemk

EndIf

Nextk

EndSub

PrivateSubCommand2_Click()

Dimk%

Textl="已經(jīng)選中的城市有："

Fork=0ToList2.ListCount-1Step1

Textl=Text1.Text&""&List2.List(k)

Nextk

EndSub

fun=s

第二套第五題

CallReadDatal

CallReadData2

CallWriteDataLdataout.dat",sum)

EndSub

第三套第五題

'綠注野福蠹廬襄文件夾”均為K:\k64\26005904

髓鍛肝藏荔群簫端卦露體聶"僑題分別是

是Labeli

Label2,標題分別為“最長單祠的長度為”和“以徹丁=…一_次__出__現(xiàn)__I

單詞是“；再畫二個名稱令別為Textl和Text2,初始值為空的文本框，如

圖所示。捷存功熊如下：

1）如委革出“裱數(shù)患”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容談到

爹亶s中（此過程百緒出）；

2）疝果堇擊“統(tǒng)計”按鈕，則自磴二:.............................

母和空格，而空格是用來分隔術同單詞的）.........一,

in5.dat中最后一個以寰長度出現(xiàn)的單詞，并將該單詞的長度顯示在

Text1文本框內(nèi)，將該單詞顯示在Text2文本框內(nèi)。

“讀數(shù)般”金（技鈕的Click賽住過程己經(jīng)給出，請為“統(tǒng)計”命令按鈕

編寫適當?shù)氖录^程，實現(xiàn)上述功能。

注專.

罷生不獴修改窗體文件中已經(jīng)存在的控件和程序，在結束程序運.之前,

必須進發(fā)代統(tǒng)計，且必須通過單擊窗體右上鬲尾的碣“關閉”按鈕如結結束束:建序，

否則無成績。最后，程序按原文律名存盤。

要填的代碼:原代碼很難懂吧！

PrivateSubCommand2_Click()

DimIAsInteger,s1AsString,kAsInteger,s2As

String

DimiAsInteger,bAsBoolean

Fori=1ToLen(s)

s1=Mid(s,i,1)

Ifs1<>""Andb=FalseThen

b=True

1

k=i

Elselfs1<>""AndbThen

1=1+1

Elselfs1=""AndbThen

b=False

IfLen(Mid(s,k,I))>Len(s2)Thens2=Mid(s,k,

I)

EndIf

Nexti

Textl.Text=Len(s2)

Text2.Text=s2

EndSub

老師給的代碼:

PrivateSubCommard2Click()

DimMaxstrAsStriria

Fori=1ToLer(s)

c=Mid(s,i,1)

Ifc<>""Then

s1=s1&c

Else

IfLen(s1)>Len(Maxstr)Then

Maxstr=s1

EndIf

s1=

Next

TextLText=Len(Maxstr)

Text2.Text=Maxstr

EndSub

第四套：

（2）在考生文件夾下直一個工程文件sjt4.vbp,請在Forml窗體上建立一個名

稱為Opl的單選接軌數(shù)組，含有三個單選按鈕，其標題分別為“10!”、

“111!!”'、“12!”,Index屬性分別為0、1、2；再畫一個名稱為C1的

龕令令按接鈕鈾.標題為“計算：：畫二f名稱初'extlf）艾楚，如圉所示。

住蔚功春曉在選定一個單選按鈕亍

?擊“計算”按鈕后，可以計算出

位的階乘值，在Textl中顯示該監(jiān)直。請畫出上述控件并編寫座序。

考生不得修改工程中己名贊W可容，在結束程序運行之前，必須進

行一次廿富。必須通過單擊右上角的關閉接鈕結束程序，否則無

成績。最后按原文件名存盤。

要寫的代碼：

PrivateSubc1_Click()

DimsAsSingle,iAsInteger

DimkAsInteger

s=1

Ifop1(0).ValueThen

k=10

Elselfop1(1).ValueThen

k=11

Else

k=12

EndIf

Fori=1Tok

s=s*i

Nexti

Textl.Text=s

EndSub

PrivateSubForm_Unload(CancelAsInteger)

unload_sub

EndSub

第四套：第五題

在考生文件夾察I其窗體上個文本框名稱

?

P一

-

」，<■話

T

5.

vb的通用對還三個

-

為可稱為C框命今

?;寡

F件

.

Te

1,

，D1“打開文”“換“

鈕名2財標為

xt

按變C

,

〃及翳、'

存盤按，

鈕的文例文個蠢日打開文話框默認開

翦B，

型A的文及

內(nèi)為二寓擇關i后

的宙S下，

容”中的寫文字

顯奐xt央

e

春口需一X畬

大寫盤芟執(zhí)蟠機

z

.“

體，避序刈朝

5.

在中己里da

ex

窗肇，，ut

切馨矗J巴巴內(nèi)

IT匕

L

-4

5

?^

1)分

有科B

t

E匕

保l

雌^

cli

*b

2)鈕

注號的，t厚

一一o

電

ck

意一-

W

.

考.生不費

修改己的普:瞿控畬的屬性區(qū)須生文二下的

t

,

X

,

in

文件進仃把果過“存盤”按入考件夾下5.的

棒則成L:

中，否無績二

。

t5

OU

at

.d

ml

■For

代碼：

k()

_Clic

bC1

teSu

Priva

tring

AsS

Dima

d

|Wor

|*.txt

文件

|文本

|*.*

文件

"所有

r=

.Filte

CD1

c"

|*.do

文件

=2

dnx

erln

.Filt

CD1

1

n=

Actio

CD1.

#1

utAs

rInp

eFo

Nam

1.File

CD

Open

,a