Ivb期末考试、程序设计题.doc
文本预览下载声明
第一张:?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
显示全部