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

在VB中，下列选项属于字符串型数据的是（  ）

编写VB程序,实现如下功能:输入年月日,求该日是这一年的第几天。程序运行时,在文本框“TextNian”中输入年，在文本框“TextYue”中输入月，在文本框“TextRi”中输入日。单击“点击计算”按钮“ButtonRun”进行计算，结果输出到文本框“TextAnswer”中。程序界面如图所示。

请回答下列问题：

有如下程序段：

i = 1

Do While i<=6

    a(i) = Int(Rnd * 10) + 1

    If a(i) Mod 2 = i Mod 2 Then i = i + 1

Loop

For i = 1 To 2

    k = 1

    For j = 1 To 6 - i * 2

        If a(j) * k > a(j + 2) * k Then

            t = a(j): a(j) = a(j + 2): a(j + 2) = t

        End If

        k = -k

    Next j

Next i

执行该程序段后，在下列选项中，a(1)~a(6)各元素值可能的是（  ）

随机生成15个100以内[1,100]的正整数并显示在一个文本框中，再点击交换按钮将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调……）。小叶设计的运行界面和程序代码如下：

Dim a(1 To 15) As Integer

Private Sub Form_Load()

  Dim i As Integer, t As Integer

  Dim s1 As String, s2 As String

  Randomize

  s1 = ""

  For i = 1 To 15

    a(i) =  ①    

    s1 = s1 + Str(a(i))

  Next i

  Text1.Text = s1

End Sub

Private Sub Com1_Click()

  s2 = ""

  For i = 1 To 15

    s2 =  ②    

  Next i

  Text2.Text = s2

End Sub

有如下VB程序段：

For i= 1 To 10

    b(i)=0

Next i

For i= 1 To 5

    For j= 1 To 10

        If b(i) <a(j) Then

          b(i)=a(j)

          t=j

        End If

    Next j

    a(t)=0

    List 1.Additem Str(b(i) )

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List 1中依次输出的数据是（  ）

【加试题】有如下VB程序段：

For i= 1 To 6

  a(i) =Int(Rnd*10) + 1 

Next i

For i= 1 To 5

    If i Mod 2= 1 And a(i) >a(i+1) Then

      t=a(i)：a(i)=a(i+1)：a(i+1)=t

    Else

      a(i)=a(i)+1

    End If

Next i

执行程序后，a数组各元素可能是（  ）

某考试的多选题有“A、B、C、D、E”5个答案选项。

例如，标准答案为“ABE”，则对应得分表如下所示。

学生答案	ABE	AB	AE	BE	A	B	E	AC	......
字符串	11001	11000	10001	01001	10000	01000	00001	10100	......
十进制数(x)	25	24	17	9	16	8	1	20	......
ans(x)	2	1	1	1	1	1	1	0	0

小温依据上述描述设计了“多选题阅卷”的VB程序，实现如下功能：在文本框Text1中输入标准答案（大写字母），先单击“初始化”按钮Command1，在数组ans中生成所有答案组合对应的分值，然后单击“阅卷”按钮Command2，从数据库中读取学生的答案并进行阅卷，在列表框List1中显示得分结果。程序运行界面如图所示。

有如下VB程序段：

i = 1

Do While i < = 6

  a（i） = Int（Rnd* 10） + 1

  If a（i）Mod 2 = I Mod 2 Then

    i=i-1

  Else If I Mod 2 = 0 Then

    a（i） =a（i - 1） + a（i）

  End If

  i=i+1

Loop

执行该程序后，a（1）-a（6）各元素不可能的值是(    )

在VB中，用变量存储考试的平均得分（保留2位小数），则变量的数据类型应为（  ）

用变量myBook存储书籍名称（如“唐诗三百首”），则变量myBook的数据类型应为（  ）

有如下VB程序：

Private Sub Command1_Click( )

  Dim a（0 To 4）As Integer

  Dim i As Integer

  a（4）=Val（Text1.Text）

  For i=3 To 1 Step-1

    a（i）=a（i+1）/2

  Next i

  Text1.Text=Str（a（i+1））

End Sub

在文本框Text1中输入“128”，连续单击2次按钮Command1后，文本框Text1中显示的内容是（  ）

已知字符串型数组a（下标为1到2*n），在a（2*i-1）中保存了某班第i个同学的姓名，在a（2*i）中保存了第i个同学的技术成绩，并且a（2），a（4）…，a（2*n）是按成绩数值由大到小排列的，且各不相同，现按对分查找的方式查找成绩是key的同学的姓名，假设成绩是key的同学必定存在，部分VB程序如下：

i=1：j=n：f=False

Do While i<=j and Not f

    ___________

    If Val（a（m））=key Then

      Search=m：f=True

    Elself Val（a（m））>key Then

        i=m\2+1

    Else

        j=m\2-1

    End If

Loop

Text2.Text="成绩是"+Str（key）+"的同学叫："+a（m-1）

程序画线处应填入的代码为（  ）

float属于的数据类型（     ）

  常见的数据计算有数值数据、、日期/时间数据、逻辑数据。

int属于的数据类型（    ）

某对分查找算法的VB程序段如下：

Key = Val(Text1.Text): i = 1: j = 10

Do While i <= j

    m = (i + j + 1) \ 2

    t(m) = 2

    If Key <= a(m) Then

        j = m - 1

    Else

        i = m + 1

    End If

Loop

For i = 1 To 10

    s = s + t(i)

Next i

数组元素t(1)至t(10)初值均为0，数组元素a(1)至a(10)的值依次为“4，7，9，11，16，19，22，24，28，29”，在文本框Text1中输入待查找数，执行该程序段后，下列选项中，s的值可能的是（   ）

阅读材料，完成下题。

用计算机对《红楼梦》进行词频统计的研究，用计算机模拟水稻高产栽培的模型，“神州飞船”发射指挥中心使用大量的计算机设备对飞船的指挥和控制等等，无不体现计算机的魅力和神秘莫测！计算机像人类的大脑一样充满智慧，像神仙一样神机妙算，这些都是归于计算机程序的功劳。

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

object=["石榴"，1，"香蕉"，"橙子"，"梨子"]

del object[1] 

print (object)

有如下Python程序段：

a = [2,1,3,4,5]

c = 0

for i in range(2,len(a)):

if a[i-2] + a[i-1] == a[i]:

c = c + 1

print(c)

该程序段运行后，最后输出的内容是（    ）

（     ）数据有两个值：True，false。