有如下VB程序段：Dima(1To6)AsIntegern=6：i=1DoWhilei<=nx=Int(Rnd*10)+1IfiMod2=xMod2The_刷题宝

题干

有如下VB程序段：
Dim a(1 To 6)As Integer
n=6：i=1
Do While i <=n

x=Int(Rnd * 10)+1

If i Mod 2=x Mod 2 Then

a(i)=x
i-i+1
Else
a(n)=x
n=n-1
End If
Loop执行该程序段后，在下列选项中，a数组各元素的值可能是（）

A．3，4，0，6，6，8	B．1，8，9，11，1，5
C．2，5，8，6，7，10	D．5，3，3，7，7，3

上一题下一题 0.99难度选择题更新时间:2020-03-30 09:43:15

答案(点此获取答案解析）

同类题1

下列Visual Basic表达式的值等于2的是（）

同类题2

下列语句没有计算功能的是( )

同类题3

下列表达式的值不等于 6 的是（）

A．Int(6.9)	B．Len("我和我的祖国")
C．Sqr(Abs(Int(-35.6)))	D．Asc("K") - Asc("F")

同类题4

小王编写了一个进制转换程序，实现如下功能：在文本框 Text1 中输入一个二进制数，单击 “计算”按钮 Command1，在文本框 Text2 中将显示出其对应的十六进制数。程序运行界面如下图所示：

（1）要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在______（单选，填字母：

A．Command1_click /

B．Text1_click /

C．Form_load）事件处理过程中添加语句 Text1.Text= ""

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click（）
Dim s As String, s1 As String, t As Integer, c As Integer Const code = "0123456789ABCDEF"
s = Text1.Text
t = 0: s1 = ""
For i = Len(s) To 1 Step -1
c = Val(Mid(s, i, 1))
t = t + c * 2 ^ ((Len(s) - i) Mod 4)
If (Len(s) - i + 1) Mod 4 = 0 Or ①_______________Then
______________②
t = 0
End If
Next i
Text2.Text = s1
End sub
（3）如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为________。

同类题5

VB语句：x = Int(Rnd * 100 + 0.5)的功能是( )

A．返回0,100)的随机整数x

B．返回0,100的随机整数x

C．返回0,101的随机整数x

D．返回(0,101)的随机整数x

相关知识点