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

1、实用标准文案第一张：4.设计一个程序,实现加、减、乘、除运算,当单击“加法命令按钮时,程序运行界面如图2.20所示.同样,单击其他命令按钮时,实现其他 运算,等式中的运算符号要相应变化.代码如下：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)Label1.Caption ="-"End SubPrivate Sub

2、 Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)Label1.Caption = "*"End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)Label1.Caption = "+"End Sub第三章：3.计算以下分段函数值：方法 1) private sub command1_click()精彩文档实用标准文案Dim x As single ,y As singleX

3、=val (Text I.Text)If x.<5 and x>=-5 ThenY=x/2+(x*x+5)/(2*x)Else if x<10 ThenY=(3*x)A(1/3)Else if x<=15 ThenY=log(x)ElseY=sin(x)A2+cos(x)End ifText2.Text =str(y)End sub第四章：1.将一个数组的元素按逆序重新存放,例如,原来存放顺序为: 8,6,5,4,1 .要求改为 1,4,5,6,8 .Option Base 1Private Sub Form_Click()Dim a()Dim t As Integer

4、a = Array(8, 6, 5, 4, 1)FontSize = 24For i = 1 To 5Print "a(" i; ")=" a(i)Next iFor i = 1 To 5 2t = a(i)精彩文档实用标准文案a(i) = a(6 - i)a(6 - i) = tNext iPrint "逆序后"For i = 1 To 5Print "a(" i; ")=" a(i)Next iEnd Sub2.利用随机函数,模拟投币结果.设共投币100次 求“两个正面、“两 个反面、“一正

5、一反3种情况各出现多少次？Private Sub Form_Click()Dim a(3) As Integer, x As Integer, y As Integera(1) = 0a(2) = 0a(3) = 0For i = 1 To 100Randomizex = Int(2 * Rnd)y = Int(2 * Rnd)If x = 0 And y = 0 Then '两个正面a(1) = a(1) + 1ElseIf x = 1 And y = 1 Then ' 两个反面a(2) = a(2) + 1Else' 一正一反a(3) = a(3) + 1End I

6、fNext iFontSize = 24Print "两个正面的次数"a(1)Print "两个反面的次数"a(2)精彩文档实用标准文案Print " 一正一反的次数"a(3)PrintEnd Sub第六章：1.设计一个选课程序,其运行界面如图 7.20所示.课程有两组：一是 限选课,3门课中只能选一门；二是任选课,可以选多门.选课后,单击“确认 按钮,在右边的文本框中显示选课结果.Private Sub Command1_Click()If Option1.Value = True ThenText1.Text = Option1.

7、CaptionElseIf Option2.Value = True ThenText1.Text = Option2.CaptionElse: Text1.Text = Option3.CaptionEnd IfIf Check1.Value = 1 ThenText1.Text = Text1.Text + vbCrLf + Check1.CaptionEnd IfIf Check2.Value = 1 ThenText1.Text = Text1.Text + vbCrLf + Check2.CaptionEnd IfIf Check3.Value = 1 ThenText1.Text

8、= Text1.Text + vbCrLf + Check3.Caption精彩文档实用标准文案End IfEnd Sub3 .设计一个系统主窗体,具运行界面如图7.22所示,其中的“图书治理信 息系统字样从右到左缓缓地循环移动,窗体背景图案可以任意指定.Private Sub Form_Load()Forml.Picture = LoadPicture("c:tupiansky.jpg")Label1.Caption =" 图书治理系统"Label1.FontName ="隶书"Label1.ForeC010r = vbBlueLa

9、bel1.FontSize = 30Label1.FontItalic = TrueLabel1.BackStyle = 0Timer1.Interval = 100End SubPrivate Sub Timer1_Timer()If Label1.Left <= Form1.Width ThenLabel1.Left = Label1.Left + 200ElseLabel1.Left = -3000End IfEnd Sub4 .设计一个窗体,具运行界面如图7.23所示.窗口中有图像框、一个滚动 条和一个文本框.滚动条变化范围是010,当单击滚动条时,图像框中图片的大小随之发生改变,且在文本框中显示滚动条的数值.图像框image1名称为im滚动条名称为h精彩文档实用标准文案Private Sub Form_Load()Im.Stretch = TrueH.Max = 10H.Min = 0Im.Picture = LoadPicture("c:1.jpg")En