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

下列(   )是日期型常量。    

小明编写某 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

         

     End If

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

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

         

     End If

     i=i+1 Loop

End Sub

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

      flag = True : i = 1

      Do While i <= 6

          x = Int(Rnd * 100) + 1 

          If flag Or x >50 Then

               a(i)=x

               flag = Not flag

               i = i + 1

          End if

      Loop

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

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

i = 1: j = 10: temp = a(5)

Do While a(j) > temp j = j - 1

Loop

Do While a(i) < temp i = i + 1

Loop

temp = a(i) ：a(i) = a(j)：a(j) = temp

数组元素a(1)到a(10)的值依次为“36 91 36 17 93 99 2 9 97 97”，执行该程序段后，a(5)的值为（  ）

已知数轴上有一条长度为L(L为偶数)的线段，左端点在原点，右端点在坐标L处。有n个不计体积的小球在线段上，开始时所有的小球都处在偶数坐标上，速度方向向右，速度大小为1单位长度每秒。当小球到达线段的端点（左端点或右端点）的时候，会立即向相反的方向移动，速度大小仍然为原来大小。当两个小球撞到一起的时候，两个小球会分别向与自己原来移动的方向相反的方向，以原来的速度大小继续移动。小王设计了一个模拟碰撞的小球的程序，其功能为：在文本框Text1、Text2和Text3中分别输入线段长度L、小球数量n以及运动时间t，在文本框Text4中输入n个小球的初始坐标位置，单击“求解”按钮Command1，计算t秒之后，各个小球的位置，并在标签框Label5上显示结果。

下列VB程序实现数字字母混合序列分离后分别排序，最后又合并输出。具体算法如下：在文本框Text1输入若干组混合序列，每组序列中仅包含一组字母和一个多位数字，序列之间用逗号隔开，以逗号结束。单击“排序”按钮command1，把每组序列中的字母和数字分开，并分别排序，最后在列表框list1输出。排序规则如下：所有数字按从小到大升序排序，字母序列按长度升序排序，若长度相同，直接按字母序列大小升序排序（按字母的ASCII码排序，“A”<“Z”<“a”<“z”）。实现算法的部分程序界面如图所示，VB程序代码如下，回答下列问题：

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer

Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String

s=text1.text

i = 1: k = 1: tmp1 = 0: tmp2 = ""

Do While i <= Len(s)

      c = Mid(s, i, 1)

      If c = "," Then

         a(k) = tmp1: b(k) = tmp2

         tmp1 = 0: tmp2 = ""

              ①    

      Else

        If  Then 

           tmp2 = tmp2 + c

        Else

         tmp1=tmp1*10+val(c)

        End If

      End If

      i = i + 1

    Loop

    For i = 1 To 5

      For j = 1 To 6 - i

        If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1

    If Len(b(j)) > Len(b(j + 1)) Or      ②       Then

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

        End If

      Next j

    Next i

    For i = 1 To 6

      List1.AddItem Str(a(i)) + b(i)

    Next i

    End Sub

有如下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（1）~a（6）各元素可能的值是（  ）

有如下VB语句：Dim a (-10 To 10) As Integer，以的理解有误的是（  ）

有如下VB程序段:

For i=2 To 5

  j = i

  k = a(j)

  Do While a (j-1) < k And j > 1

    a(j) = a (j-1)

  Loop

  a (j) = k

Next i

数组元素a(1)～a(5)的值依次为79，20，34，5661，该程序段运行后，数组元素a(1)～a(5)的值依次是（  ）

杨辉三角是二项式系数在三角形中的一种几何排列，以10行的杨辉三角为例，如图所示。

某同学设计了以下程序用来输出杨辉三角。在文本框Text1里输入需要输出的杨辉三角的行数n，单击“打印”按钮Command1后，在列表框List1中输出n行的杨辉三角。

已知数组a中存储了某次考试某一指定科目的相关数据，数组a各元素的含义如表所示：

数组元素	数组元素的含义
a(1)	存储班级数n
a(2)	从a(2)到a(n+1)依次存储1、2、…、n班学生的人数
…
a(n+1)
a(n+2)	从a(n+2)开始依次存储1班每个学生的单科成绩，2班每个学生的单科成绩、……、n班每个学生的单科成绩
…
…

张老师依据数组a中的相关数据编写了VB程序来统计各班平均分。

程序功能如下：在文本框Text1中输入科目名称，单击“读取数据库”按钮Command1程序从数据库读取数据；单击“开始统计”按钮Command2程序进行统计处理，结果输出在列表框List1中。程序运行界面如图所示。

某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：

′待排序数据已存储在数组a中（a(1)～a(n)）

For i = 1 To n - 2

k = i

For j =                ′①

If a(j) > a(k) Then k = j

Next j

If k <> i Then t = a(i): a(i) = a(k): a(k) = t

Next i

For i = 1 To n \ 2

j = 2 * i - 1

If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next i

For i =                ′②

t = a(i): j = i - 1

Do While t > a(j)

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

Loop

                      ′③

Next i

上述程序段中 3 处方框处的代码分别为 （   ）

下列关于VB中数组的叙述，错误的是（  ）。

有如下VB程序段：

Dim a(1 To 10) As Integer

Dim i, j As Integer

For i = 1 To 10

    j = i

    Do While j <= 10

        If j Mod i = 0 Then

            a(j) = a(j) + 1

        End If

        j = j + 1

    Loop

Next i

Text1.Text = Str(a(3))

数组a各元素初值为0，执行上述程序段后，文本框Text1中显示的内容为（    ）

小岩设计了一个顺时针旋转矩阵的程序，其功能为：运行程序时，在文本框Text1中输入矩阵规模n，点击“产生矩阵”按钮Command1，在列表框List1中显示一个n*n的矩阵，该矩阵数据由从1开始的连续自然数组成。点击“旋转矩阵”按钮Command2，该矩阵顺时针旋转90度并显示在列表框List2中，此后每点一次“旋转矩阵”按钮Command2，列表框List2中显示的矩阵顺时针旋转90度。请完成程序填空。

Dim n As Integer

Dim st As String

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Command1_Click()

    '产生矩阵，代码略

End Sub

Private Sub Command2_Click()      '旋转矩阵

    For i=1 To n      '行

        st= “”

        For j= 1 To n            '列

            b((i-1)*n+j)=

            st=st+adj(Str(b((i-1)*n+j)),3)

        Next j

        List2.AddItem st

    Next i

End Sub

Function adj(a As String, n As Integer) As String

    '在字符串a前加入适当的空格，使a的长度为n位，代码略

End Function

某用户预订了商品编号为“ID2315937”、单价为20元、数量为2，可将这3个不同类型的简单数据组织成一个复合数据类型元组。记作：BookInfo1=("ID2315937",20,2),下列选择正确的是(      )

有如下 VB 程序段：

Dim a(1 To 6) As Integer

Dim d(1 To 6) As Integer

a(1) = 10: a(2) = 21: a(3) = 28: a(4) = 11: a(5) = 12: a(6) = 30

Const n = 6

For i = n To 1 Step -1

    d(i) = 0

    For j = n To i +1 Step -1

        If a(j) > a(i) Then d(i) = d(j) + 1

    Next j

    If d(i) > Max Then Max = d(i)

Next i

Text1.Text = Str(Max)

执行该程序段，文本框Text1中显示的是（   ）

已知list=[“a”，”b”，1，2]，则list[-1]的值为（   ）

请把程序补充完整

age=float(input('请输入age='))     #输入年龄

=float(input('请输入HRrest='))      #输入安静心率

low=(220-age-HRrest)*0.6+ HRrest     #计算最适宜运动心率低值

high=(220-age-HRrest)*0.8+HRrest     #计算最适宜运动心率高值

print("最适宜的心率是：",low,"~",high)

input("运行完毕，请按回车键退出...")

有如下程序段：

Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum=6

a(11) = 49

For i=10 To 1 Step-1

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

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

Next i

Text1. Text = Str( Sum)

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