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

第一张：?4. 设计一个程序，实现加、减、乘、除运算，当单击“加法”命令按钮时，程序运行界面如图2.20所示。同样，单击其他命令按钮时，实现其他运算，等式中的运算符号要相应变化。 代码如下： Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub?Private Sub Command2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) Label1.Caption = - End Sub ?Private Sub Command3_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) Label1.Caption = * End Sub ?Private Sub Command4_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) Label1.Caption = ÷ End Sub 第三章： 3. 计算下列分段函数值： X=val (Text 1.Text) If x.5 and x=-5 Then Y=x/2+(x*x+5)/(2*x) Else if x10 Then Y=(3*x)^(1/3) Else if x=15 Then Y=log(x) Else Y=sin(x)^2+cos(x) End if Text2.Text =str(y) End sub 第四章：1. 将一个数组的元素按逆序重新存放，例如，原来存放顺序为：8,6,5,4,1。要求1,4,5,6,8。 Option Base 1 Private Sub Form_Click() Dim a() Dim t As Integer a = Array(8, 6, 5, 4, 1) FontSize = 24 For i = 1 To 5 ??? Print a(; i; )=; a(i) Next i For i = 1 To 5 \ 2 ??? t = a(i) ??? a(i) = a(6 - i) ??? a(6 - i) = t Next i Print 逆序后 For i = 1 To 5 ??? Print a(; i; )=; a(i) Next i End Sub 2.. 利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“ 两个反面”、“一正一反”3种情况各出现多少次？ Private Sub Form_Click() Dim a(3) As Integer, x As Integer, y As Integer a(1) = 0 a(2) = 0 a(3) = 0 For i = 1 To 100 ? Randomize ? x = Int(2 * Rnd) ? y = Int(2 * Rnd) ? If x = 0 And y = 0 Then 两个正面 ??? a(1) = a(1) + 1 ? ElseIf x = 1 And y = 1 Then 两个反面 ??? a(2) = a(2) + 1 ? Else????????????????? 一正一反 ??? a(3) = a(3) + 1 ? End If Next i FontSize = 24 Print 两个正面的次数; a(1) Print 两个反面的次数; a(2) Print 一正一反的次数; a(3) Print End Sub 设计一个选课程序，其运行界面如图7.20所示。课程有两组：一是限选课，3门课中只能选一门；二是任选课，可以选多门。选课后，单击“确认”按钮，在右边的文本框中显示选课结果。 Private Sub Command1_Click() If Option1.Value = True Then ?? Text1.Text = Option1.Caption ElseIf Option2.Value = True Then ?? Text1.Text = Option2.Caption Else: Text1.Text = Option3.Caption End If If Check1.Value = 1 Then ?? Text1.Text = Text1.Text + vbCrLf + Check1.Caption End If If Check2.Value = 1 Then ?? Text1.Text = Text1.Text + vbCrLf + Check2.Caption End If If Check3.Value = 1