收藏
下载资源下载资源 加入VIP,免费下载

级《计算机基础实验VB》期末考试代码.docx

上传人：b****8 文档编号：30524059 上传时间：2023-08-16 格式：DOCX 页数：22 大小：40.89KB
下载 相关 举报
级《计算机基础实验VB》期末考试代码.docx_第1页
第1页 / 共22页
级《计算机基础实验VB》期末考试代码.docx_第2页
第2页 / 共22页
级《计算机基础实验VB》期末考试代码.docx_第3页
第3页 / 共22页
级《计算机基础实验VB》期末考试代码.docx_第4页
第4页 / 共22页
级《计算机基础实验VB》期末考试代码.docx_第5页
第5页 / 共22页
点击查看更多>>
下载资源
资源描述

级《计算机基础实验VB》期末考试代码.docx

《级《计算机基础实验VB》期末考试代码.docx》由会员分享，可在线阅读，更多相关《级《计算机基础实验VB》期末考试代码.docx（22页珍藏版）》请在冰豆网上搜索。

级《计算机基础实验VB》期末考试代码.docx

级《计算机基础实验VB》期末考试代码

1、PrivateSubCommand1_Click（）

a=Label1.Caption

b=a

Label1.Caption=Text1.Text

Text1.Text=b

EndSub

PrivateSubForm_Load（）

Command1.Caption="修改"

Label1.Caption="标签框"

Text1.Text="文本框"

EndSub

2、PrivateSubCommand1_Click（）

a=Val（Text1.Text）

b=Val（Text2.Text）

x=-b/a

Text3.Text=x

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

EndSub

3、PrivateSubForm_Load（）

a="此项操作正确吗？

"

b=MsgBox（a,36,"考试"）

Ifb=vbYesThen

MsgBox"结果正确",,"考试"

End

Else

c=MsgBox（"重新操作",48,"考试"）

Ifc=vbOKThenb=MsgBox（a,36,"考试"）

EndIf

EndSub

4、PrivateSubCommand1_Click（）

Command1.Caption=Text1.Text

Label1.Caption=Text1.Text

EndSub

5、PrivateSubCommand1_Click（）

Text4.Text=Val（Text1.Text）*Val（Text2.Text）*Val（Text3.Text）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

EndSub

6、PrivateSubCommand1_Click（）

a=UCase（Text1.Text）'大写

Text1.Text=a

EndSub

PrivateSubCommand2_Click（）

b=LCase（Text1.Text）'小写

Text1.Text=b

EndSub

PrivateSubCommand3_Click（）

End

EndSub

7、PrivateSubForm_Click（）

DimiAsInteger,sumAsInteger

sum=0

Fori=100To200

If（（iMod2）=1）And（（iMod3）<>0）Then

Printi

sum=sum+i

EndIf

Nexti

Printsum

EndSub

8、PrivateSubForm_Click（）

DimsAsLong

DimnAsInteger

s=1

n=1

Whiles<=400000

n=n+1

s=s*n

Wend

Printn-1

EndSub

9、窗口1

PrivateSubForm_click（）

Form1.Visible=False

Form2.Show

EndSub

窗口2

PrivateSubCommand1_Click（）

End

EndSub

PrivateSubForm_click（）

Form1.Visible=True

EndSub

10

PrivateSubForm_click（）

DimiAsInteger,jAsInteger

Me.AutoRedraw=True

PrintTab（20）;"九九乘法表"

Print

Print"";

Fori=1To9

PrintTab（i*5）;i;

Next

Print

Fori=1To9

Printi;

Forj=1Toi

PrintTab（j*5）;i*j;

Nextj

Print

Nexti

EndSub

难度：

中（11--20）

11.PrivateSubCommand1_Click（）

IfOption1.ValueThenText1.FontName="宋体"

IfOption2.ValueThenText1.FontName="黑体"

IfOption3.ValueThenText1.FontSize=8

IfOption4.ValueThenText1.FontSize=14

EndSub

PrivateSubCommand2_Click（）

End

EndSub

12、OptionExplicit

PrivateSubCommand1_Click（）

IfList1.Selected（0）Then

Text1.Text="A地"

EndIf

IfList1.Selected

（1）Then

Text1.Text="B地"

EndIf

IfList1.Selected

（2）Then

Text1.Text="C地"

EndIf

IfList1.Selected（3）Then

Text1.Text="D地"

EndIf

IfList1.Selected（4）Then

Text1.Text="E地"

EndIf

IfList1.Selected（5）Then

Text1.Text="F地"

EndIf

IfList1.Selected（6）Then

Text1.Text="G地"

EndIf

IfList1.Selected（7）Then

Text1.Text="H地"

EndIf

EndSub

PrivateSubForm_Load（）

List1.AddItem"张一"

List1.AddItem"张二"

List1.AddItem"张三"

List1.AddItem"张四"

List1.AddItem"张五"

List1.AddItem"张六"

List1.AddItem"张七"

List1.AddItem"张八"

EndSub

PrivateSubList1_DblClick（）

IfList1.Selected（0）Then

Text1.Text="A地"

EndIf

IfList1.Selected

（1）Then

Text1.Text="B地"

EndIf

IfList1.Selected

（2）Then

Text1.Text="C地"

EndIf

IfList1.Selected（3）Then

Text1.Text="D地"

EndIf

IfList1.Selected（4）Then

Text1.Text="E地"

EndIf

IfList1.Selected（5）Then

Text1.Text="F地"

EndIf

IfList1.Selected（6）Then

Text1.Text="G地"

EndIf

IfList1.Selected（7）Then

Text1.Text="H地"

EndIf

EndSub

13、PrivateSubCommand1_Click（）

Dimi%

IfText2.Text<>"pass"Then

i=MsgBox（"密码错误",5+16,"输入密码"）

Ifi=2Then

End

Else

Text2.Text=""

EndIf

Else

MsgBox"输入正确",,"输入密码"

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub

PrivateSubForm_Load（）

Text1.Text=""

Text2.Text=""

Text1.MaxLength=6

Text2.MaxLength=4

Text2.PasswordChar="*"

EndSub

PrivateSubText1_LostFocus（）

IfNotIsNumeric（Text1.Text）Then

MsgBox"账号必须为数字",64,"提示"

Text1.Text=""

EndIf

EndSub

14、'Label1显示颜色

'HScroll1,HScroll2,HScroll33个滚动条

'Label2,Label3,Label4显示滚动条的值

PrivateSubForm_Load（）

HScroll1（0）.Min=0:

HScroll1

（1）.Min=0:

HScroll1

（2）.Min=0

HScroll1（0）.Max=255:

HScroll1

（1）.Max=255:

HScroll1

（2）.Max=255

Label2（0）.Caption=CStr（HScroll1（0）.Value）

Label2

（1）.Caption=CStr（HScroll1

（1）.Value）

Label2

（2）.Caption=CStr（HScroll1

（2）.Value）

Label1.BackColor=RGB（HScroll1（0）.Value,HScroll1

（1）.Value,HScroll1

（2）.Value）

EndSub

PrivateSubHScroll1_Change（IndexAsInteger）

IfIndex=0Then

Label2（0）.Caption=CStr（HScroll1（0）.Value）

Label1.BackColor=RGB（HScroll1（0）.Value,HScroll1

（1）.Value,HScroll1

（2）.Value）

EndIf

IfIndex=1Then

Label2

（1）.Caption=CStr（HScroll1

（1）.Value）

Label1.BackColor=RGB（HScroll1（0）.Value,HScroll1

（1）.Value,HScroll1

（2）.Value）

EndIf

IfIndex=2Then

Label2

（2）.Caption=CStr（HScroll1

（2）.Value）

Label1.BackColor=RGB（HScroll1（0）.Value,HScroll1

（1）.Value,HScroll1

（2）.Value）

EndIf

EndSub

15、平均成绩计算

输入N个学生的成绩，求其平均分并找出低于平均成绩学生的学号、成绩。

16、PrivateSubcommand1_Click（）

Dima,b,cAsSingle

Dimt,sAsSingle

a=Val（Text1.Text）

b=Val（Text2.Text）

c=Val（Text3.Text）

If（a+b）>cAnd（b+c）>aAnd（c+a）>bThen

t=（a+b+c）/2

s=Math.Sqr（t*（t-a）*（t-b）*（t-c））

Text4.Text=Str（s）

Else

MsgBox"不能构成三角形",64,"提示"

Text1.Text="":

Text2.Text="":

Text3.Text=""

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub

17、设计一个简单的四则运算器。

18、PrivateSubCommand1_Click（）

Command1.Visible=False

Command2.Visible=True

Timer1.Enabled=False

Timer2.Enabled=True

DimsAsDate

DimbsAsString

s=Now

SelectCaseHour（s）

CaseIs<8

bs="凌晨"

CaseIs<12

bs="上午"

CaseIs<14

bs="中午"

CaseIs<17

bs="下午"

CaseElse

bs="晚上"

EndSelect

Label1.Caption=bs

EndSub

PrivateSubCommand2_Click（）

Command1.Visible=True

Command2.Visible=False

Timer1.Enabled=True

Timer2.Enabled=False

Label1.Caption=""

EndSub

PrivateSubForm_Load（）

Timer1.Interval=100

Timer1.Enabled=True

Timer2.Interval=100

EndSub

PrivateSubTimer1_Timer（）

Text1.Text=Format$（Time,"hh:

mm:

ss"）

EndSub

PrivateSubTimer2_Timer（）

Text1.Text=Format$（Time,"hh:

mm:

ssAMPM"）

EndSub

19、PrivateSubCommand1_Click（）

IfOption1.Value=TrueThenPicture1.Print"选择了正方形"

IfOption2.Value=TrueThenPicture1.Print"选择了椭圆形"

IfOption3.Value=TrueThenPicture1.Print"选择了圆形"

EndSub

20、PrivateSubForm_Click（）

Dimgewei,shiwei,baiweiAsInteger

DimiAsInteger

Fori=100To999

gewei=iMod10

shiwei=Int（（iMod100）/10）

baiwei=Int（（i-gewei-shiwei*10）/100）

Ifi=gewei^3+shiwei^3+baiwei^3Then

Printi

EndIf

Next

EndSub

难度：

难（21--30）

21、PrivateSubCommand1_Click（）

t=Text1.Text

DimFAsBoolean

F=True

Fori=1ToLen（t）

IfFThen

If（Mid（t,i,1）>="a"）ThenMid（t,i,1）=Chr（Asc（Mid（t,i,1））-Asc（"a"）+Asc（"A"））

F=False

ElseIfMid（t,i,1）="?

"OrMid（t,i,1）="."OrMid（t,i,1）="!

"Then

F=True

EndIf

Nexti

Text2.Text=t

EndSub

22、PrivateSubCommand1_Click（）

Dimarr（26）AsInteger

s=Text1.Text

n=Len（s）

Fori=1Ton

x=UCase（Mid（s,i,1））

Ifx>="A"Andx<="Z"Thenarr（Asc（x）-64）=arr（Asc（x）-64）+1

Nexti

Fori=1To26

Text2.Text=Text2.Text&Chr$（i+64）&"="&arr（i）&""

Nexti

EndSub

'两个文本框multiline值设置为true实验课本本108

23、PrivateSubPicture1_Click（）

Dimstu_score（10）AsInteger

Dimstu_no（10）AsInteger

Randomize

Picture1.Print"学号成绩"

Picture2.Print"学号成绩"

Fori=1To10

stu_no（i）=i

stu_score（i）=Int（Rnd*（100-30+1）+30）

Picture1.Printstu_no（i）;"";stu_score（i）

Nexti

Print

Fori=1To10

Forj=1To10-i

Ifstu_score（j）

t1=stu_score（j）

stu_score（j）=stu_score（j+1）

stu_score（j+1）=t1

t2=stu_no（j）

stu_no（j）=stu_no（j+1）

stu_no（j+1）=t2

EndIf

Nextj

Nexti

Fori=1To10

Picture2.Printstu_no（i）;"";stu_score（i）

Nexti

EndSub

24、Dimi%,j%,sum%

PrivateSubCommand1_Click（）

Fori=3To1000

sum=0

Forj=1Toi/2

IfiModj=0Then

sum=sum+j

EndIf

Next

Ifsum=iThen

Printi;"因子是：

";

Forj=1Toi/2

IfiModj=0Then

Printj;

EndIf

Next

Print

EndIf

Next

EndSub

25、’实验课本104（3）

PrivateSubCommand1_Click（）

List1.AddItemText1

Text1=""

EndSub

PrivateSubCommand2_Click（）

List1.RemoveItemList1.ListIndex

EndSub

PrivateSubCommand3_Click（）

Text1=List1.Text

Text1.SetFocus

Command1.Enabled=False

Command2.Enabled=False

Command3.Enabled=False

Command3.Enabled=True

EndSub

PrivateSubCommand4_Click（）

List1.List（List1.ListIndex）=Text1

Command4.Enabled=False

Command1.Enabled=True

Command2.Enabled=True

Command3.Enabled=True

Text1=""

EndSub

PrivateSubForm_Load（）

List1.AddItem"计算机文化基础"

List1.AddItem"VB6.0程序设计教程"

List1.AddItem"操作系统"

List1.AddItem"多媒体技术"

List1.AddItem"网络技术基础"

EndSub

26、PrivateSubCommand1_Click（）

n=Text1.Text

r=Trim（n）

Ifr=StrReverse（r）Then

MsgBox"是回文数",,"判断"

Else

MsgBox"不是回文数",,"判断"

EndIf

EndSub

27、PrivateSubCommand1_Click（）

DimaAsSingle,sumAsSingle

DimiAsInteger

sum=0

IfText1.Text=""Then

MsgBox"请输入n值"

ExitSub

Else

IfIsNumeric（Trim（Text1.Text））Then

IfVal（Text1.Text）<=0Then

MsgBox"请输入正整数"

ExitSub

Else

Fori=1ToVal（Text1.Text）

a=1/i

sum=sum+a

Nexti

EndIf

Else

MsgBox"请输入正整数"

ExitSub

EndIf

EndIf

PrintVal（Text1.Text）&"项的和为：

"&Format（sum,"#.######"）

EndSub

28、PrivateSubCommand1_Click（）

DimswAsSingle,rangeAsSingle

IfText1.Text=""Then

MsgBox"noinput"

ExitSub

Else

IfIsNumeric（Trim（Text1.Text））Then

IfVal（Text1.Text）<=0Then

MsgBox"lowerthanzero"

ExitSub

Else

IfVal（Text1.Text）<166Then

sw=Val（Text1.Text）-100

ElseIfVal（Text1.Text）>=166AndVal（Text1.Text）<=175Then

sw=Val（Text1.Text）-105

ElseIfVal（Tex

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置：首页 > 高中教育 > 高中教育

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1