常见数据类型、数组知识点题库

下列可作为Visual Basic常量名的是：（）

A . you B . As C . x+y D . 2b

下列能作为Visual Basic变量名的是（）

A . b+7 B . Mod C . 3x D . T_1

VB中保存工程文件的文件扩展名为( )

A . vbp B . frm C . doc D . pas

在Visual Basic中，下列能作为变量名的是（）

A . If B . Not C . Int D . Flag

有 VB 程序段如下：

s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "0" And ch <= "9" Then

m = Asc(ch) - Asc("0") + 1

a(m) = a(m) + 1

End If

Next i

For i = 1 To 10

If a(i) > 1 Then n = n + i

Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（）

A . 2 B . 4 C . 8 D . 10

下列可作为Visual Basic变量名的是（）。

A . a#a B . 4a C . DIMA D . Const

给定一字符串(全部由小写字母组成)，有n个字符(1≤n≤100)，将每个字符存入到数组a中，有以下两种操作：

操作1：在文本框中分别输入L，R，T(1≤L≤R≤n)，对数组下标为L到R之内(包含L和R)的字符做相应的字符加密操作(1≤T≤100)。

操作2：在文本框中输入M(1≤M≤n)，在标签中输出a(M)的值。

为了提高算法的效率，小明设计了如下算法，以n=10为例，将n个元素依次分成 $\text{[math]}$ 段( $\text{[math]}$ 表示对 $\text{[math]}$ 向下取整)，每段的元素个数为 $\text{[math]}$ ，若最后有不足 $\text{[math]}$ 个元素，则自成一段。给每段设置一个标记，如下表所示。

①对于操作1，若输入的L，R属于同一段，则直接对a(L to R)的每个元素的ASCII码进行后移T位的操作。如输入4，6，3，则第2段中的每个字符变为k，r，q，操作后如下表所示。

②对于操作1，若输入的L，R不属于同一段，则对元素a(L)所在段中从a(L)开始到该段最后一个元素为止的每个字符的ASCII码做后移T位的操作，并对元素a(R)所在段中从该段第一个元素开始到a(R)为止的每个字符的ASCII码做后移T位的操作，对a(L)元素所在段的下一段开始到a(R)元素所在段的上一段为止的每个段标记值增加T，这些段中的元素值保持不变。如在上表的基础_上再输入1，8，2，则第1段的3个字符和第3段中的前2个数都做相应的字符后移2位的操作，第2段的段标记值增加2，如下表所示。

③对于操作2，若输入M的值为4，则输出a(4)的值，若a(M)所在的段标记为奇数，a(M)的值为该数组元素的值，否则输出a(M)对应的大写字母的值，如a(4)=H。程序运行如下。请回答下列问题：

（1）若数组元素为“p，y，t，h，o，n，j，a，v，a”，依次进行以下3次操作后a(6)的值为。
操作1：在文本框Text1，Text2，Text3中依次输入1，8，3后，点击按钮Command1

操作1：在文本框Text1，Text2，Text3中依次输入7，9，2后，点击按钮Command1

操作2：在文本框Text4中输入6后，点击按钮Command2
（2）请在划线处填入合适的代码。
Const n=10

Dim a(1 To n)As String

Dim dbj(1 To n)As Integer    ‘依次表示每段的标记值

Dim bk As Integer       ‘表示每段的元素个数.

Private Sub Form_Lond()

bk = Int(Sqr(n))

‘读取数据，并存储到数组a中，代码略

‘读取数据，并存储到数组dbj中，代码略

End Sub

Function bl(x As Integer)As Integer   ‘bl函数返回数组元素a(x)的段编号

bl=

End Function

Private Sub Command1_Click()

Dim L Ax Integer, R As Integer, t As Integer

L= Val(Text1.Text)

R= Val(Text2.Text)

t= Val(Text3.Texr)

If bl(L)= bl(R) Then

    For i =L To R

      a(i)= Chr((Ase(a(i))- Ase("a")+t) Mod 26+97)

    Next i

Else

    For i=L To bl(L)*bk

     a(i) = Chr((Ase(a(i))- Ase("a")+1) Mod 26+97)

Next i

For i= bl(L)+ 1 To bl(R)-1

dbj(i) = dbj(i) + t

Next i

For i =

      a(i) = Chr((Ase(a(i))-Ase("a") + 1) Mod 26 + 97)

    Next i

End If

List1. AddItem Str(L) +"," + Str(R) + "," + Str(t) +“加密完成!”

End Sub

Private Sub Command2_Click( )

Dim M As Integer

Dim jg As Suring

M= Val(Text4. Tex1)

If dbj(bl(M)) Mod2 = 0 Then

    Jg=

Else

    jg= a(M)

End If

Labell. Caption =“经过一系列操作后. a(” + Str(M) +“)的值为:“+ ig

End Sub

以下程序段运行后，x和st的值分别是（）。

Dim x As Integer

Dim st As String

x=123+678

st=“123”+”678”

A . 123678 “123678” B . 801 “123678” C . 123678 “801” D . 801 “801”

以下流程图中username为字符串型变量，password为数值型变量。若输入admin，12356，算法执行结果是（）。

A . Welcome B . No user exist C . Error D . Wrong password

有如下VB自定义函数，该函数返回值的数据类型是（）

Function f（x As Integer，y As Single）As Boolean

f=x<y

End Function

A . 逻辑型 B . 整数型 C . 单精度实数型 D . 双精度实数型

有如下VB程序段：

For i=1 To 10

f=i Mod 2

If f=0 Then a（i）=0 Else a（i）=1

For j=1 To i

If f=0 Then a（i）=a（i）+j Else a（i）=a（i）*j

Next j

Next i

执行该程序段后，数组元素a（4）的值为（）

A . 10 B . 6 C . 4 D . 1

Python中的数据类型float表示（）

A . 布尔型 B . 整型 C . 字符串型 D . 浮点型

已知 x = [3, 5, 7] ，那么执行语句 x[1:] = [2] 之后，x 的值为。

List1=["a"，3，"b"，10]

List1.pop（3）

print（list1）的值为（）

A . [3，10] B . ['a'，3，'b'] C . ["b"，10] D . [3，"b"]

下列不属于基本数据类型的是（）

A . 浮点型 B . 整型 C . 布尔型 D . 复数类型

下列代码的执行结果是（）

list1=[1，2，3，4]

del list1[1:3]

print(list1)

A . [1，2] B . [2，3] C . [1] D . [1，4]

下列关于变体类型的叙述正确的是（）。

A . 变体不是一种数据类型 B . 变体是赋给某一种类型数值后，就不能再赋给它另一类型数值 C . 该种数据类型在使用过程中是可以变化的，VB自动完成类型转换 D . 变体的空值就表示该变体的值为0

从离地500米的空中自由落下一个小球，求从开始落下的时刻起，小球在最后1秒内的位移（重力加速度g以9.8米/秒2计）。程序如下，回答以下问题。

import math

h = 500

g = 9.8

t = math.sqrt（2*h/g）

hx = g*（t-1）*（-1）/2

hh = h-hx

print（“小球最后1秒下落的位移是：”, hh, "m"）

（1）该程序代码中使用了库，库的名称是（）。

A . Limport B . math C . sqrt D . Print
（2）该程序代码中使用了常量，它的名称是（）。

A . h B . t C . 500 D . Hh
（3）该程序代码中使用了变量hh，它的数据类型是（）。

A . int B . float C . 列表 D . 字符串
（4）该程序中print（“小球最后1秒下客的位移是：”，hh，“m”），其中“m”的数据类型是（）。

A . int B . float C . 列表 D . 字符串
（5）该程序使用了物理公式计算空中自由落下个小球的位移，采用的算法处（）。

A . 解析算法 B . 穷举算法 C . 递归法 D . 选择排序

有如下VB程序：

Dim s1 As String, s2 As String, n As Integer, t As Integer

Dim a(128) As Integer

s1 = Text1. Text : n = Len(s1)

s2 =""

For i=1 To n

t = Asc(Mid(s1, i, 1))

a(t)=a(t)+1

Next i

For i=1 To 128

Do While a(i)> 0

s2 = s2 + Chr(i)

a(i)=a(i)-1

Loop

Next i

Text2.Text = Mid(s2,5,1)

若Text1中输入的字符串为“He1lo535Study" (不包括引号) ，运行上述程序后，Text2中显示的结果为( )

A . o B . e C . S D . 5

某会务组根据参会者到达指定上车点时间和每位参会者可以等待的时间信息，安排车辆接送参会者去宾馆(不考虑车子座位数量)。参会者到达上车点的时间和可以等待的时间用长度为7的字符串表示，例如“08：12 2”表示参会者当天8点12分到达上车点，最多等待2分钟(每个人的等待时间都小于10)，那么该参会者最晚8点14分出发去宾馆。

编写VB程序，统计接送n个参会者所需的最少车辆数。运行程序，列表框List1中显示所有参会者提交的信息，按到达时间先后排列。单击“统计”按钮Command1，在文本框Text1 中显示所需的最少车辆数。程序运行界面如图所示。

（1）如图所示，接送所有参会者最少需要辆车
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Dim n As Integer

Dim a(1 To 100) As String

Dim b(1 To 100) As Integer

Dim c(1 To 100) As Integer

Dim fg(1 To 100) As Boolean

Private Sub Form_Load()

    '读取n个参会者提交的信息，依次存入a(1)~a(n)

    '将a(1)~a (n)按参会者到达时间排序，并在List1中显示，代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As String

    Dim sum As Integer, q As Integer

    For i=1 To n

        b(i) = T(Mid(a(i), 1, 5))

        c(i) = b(i) + Int Mid(a(i), 7, 1))

        For j=1 To 2 Step-1

            k=

            If c(k) > c(j) Then

                q=b(k)：b(k)=b(j)：b(j)=q

                q=c(k)：c(k)=c(j)：c(j)=q

           Else

                Exit For

           End If

        Next j

    Next i

    sum=0

    For i=1 To n

        If fg(i) = False Then

            For j=1 To n

                If Then

                    fg(j) = True

                End If

            Next j



        End If

    Next i

    Text1.Text = str (sum)

End Sub

Function T(str1 As String) As Integer

    T = Int(Mid(str1,1, 2)) * 60 + Int(Mid(str1, 4, 2))

End Function

常见数据类型、数组 知识点题库

常见数据类型、数组知识点题库