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

【加试题】有一组数据23、12、56、34、10分别存放在一组变量数组a(1)-a(5)中，以下程序执行后，i的值是（   ）

Dim a(1 To 5) As Integer

Dim f As Boolean

a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10

i = 1: f = True

Do While i <= 5 And f = True

  If a(i) = 56 Then f = False

  i = i + 1

Loop

Label1.Caption = i

表达式Len(“doodluck”)+2 Mod 3+Int(3.9999)的值为  （   ）

小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数， 如图所示，单击“计算”按钮 Command1，在文本框 Text1 中显示符合条件的个数，在列表框 List1 中显示符合条件的二进制数。VB 程序代码如下：

提示：本题“除 2 取余倒排法”的方法将十进制转化为二进制，算法如下： 例如十进制数“97”转化为二进制的过程如右图所示：

因此“97”二进制值为：1100001

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

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

有如下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中显示的内容是（  ）

变量名必须以打头。

下列程序段的执行结果为:（  ）

Dim M(10) as integer

For i = 0 To 10

M(i) = 2*i

Next i

Print M(M(3))

采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的VB程序段如下：

c = 1: s = 10

Do While c <= s

    For i = s To c + 1 Step -1
        If      Then

            t = a(i - 1): a(i - 1) = a(i): a(i) = t
        End If

    Next i
    For i=

        If     Then

            t = a(i + 1): a(i + 1) = a(i): a(i) = t
        End If

    Next i

    c = c + 1
    s = s - 1

Loop

上述程序段三个方框处的语句分别为（  ）

有如下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

Text1.Text=Sir（sum）

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

下列合法的变量名是（   ）

下列VB表达式中：⑴Sqr(x)  ⑵Text1.Text  ⑶Command1.Caption  ⑷“45”+“34”  ⑸45+34  值为字符串类型的是（  ）

有如下VB程序段：

For i=1 To 9

For j=10 To i+2 Step-1

If a(j)<a(j-2) Then

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

End If

Next j

Next i

数组元素a(1)到a(10)的值依次为“3，17，2，14，15，6，7，18，9，4”，执行该程序段后，数组元素a(8)中的值为（    ）

Python不支持的数据类型有（   ）。

某银行为了提升服务质量，需设计一个计算机程序，用于回答用户如下问题：“m元钱需要存多少年(m为大于等于5的整数)，才能得到至少k元本息?”假定该银行某款理财产品的储蓄和盈利方式为：①存期以年为单位，存款以元为单位；②不论存期的长短，年利率均为3.7%；③不计复利。

请用Python语言回答下列问题：

AB两个篮球队进行了多场比赛，现在要统计比分并确定获胜球队。计分规则是胜场多的队伍获胜，若胜场相同，则计算累计小分（小分=本队得分-对手得分），小分多获胜，若还是相同，则算平局。小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框Text1中，单击“统计”按钮command1，把两队每场按AB两队比分差降序显示在列表框list1中，同时在文本框Text2输出最终结果。部分程序界面如图所示。

Private sub command1_click()

    Dim a(1 to 20) as integer,b(1 to 20) as integer,i as integer

    Dim j as integer,t as integer,p as integer,k as integer,xiaofen as integer

    ‘从文本框读取AB两队各场的比分分别存数组a、b，场次k,代码略

    For i=1 to k-1

        For j= 1 to      ①      

            If     ②        then

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

                t=b(j):b(j)=b(j+1):b(j+1)=t

            End if

        Next j

    Next i

    p=0 : xiaofen=0

    For i=1 to k

        If a(i)>b(i) then     ③      

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

        List1.Additem str(a(i)) + “：”+ str(b(i))

    Next i

    If p*2>k or k=p*2 and xiaofen>0 then

        Text2.text = “A队获胜”

    Elseif  then

        Text2.text = “B队获胜”

    Else

        Text2.text = “两队平局”

    End if

End sub

从离地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”）

下面的程序，若想运行结果是Best Wishes to you!，则划线处代码可能是（      ）

s="Happy National Day!"

m=____

if m=="Happy":

    print("Happy to you!")

elif m=="National":

    print("Best Wishes to you!")

else:

    print("It's a fine Day!")

已知：S="杭州亚运 2022"，下列说法正确的是 （    ）

程序运行结果是：