运输成本

在考生文件夹下有一个工程文件T507.vbp，其窗体上有一个文本框，名称为Text1；还有一个命令按钮，名称为C1，标题为“计算”，如图所示。有一个函数isprime()可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出小于2000的最大素数，并显示在Text1中。

注意：考生不得修改isprime()函数过程和控件的属性。

试题源程序：

1 Private Function isprime(a As Integer)As Boolean

2 Dim flag As Boolean

3 flag=True

4 b%=2

5 Do While b%＜=Int(a/2)And flag

6 If Int(a/b%)=a/b% Then

7 flag=False

8 Else

9 b%=b%+1

10 End If

11 Loop

12 isprime=flag

13 End Function

决定湿温病湿热孰轻孰重的主要因素是（）

A.邪气的盛衰

B.元气的盛衰

C.中气的盛衰

D.肾气的盛衰

E.宗气的盛衰

班集体具有促进学生社会化发展和促进学生（）发展的双重功能。

普通车辆上的油漆方法主要分哪两类？其油漆工艺如何？

增溶剂是高分子化合物，助溶剂是低分子化合物。