亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

寫(xiě)出下列程序的正確運(yùn)行結(jié)果（每題5分，共10分）

  1．Private Sub Command1_Click( )       

       Print Int(-4.5)+Round(-4.5);

       Print Lcase(“AAbbEE”);

       Print Len(“vb程序設(shè)計(jì)語(yǔ)言”);

       Print Mid(“計(jì)算機(jī)科學(xué)與技術(shù)”,4,2);

       Print Rtrim(“abc   ”)+“def”

     End Sub

 2． Public Sub Swap(ByVal x As Integer, 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=20

       Swap a ,b

       Print “a=”; a ;”b=”; b

      End Sub

寫(xiě)出下列程序的正確運(yùn)行結(jié)果（每題5分，共10分）

1．-10  aabbee  8  科學(xué)  abcdef  

2．a= 10  b= 10