第8章实战套题4参考答案

第第 8 章章 等级考试套题实战训练等级考试套题实战训练 8.4 实战套题四实战套题四 8.4.1 实战套题四笔试卷实战套题四笔试卷 一、单项选择题 AACBB BCBDC DADAC BDBCA DCCCB 二、多项选择题 CE BCDE ABE ABC ABE 三、分析判断题 四、程序填空题 1、 x Mod 5 n Mod 10 2、365 -2*pi*i 3、 n+1 s*n 4、 Value Caption 5、 Len（c） c1 五、阅读分析题 CBBA? 注：此题第 5 小题无程序代码，故无法选择。 六、程序设计题 1、参考答案 Private Sub Form_Click() r = 80 p = 80 * (160 - 40) For k = 180 To 800 Step 20 r = r - 3 p1 = k - 40 If p1 * r p Then p = p1 Next k Print “应该定价为：“; p End Sub 2、参考答案 Dim a(1 To 10) As Integer Private Sub Form_Load() Form1.Show Print “随机序列：“; For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i End Sub Private Sub Form_Click() k = a(1) For i = 2 To 10 a(i - 1) = a(i) Next i k = a(10) Print Print “单击窗体：“; For i = 1 To 10 Print a(i); Next End Sub 8.4.2 实战套题四上机试卷实战套题四上机试卷 1 1、参考程序 Private Sub Command1_Click() r = Val(Text1.Text) v = 4 * 3.14 * r 3 s = 4 * 3.14 * r 2 If Check1.Value = 1 And Check2.Value = 1 Then Text2.Text = v Text3.Text = s ElseIf Check1.Value = 1 Then Text2.Text = v Else Text3.Text = s End If End Sub Private Sub Command2_Click() End End Sub 2、参考程序 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If X Form1.ScaleWidth - X Then dx = Form1.ScaleWidth - X Else dx = X If Y Form1.ScaleHeight - Y Then dy = Form1.ScaleHeight - Y Else dy = Y If dx = dy Then r1 = dy Else r1 = dx Const d = 3.14159 / 180 For i =1 To 30 CurrentX = r1 * Cos(i * d * 360 / 30) CurrentY = r1 * Sin(i * d * 360 / 30) Print “*” Next i End Sub 3、修改后的程序如下： Private Sub Command1_Click() x = Text1.Text i = 1 q = 0 Do While i a(2) The