然后编写如下事件过程: Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j>Sqr(i)Then Print i Next i End Sub 该事件过程的功能是______
在窗体上画一个命令按钮,然后编写如下程序: Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a