- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省高中信息技术算法及VB语言基础单元检测

有如下VB程序段：

Dim i As Integer, Sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

Sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

a(i) = a(i+2)-a(i+1)

b(i) = b(i+2)-a(i)

If b(i) Mod 3 = 0 Then Sum = Sum + b(i)

Next i

Textl .Text = Str(Sum)

该程序段运行后，文本框text1中显示的内容是（）

A、39 B、30 C、-9 D、12

举一反三

设有以下定义语句：

Dim min As Single ,  d2 As Double , abc As String

则变量min的类型是({#blank#}1{#/blank#}) ，变量d2的类型是({#blank#}2{#/blank#}) ，变量abc的类型是({#blank#}3{#/blank#})。

A.可变类型   B.单精度型   C.双精度型   D.字符串型

小明编写某 VB 程序，其功能如下：文本框 Text1 里输入数学表达式（假设表达式的

长度小于等于 100），在列表框 List1 里输出所有配对括号在表达式中的位置。例如在文本框 Text1 里入：“12*(3-(1+2))*3”，程序运行效果如图所示。

实现上述功能的 VB 代码如下，在划线的地方填入合适代码，完善程序。Private Sub Command1_Click()

Dim s As String

Dim a(1 To 100) As Integer

Dim i As Integer, top As Integer s = Text1.Text

i = 1 top = 0

Do While i <= Len(s)

If Mid(s, i, 1) = "(" Then

top = top + 1

{#blank#}1{#/blank#}

End If

If Mid(s, i, 1) = ")" Then

List1.AddItem Str(a(top)) + " " + Str(i)

{#blank#}2{#/blank#}

End If

i=i+1 Loop

End Sub

在Visual Basic中，要定义一个一维数组a，用于存储15名铅球运动员的成绩数据（以米为单位，精确到0.01米），则正确的数组定义语句是（）

下列程序运行后的输出结果是（）

DIM A(6) AS INTEGER

FOR I= 1 TO 6

A(I)= I

NEXT I

PRINT A(I)

在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（）

Private Sub Form_Click()

Dim arr(1 to 10, 1 to 10） As Integer

Dim i As Integer, j As Integer

For i =2 To 4

For j = 2 To 4

arr(i, j） = i * j

Next j

Next i

Label1.Caption =str(arr(2, 2）+ arr(3, 3))

End Sub

有如下 Python 程序段：

import random s="12345678"

g=""

for i in range(3):

n=len(s)

pos=random.randint(1,n-1)

g+=s[pos]

s=s[0:pos]+s[pos+1:n] print(g)

在该程序段执行时，变量 g 的值可能为（）

相关试卷

公司介绍

服务介绍

帮助中心