高级语言程序设计答案

《高级语言程序设计答案

一、选择题（每题2分，共30分，请将答案写在后面的答题栏．．．上） 1-5 BDBBB 6-10 BBDCC 11-15 CDBAB

二、填空题（1-3题每空1分，4-8题每空2分，共20分）

1、对象，事件驱动

2、frm ，vbp

3、函数 过程

4、31

5、9

6、countn<5 n mod 3=1 and n mod 5=1 and n mod 7=1 8、7

7、*n s+1/f

三、综合题（每题5分，共25分）

1、 (2*y)/(a*x+b*y)(a*x-c*z)

2、(x+sqr(x^2+1))^(1/3)

3、30 60

4、7

5、1）建立界面。先建立窗体，再利用控件在窗体上创建各种对象。

2）设置属性。设置窗体或控件等对象的属性。

3）编写代码。编写对象的事件代码。

四、程序设计题（8+8+9，共25分）

1：x 的值由文本框输入，计算分段函数的值：y=⎪⎪⎩⎪⎪⎨⎧≥<≤<≤<2

,321,210,10,0x x x x 。 private sub command1_click( )

Dim x%

x=text1.text

if x>=2 then

y=3

elseif x>=1 then

y=2

elseif x>=0 then

y=1

2：统计100以内被3整除的数比被5整除的数多多少。 Private Sub Command1_Click()

Dim i%, s1%, s2%

For i = 1 To 100

If i Mod 3 = 0 Then s1 = s1 + 1

If i Mod 5 = 0 Then s2 = s2 + 1

Next i