VB考试代码含附加题Word文件下载.docx

VB考试代码含附加题Word文件下载.docx

《VB考试代码含附加题Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB考试代码含附加题Word文件下载.docx（10页珍藏版）》请在冰豆网上搜索。

"

我的第一个vb程序设计，哈哈！

Text1.FontSize 

24

Text1.FontName 

宋体"

End 

Sub

Command2_Click（）

Timer1.Enabled 

True

Command3_Click（）

False

Timer1_Timer（）

Text1.ForeColor 

RGB（Rnd 

* 

255, 

Rnd 

255）

Sub

三、

Label1_Click（）

If 

Label1.Width 

<

Form1.Width 

Then

Label1.FontSize 

+ 

10

If

四、

PrivateSubCheck1_Click（）

IfText1.FontBold=FalseThen

Text1.FontBold=True

Text1.FontBold=False

PrivateSubCheck2_Click（）

IfText1.FontItalic=FalseThen

Text1.FontItalic=True

Text1.FontItalic=False

PrivateSubCheck3_Click（）

IfText1.FontUnderline=FalseThen

Text1.FontUnderline=True

Text1.FontUnderline=False

Option1.Value=1

PrivateSubOption1_Click（）

Text1.Font="

PrivateSubOption2_Click（）

楷体"

PrivateSubOption3_Click（）

黑体"

五、

Text1.Text 

Text2.Text 

Select 

Case 

Val（Text1.Text） 

'

直接根据Text1中用户输入的值来判断

Is 

60

不及格"

60 

To 

84

及格"

85 

100

优秀"

Select

六、

注意：

1.计时器的enabled为true2.Interval为500或者1000

Label1.Caption=Date'

显示当前日期

Label2.Caption=Time'

显示当前时间

PrivateSubTimer1_Timer（）

七、

Image3.Picture=Image2.Picture

Image2.Picture=Image1.Picture

Image1.Picture=Image3.Picture

PrivateSubCommand2_Click（）

Timer1.Enabled=True

八、

i=Text1

SelectCaseiMod2

Case1

Text2="

奇数"

Case0

Text2="

偶数"

EndSelect

九、

a=Val（Text1）

b=Val（Text2）

Sum=0

Fori=aTob

Sum=Sum+i

Next

Text3=Sum

十、

Command1_Click（Index 

As 

Integer）

Index

Label1.BackColor 

Command1（0）.BackColor

Label1.Caption 

Command1（0）.Caption

1

Command1

（1）.BackColor

Command1

（1）.Caption

2

Command1

（2）.BackColor

Command1

（2）.Caption

这是一个控件组，控件设置要复制粘贴。

十一、

IfText1="

Text1="

vb期末测试"

vb期末测试"

Text1.Visible=False

label1.Visible=True

label1.Caption="

十二、

Sum=o

Fori=200To900

IfiMod5=3AndiMod7=5AndiMod9=7Then

Printi

EndIf

Nexti

PrintSum

EndSub

十三、

Fori=100To800

Gw=imod10

Sw=i\10mod10

Bw=i\100mod10

Ifgw*sw*bw>

gw+sw+bwthen

C=c+i

Endif

Nexti

Printc

十四、

Fori=0To9

Forj=0To9

Fork=0To9

Forz=0To9

Ifi^2+j^2+k^2+z^2=115Then

c=c+1

Nextz

Nextk

Nextj

Endsub

十五、

Fors=0To9

Ifi^2+j^2+k^2+z^2+s^2=120Then

Nexts

Print（i*10000+j*1000+k*100+z*10+s）;

Max

十六、

Fori=4000To7000

gw=iMod10

sw=i\10Mod10

bw=i\100Mod100

qw=i\1000Mod1000

Ifgw=qwAndsw=bwThen

十七、

Dima（1To30）

a

（1）=1

a

（2）=1

Fori=3To30

a（i）=a（i-1）+a（i-2）

Printa（30）

十八、

Fori=5To11

Forj=5To8

Fork=5To7

If2*i+5*j+10*k=100Then

十九、

Fori=1To9

Forj=0To9

Fork=0To9

Ifi*100+j*10+k+k*100+j*10+i=1131Then

Printi*100+j*10+k

Nextk

Nextj

二十、

For 

i 

1 

9

j 

0 

k 

100 

10 

Print 

k

Next 

j

i

二十一、

Sum 

99

Sqr（i） 

Sum

Round（Sum, 

2）

附加题

PrivateSubCommand1_Click（）'

正弦

DimxAsSingle,yAsSingle

Scale（-8,-8）-（8,8）

Line（0,-7）-（0,7）

Line（7,0）-（-7,0）

Forx=-6to6Step0.01

y=4*Sin（x*60*3.14159/180）

pSet（x,y）

Nextx

PrivateSubCommand2_Click（）'

余弦

y=4*Cos（x*60*3.14159/180）

PrivateSubCommand3_Click（）'

正切

y=4*Tan（x*60*3.14159/180）