Which of the following statements is best supported by the last paragraph?
A.Men keep their innermost feelings to themselves.
B.Women are more serious than men about marriage.
C.Men often take sudden action to end their marriage.
D.Women depend on others in making decisions.
第1題
下面程序的輸出結果是【 】。
Private Sub Commandl_Click()
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a()
a(i) = 20
Next i
Print a(2)
End Sub
第2題
下列程序輸出的結果為【 】。
Private Sub Commandl_Click()
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
第3題
(28)閱讀下列程序: Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 單擊命令按鈕,執行程序,輸出結果是A.2 3 4 B.3 4 5 C.5 6 7 D.3 5 6
第4題
下面程序運行后,單擊命令按鈕,輸出的結果是【 】 Private Sub Commandl_Click() Dim a%(1 To 4) ,b%(2 To 6) ,i%,strl,str2 For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(A) str2 =YAG(B) Print"strl";str1;"str2=";str2 End Sub Function YAG (a()As Integer) Dim T,i% t=1 For i=LBound(A)To UBound(A) t=t * a(i) Next i YAG =t End Function
第5題
下列程序的輸出結果是【 】。
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2)
End Sub
第6題
有如下程序: Private Sub Commandl_Click() Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS() Dim x As Integer,m As String Static y,n X=X + 1 y=y + 1 m=m &"*”:n=n&"#" Print x,y,m,n End Sub 程序運行后,輸出的結果是
A.1 1 * #
B.1 1 * #
C.1 1 * # 1 1 * # 1 2 * #
D.1 1 * # 1 1 * ## 1 2 * ##
第7題
在窗體上畫一個命令按鈕Commandl,然后編寫下列代碼: Private Sub Commandl_Click() Dim Arrl(10)As Integer,Arr2(10)As Integer n=3 For i=1 To 5 Arrl(i)=i Arr2(n)=2*n+1 Next i Print Arr2(n);Arrl(n) End Sub 運行程序后,單擊命令按鈕,輸出結果是A.11 3 B.3 11 C.13 3 D.3 13
第8題
下列程序的輸出結果是()。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=1 To 10
Next i
For Each i In arr()
Next i
End Sub
第9題
下列程序的執行結果為 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl,s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String,ystr As String) Dim tempstr As String ystr=tempstr End Sub
A.dcba
B.abdc
C.abcd
D.dabc
第10題
下列程序的輸出結果是【 】。
Private Sub Command l Click()
Dim a(1 TO 20)
Dim i
For i=1 TO 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2) End Sub
為了保護您的賬號安全,請在“上學吧”公眾號進行驗證,點擊“官網服務”-“賬號驗證”后輸入驗證碼“”完成驗證,驗證成功后方可繼續查看答案!