文档详情

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

发布:2017-01-09约2.97千字共7页下载文档
文本预览下载声明
第一张:?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
显示全部
相似文档