對于填土質量問題，A施工單位是否有責任？在工程質量方面，兩單位有何關系？
AI搜題
NEW
搜題
第1題
運行下列程序：
Private Sub Form_Click()
Dim x As Integer, y As String, z As String
y = "12345"
For x = 1 To Len(y)
z = Mid(Left(y, x), 1)
Next x
Print z
End Sub
單擊窗體后，則在窗體上顯示的結果是()。
A.1
B.11111
C.55555
D.12345
第2題
運行下列程序：
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
單擊窗體后，則在窗體上顯示的結果是()。
A.5
B.1 2 3 4 5
C.19
D.7
第3題
運行下列程序：
Dim b
Private Sub Form_Click()
a = 1: b = 1
Call fun1(a)
Print "X = "; a; ",Y = "; b
End Sub
Private Sub fun1(a)
b = 2 * a
a = 3 * b
End Sub
單擊窗體后，則在窗體上顯示的結果是()。
A.X = 1，Y = 1
B.X = 2，Y = 6
C.X = 6，Y = 2
D.X = 6，Y = 1
第4題
運行下列程序：
Private Sub Form_Click()
Dim y As Integer, x As Integer
Do Until x > 20
x = x + 10
y = y + x
If x > 20 Then Exit Do
Loop
Print x, y
End Sub
單擊窗體后，則在窗體上顯示的結果是()。
A.10 20
B.30 60
C.10 30
D.20 60
第5題
運行下列程序：
Private Sub form_Click()
Dim x
x = 0
Do While x < 10
x = x + 3
Loop
MsgBox x
End Sub
單擊窗體后，則在窗體上顯示的結果是()。
A.0
B.3
C.10
D.12
第6題
運行下列程序：
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
單擊窗體后，則在窗體上顯示的結果是()。
A.5
B.1 2 3 4 5
C.19
D.7
第7題
設有如下程序：
Private Sub Form_Click()
Dim i As Integer，x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x，i，i)+y
Next i
Print y
End Sub
程序運行后，單擊窗體，輸出結果為
A．ABCCDEDEFG
B．AABBCDEFG
C．ABCDEFG
D．AABBCCDDEEFFGG
第8題
運行下列程序：
Private Sub form_Click()
Dim sl As String, s2 As String
s1 = "1234"
m = 0
For i = 3 To 1 Step -1
m = m + 1
s2 = fun1(s1, m)
Debug.Print s2;
Next i
End Sub
Private Function fun1(x, y) As String
fun1 = Right(x, y)
End Function
單擊窗體后，則在立即窗口內顯示結果是()。
A.1234
B.4321
C.434234
D.1111
第9題
下列程序運行時輸出的結果是()。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub
A．36
B．25
C．1
D．出錯信息
