更多“有如下VB程序段:L = 0: R = 7: i = 1Do…”相关的问题
第1题
有如下VB程序段:For i = 1 To 100 j = 1∶a(j) = a(j) + 1 Do While a(j) = 6a(j) = 0j = j + 1a(j) = a(j) + 1 LoopNext i数组a中各个元素值均为0,该程序段执行后数组a中各元素之和为()
点击查看答案
第2题
有如下VB程序段:c = 0 :i = 1Do While i <=6 k = i For j = i + 1 To 7 If a(j)<= a(k) Then k = j Next j If a(i) <> a(k) Then t = a(i): a(i) = a(k): a(k) = t c = c + 1 End If i = i + 1Loop数组元素a(1)到a(7)的值依次为“9,9,8,16,45,9,78”。该程序段执行后,变量c的值是()
点击查看答案
第3题
有如下VB程序段:a(1) = 1For i = 2 To 6 Randomize a(i) = a(i - 1) + Int(Rnd * 5 + 1) If a(i) Mod 2 = 1 Then a(i) = a(i) \ 2 + 1 Else a(i) = a(i) / 2 End IfNext i执行程序后,a数组各元素可能是()
A.1 3 4 6 7 9
B.1 2 0 3 5 6
C.1 2 3 4 5 4
D.1 3 4 5 1 1
点击查看答案
第4题
有如下VB程序段:a = 3b = 2If a**2> b**3 Thena = b + 3End If该程序段运行后,变量a的值为()
点击查看答案
第5题
有如下VB程序段:s=0For i=1 To 5S=s+1Next i该程序段执行后,i和s的值分别为()
点击查看答案
第6题
有如下VB程序段:Dim c As String, a As Booleana = FalseIf Not a Then c = Chr(Asc("A") + 2) Else c = Chr(Asc("A") + 3)该程序段执行后,变量c的值为()
点击查看答案
第7题
某二分查找程序,其VB代码如下:m = Int(Rnd*20) + 1s = 1∶t = 10∶str1=""Do While s < t If a(s) + a(t) = m Thenleft = a(s)right = a(t)s = s + 1t = t - 1 ElseIf a(s) + a(t) < m Thens = s + 1∶str1 = str1 + "R" Elset = t - 1∶str1 = str1 + " L " End IfLoop数组元素a(1)到a(10)的值依次为“1,4,4,5,5,6,7,8,8,9”,则str1的值不可能是()
A.LLLLLLLLLL
B.LLR
C.RLLLR
D.RRRRRRRRR
点击查看答案
第8题
有如下VB程序段Dim x As Integer, y As Integerx = 2: y = 4If x = y Then x = x + 2 Else y = y + 2该程序段运行后x,y的值为()
点击查看答案
第9题
有如下VB程序段:s = 0For i = 1 To 15s = s + i Mod 2Next iLabel1.Caption = Str(s)该程序运行后,在标签Label1中显示的是()
点击查看答案
第10题
有如下VB 程序段:s = 1For i = 2 To 10 Step 3 s = s + iNext i则该程序段执行后,变量s 和i 的值分别是()
A.16, 11
B.15, 13
C.55, 11
D.25, 13
点击查看答案