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

寫出下列程序的正確運(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  Trim(“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=30: b=20

       Swap a ,b

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

      End Sub

1. －9 aabbee 8科學(xué)abcdef

2. a=30 b=30