Private Sub Form_Click( )
Dim i As Integer，j As integer,n As integer N=val(txtinput) Fori=3 to n-2step 2 If ___(1)__ Then
if n-i>=i and__(2)________ then print n;\ endif End If Nexti End sub
Private Function Prime(n as integer) as boolean dim i as integer,,j as integer,,flg as boolean prime =false for i=2 to sqr(n)
if n mod i=0 then___(3)_____ nexti
Prime=true End function End If Next i End Sub
3、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。
Option Explicit
Private Sub Command1_Click( ) Dim s As String,k As Integer
Dim r As String,i As Integer,t As String s=“aa11bb22Cc33” For i=1 To Len(s) t= (1)
If t>=“a”And t<=“z”Or t>=“A”And t<=“Z”Then ____(2)___ End If Next i Print r End Sub
4、如下程序，运行的结果是____________，若将A语句改为Static i%，运行的结果是___________。Sub Proc(a%())
Dim i% 'A Do
a(i)=a(i)+a(i+1) i=i+1
Loop While i<2 End Sub
Private Sub Command1_Click() Dim m%, i%, x%(10) For i=0 To 4 x(i)=i+1 Next i
For i=1 To 2 Call Proc(x) Next i
For I=0 To 4 Print x(i); Next i End Sub
5、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为________
参考答案
1.d,2.b,3.d,4.b,5.b,6.b,7.c,8.b,9.d,10.c,11.b,12.b,13.c,14.c,15.a,16.c,17.c,18.c,19.a,20.a,21.a,22.a,23.d,24.b,25.b,26.c,27.b,28.c,29.b,30.c,31.b,32.d,33.d,34.a,35.c,36.b,37.d,38.a,39.c,40.a
1.Xx,XxYyZz,2.prime(i),prime(n-i),Exit function,3.mid(s,i,1),r=r & t,4.8 8 3 4 5,3 5 7 4 5,5.2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)
