2009-2012VB期末试卷答案汇总.doc

浙江工业大学2011/2012（2）期终试卷 VB程序设计基础 B试卷答案 选择题 1.B 2.B 3. A 4.D 5.B 6.C 7.B 8.A 9.C 10.B 填空题 -1 2. 0 3. Load 4.窗体/模块级 5.trim 6. Print (x ^ 5 - Cos(29 * 3.14 / 180)) / (Exp(x) + Log(y) + 5) 7. Redim 8. Static x As Integer 9. List1.Clear 10. Output 是非题 ×　 2. × 3. √ 4. √ 5. √ 6. √ 7. × 8. × 9. √ 10. √ 程序阅读题 20 1.25 246789 789123 7 15 33 65 n=1 n=3 n=5 程序填空题 s = 10 ^ 8 Print n, s Function jc(x As Integer) As Long jc = jc * i m = n m = 11 – n (或者m+n=11) m = 1 To 10 Print Print Space(5 - i); 1 To 2 * i – 1 Command2.Enabled = True Command2.Enabled = False 程序设计题 程序启动后由键盘输入20个实数，单击“求最大最小”命令按钮（command1）在图形框（Picture1）中输出最这些数的最大、最小值；单击“排序”命令按钮（command2），在图形框（Picture2）中输出这些数的升序。 Dim a(20) As Single Private Sub Command1_Click() Dim i As Integer Dim max As Single, min As Single max = a(1): min = a(1) For i = 2 To 20 If a(i) max Then max = a(i) If a(i) min Then min = a(i) Next i Picture1.Print max, min End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer, t As Single For i = 1 To 19 For j = 1 To 20 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j, i For i = 1 To 20 Picture2.Print a(i); Next i End Sub Private Sub Form_Load() Dim i As Integer For i = 1 To 20 a(i) = Val(InputBox(请输入一个数)) Next i End Sub 单击窗体，产生并在窗体上显示十个两位随机整数[10~99]，调用函数过程，求这十个数的最小公倍数，返回最小公倍数，换行显示“这十个数的最小公倍数是***”，结果由主程序输出。 Private Sub Form_click() Dim i As Integer, a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print Print 这十个数的最小公倍数是; gbs(a, 10) End Sub Private Function gbs(b() As Integer, m As Integer) As Long Dim i As Integer gbs = b(1) Do For i = 2 To m If gbs Mod b(i) 0 Then gbs = gbs + b(1): Exit For Next i Loop Until i m End Function 编程单击command1计算0～3600的整数度正弦值，并将结果存入文件e:\a.txt，要求在文件中一行存放一个数据的正弦值，即第一行：sin(00)，第二行sin(10)，第三行sin(20)……第361