高级语言程序设计(VB)A参考答案.docVIP

2007 -2008 学年第 二 学期 《高级语言程序设计（VB）》试卷A参考答案 课程代码 BB102021 考试方式 闭卷 考试时长 120分钟 一、分析程序，写出程序的运行结果或功能（每小题3分，共24分） 1、 i=3 s=6 i=3 s=12 2、 a=山东农业大学 b=学大业农东山 3、 x=-2 y=4 x=-1 y=5 x=0 y=0 x=1 y=-1 x=2 y=-3 4、 1 8 27 64 125 sum=225 5、 运行时在窗体Label1上显示当前日期与时间，每秒钟显示一次 6、 运行点击Command1命令按钮在Picture1图片框中显示九九乘法表 7、 从数据文件data.txt中提取100个数据存放在数组A中 8、 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 1 二、编程题（本大题共4小题，第小题10分，共40分） 说明：编程思想不同，实现代码可能不同，只要思路正确，个别语句不能正确描述，或用文字描述，斟情扣分。过程的首尾语句Private………..End sub 可以不写。 1、程序代码如下： Private Sub Command1_Click() Dim x, y, z As Double x = Val(inputbox(“输入X的值”)) z = Val(inputbox(“输入Z的值”)) If z=0 Then If x -10 Then y = x * x + z * z Else y = x + z End If Else If x -30 Then y = x / z + 3.89 Elseif x=-30 and x-8 then y = x * Sin(z) Else y = Sqr(Abs(x – z)) End If End If Print “x=”;x;”z=”;z;”y=”;y End Sub 2、程序代码如下： Private Sub Form_Click() Dim n As Long For n = 1 To 1000 If n * n Mod 10 = n Or n * n Mod 100 = n Or n * n Mod 1000 = n Then Print n; 的平方为：; n * n, n; 是一个守形数 End If Next n End Sub 3、程序设计代码如下： Private Sub Form_Click() Dim a(1 To 50) As Integer, sum As Integer, aver As Single, I%, j% For I = 1 To 50 a(I) = 100 + Int(401 * Rnd) sum = sum + a(I) Next I For I = 1 To 49 For j = I To 50 If a(I) a(j) Then temp = a(I): a(I) = a(j): a(j) = temp Next j Next I Print 排序后结果为： For I = 1 To 50 If I Mod 10 = 0 Then Print a(I) Else Print a(I); Next I End Sub 4、设计界面一个将十进制数转换为二进制数的界面，并写出相应的代码。（10分） Private Sub Form_Load() Label1.Caption = 请输入十进制数: Label2.Caption = 转换为2进制数结果: Text1 = : Text2 = Command1.Caption = 转换 Command2.Caption = 退出 End Sub Private Sub Command1_Click() Dim R As Integer, x%, s$, m% FontSize = 20 x = Val(Text1) s = Do While x 0 m = x Mod 2 s = m s x = x \ 2 Loop Text2 = s End Sub Private Sub Command2_Click() End End Sub 三、算法题(本大题共2小题，每小题8分，共16分） 1、判断一个数是否是素数。（8分） 问题分析：所谓素数，就是除了1和自身外，不能被任何整数整除的数，如2、3、5、7、11和13等等，判断一个数 t 是否是素数的最原始方法是先用 2 除以 t ,再用 3 除以 t