vb期末考试、程序设计题.docVIP

第一张：?4.设计一个程序，实现加、减、乘、除运算，当单击“加法”命令按钮时，程序运行界面如图2.20所示。同样，单击其他命令按钮时，实现其他运算，等式中的运算符号要相应变化。

代码如下：

PrivateSubCommand1_Click()

Text3.Text=Val(Text1.Text)+Val(Text2.Text)

EndSub

?PrivateSubCommand2_Click()

Text3.Text=Val(Text1.Text)-Val(Text2.Text)

Label1.Caption=-

EndSub

?PrivateSubCommand3_Click()

Text3.Text=Val(Text1.Text)*Val(Text2.Text)

Label1.Caption=*

EndSub

?PrivateSubCommand4_Click()

Text3.Text=Val(Text1.Text)/Val(Text2.Text)

Label1.Caption=÷

EndSub

第三章：3.计算以下分段函数值：

方法1)privatesubcommand1_click()

DimxAssingle,yAssingle

X=val(Text1.Text)

Ifx.5andx=-5Then

Y=x/2+(x*x+5)/(2*x)

Elseifx10Then

Y=(3*x)^(1/3)

Elseifx=15Then

Y=log(x)

Else

Y=sin(x)^2+cos(x)

Endif

Text2.Text=str(y)

Endsub

第四章：1.将一个数组的元素按逆序重新存放，例如，原来存放顺序为：8,6,5,4,1。要求改为1,4,5,6,8。

OptionBase1

PrivateSubForm_Click()

Dima()

DimtAsInteger

a=Array(8,6,5,4,1)

FontSize=24

Fori=1To5

???Printa(;i;)=;a(i)

Nexti

Fori=1To5\2

???t=a(i)

???a(i)=a(6-i)

???a(6-i)=t

Nexti

Print逆序后

Fori=1To5

???Printa(;i;)=;a(i)

Nexti

EndSub

2..利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？

PrivateSubForm_Click()

Dima(3)AsInteger,xAsInteger,yAsInteger

a(1)=0

a(2)=0

a(3)=0

Fori=1To100

?Randomize

?x=Int(2*Rnd)

?y=Int(2*Rnd)

?Ifx=0Andy=0Then两个正面

???a(1)=a(1)+1

?ElseIfx=1Andy=1Then两个反面

???a(2)=a(2)+1

?Else?????????????????一正一反

???a(3)=a(3)+1

?EndIf

Nexti

FontSize=24

Print两个正面的次数;a(1)

Print两个反面的次数;a(2)

Print一正一反的次数;a(3)

Print

EndSub

第六章：1.设计一个选课程序，其运行界面如图7.20所示。课程有两组：一是限选课，3门课中只能选一门；二是任选课，可以选多门。选课后，单击“确认”按钮，在右边的文本框中显示选课结果。

PrivateSubCommand1_Click()

IfOption1.Value=TrueThen

??Text1.Text=Option1.Caption

ElseIfOption2.Value=TrueThen

??Text1.Text=Option2.Caption

Else:Text1.Text=Option3.Caption

EndIf

IfCheck1.Value=1Then

??Text1.Text=Text1.Text+vbCrLf+Check1.Caption

EndIf

IfCheck2.Value=1Then

??Te