2016年度精品--2011年下期《VB程序设计》期末上机试题(第2套).doc

2011-2012学年第一学期《VB程序设计》
期末上机试题(第二套)
(时间:60分钟)
【提示】在最后一个盘根目录建立一个名为“学号姓名”(例如201008091234张三)的文件夹,将下列各题的程序文件保存于该文件夹。考试结束后,打包提交。
一、程序设计(35分)
设计如图1所示的界面,程序运行后,先输入圆的半径,再单击“圆面积”、“圆周长”复选框,最后单击“计算”按钮,则根据复选框是否勾选,决定是否在右侧相应的文本框内显示圆面积和圆周长的值;单击“退出”按钮结束程序。,。

图1 图2
二、程序设计(35分)
使用循环结构编写打印如图2所示的“九九乘法表”。,。
三、程序改错(30分)
10个评委的评分数据已经保存在数组a中,单击窗体后,去掉一个最高分,再去掉一个最低分,然后计算平均值,作为参赛选手的实际得分,并在窗体上输出。程序中错误的语句行已经标识出来,要求录入程序并改正错误,但不得添加或删除语句行。,。
第一题Private mand2_Click()
Dim n!, r!, d!
Const pi =
r = Val()
If r < 0 Then
MsgBox "值越界请重新输入"
End If
If = 1 Then
s = pi * r ^ 2
= s
End If
If = 1 Then
d = pi * r * 2
= d
End If
End Sub
Private mand1_Click()
End
End Sub
第三题Private Sub Form_click()
Dim a As Variant
a = Array(, , , , , , , , 98, )
Max = a(0): Min = (0): Sum = score(0)
For i = 1 To 9
If a(i) > Max Then Max = a(i)
If a(i) <> Min Then Min = a(i)
Sum = Sum + a(i)
Next i
average = (Sum - Max - Min) / 8
Print "选手实际得分:"; average


End Sub
Private Sub Form_Click()
第二题Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print j & "x" & i & "=" & i * j & vbTab;
Next
Print
Next
End Sub
财务工作总结ppt