《高级语言程序设计答案
一、选择题（每题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。