vb期末考试、程序设计的题目

《vb期末考试、程序设计的题目》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实用标准文案第一张： 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()Te

2、xt3.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,yAssingleX=val(Text1.Text)Ifx.<5andx>=-5ThenY=x/2+(x*x+5)/(2*x)Elseif

3、x<10ThenY=(3*x)^(1/3)Elseifx<=15ThenY=log(x)ElseY=sin(x)^2+cos(x)EndifText2.Text=str(y)Endsub第四章：1.将一个数组的元素按逆序重新存放，例如，原来存放顺序为：8,6,5,4,1。要求改为1,4,5,6,8。OptionBase1PrivateSubForm_Click()Dima()DimtAsIntegera=Array(8,6,5,4,1)FontSize=24Fori=1To5   Print"a(";i;")=";a(i)NextiFori=1To52   t=a(i)精彩文档实用

4、标准文案   a(i)=a(6-i)   a(6-i)=tNextiPrint"逆序后"Fori=1To5   Print"a(";i;")=";a(i)NextiEndSub2..利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？PrivateSubForm_Click()Dima(3)AsInteger,xAsInteger,yAsIntegera(1)=0a(2)=0a(3)=0Fori=1To100 Randomize x=Int(2*Rnd) y=Int(2*Rnd) Ifx=0Andy=0Then'两个正面   

5、a(1)=a(1)+1 ElseIfx=1Andy=1Then'两个反面   a(2)=a(2)+1 Else                 '一正一反   a(3)=a(3)+1 EndIfNextiFontSize=24Print"两个正面的次数";a(1)Print"两个反面的次数";a(2)精彩文档实用标准文案Print"一正一反的次数";a(3)PrintEndSub第六章：1.设计一个选课程序，其运行界面如图7.20所示。课程有两组：一是限选课，3门课中只能选一门；二是任选课，可以选多门。选课后，单击“确认”按钮，在右边的文本框中显示选课结果。PrivateSubCom

6、mand1_Click()IfOption1.Value=TrueThen  Text1.Text=Option1.CaptionElseIfOption2.Value=TrueThen  Text1.Text=Option2.CaptionElse:Text1.Text=Option3.CaptionEndIfIfCheck1.Value=1Then  Text1.Text=Text1.Text+vbCrLf+Check1.CaptionEndIfIfCheck2.Value=1Then  Text1.Text=Text1.Text+vbCrLf+Check2.CaptionEnd

7、IfIfCheck3.Value=1ThenText1.Text=Text1.Text+vbCrLf+Check3.Caption精彩文档实用标准文案EndIfEndSub3.设计一个系统主窗体，其运行界面如图7.22所示，其中的“图书管理信息系统”字样从右到左缓缓地循环移动，窗体背景图案可以任意指定。PrivateSubForm_Load()Form1.Picture=LoadPicture("c:tupiansky.jpg")Label1.Capt