为了容易记忆密码，应使用电话号码、身份证号或生日等信息作为密码。

下列VB 表达式中，可取到最小值中，最小的为（  ）

顺序控制结构的程序执行过程是(     )依次执行的。

在信息技术的五次革命中，文字的产生使人类的思维能力及表达能力发生了革命性飞跃。最终使人与动物彻底区分开来。

某Access数据表，如图所示，下列说法正确的是（  ）

使用UltraEdit软件观察字符“hi 人工智能AI”的内码，部分界面如图所示。

下列说法正确的是（    ）

填写n阶（n为奇数）幻方的口诀：

1居上行正中央，依次斜填切莫忘，上出框界往下写，右出框时左边放，重复便在下格填，出角重复一个样。

1）1居上行正中央：数字1放在首行最中间的格子中；

2）依次斜填切莫忘：向右上角斜行，依次填入数字；

3）上出框界往下写：如果右上方向出了上边界，就以出框后的虚拟方格位置为基准，将数字竖直降落至底行对应的格子中；

4）右出框时左边放：同上，向右出了边界，就以出框后的虚拟方格位置为基准，将数字平移至最左列对应的格子中；

5）重复便在下格填：如果数字｛N｝右上的格子已被其它数字占领，就将｛N＋1｝填写在｛N｝下面的格子中；

6）出角重复一个样：如果朝右上角出界，和“重复”的情况做同样处理

Dim a(1 To 1000) As Integer

Dim k As Integer, i As Integer, s As String

Dim n As Integer, j As Integer

Function geshi(s1 As String, x As Integer) As String

‘此函数用于输出时补足空格对齐

    Do While Len(s1) < x

        s1 = " " + s1

    Loop

    geshi = s1

End Function

Private Sub Command1_Click() '生成幻方

    List1.Clear: Text1.Enabled = False: Command1.Enabled = False

    Command2.Enabled = True: Command4.Enabled = True

    n = Val(Text1.Text)

    k =

    a(k) = 1

    num = 2

    Do While num <= n * n

        If k < n Then        '当前位置是第1行，但不是最右边列

            k = k + (n - 1) * n + 1

        ElseIf k = n Then        '当前位置是第1行最右边列

            k = k + n

        ElseIf  Then         '非第1行的最右边列时

            k = k - 2 * n + 1

        Else                  '一般情况

            k = k - n + 1

        End If

        If a(k) <> 0 Then k = k + 2 * n - 1    '新位置处已有数字时

        a(k) =

        num = num + 1

    Loop

    s = ""

    For i = 1 To n * n

        s = s + geshi(Str(a(i)), 5)      '每项输出宽度为5个字符的位置

        If i Mod n = 0 Then

            List1.AddItem s

            s = ""

        End If

    Next i

    List1.AddItem "--------------------------------"

End Sub

信息必须经过科学而系统的加工提炼后才能上升为知识。

在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是。

某Flash软件制作的动画作品，其中“main”场景一开始就出现“背景”图片和“播放”按钮，最后动画停止播放，用户只有单击按钮图层的“播放”按钮才能回到“main”场景第一帧并开始播放。部分界面如下图所示，下列说法正确的是（  ）

“你有一种思想，我有一种思想，彼此交换，我们每个人就有了两种思想，甚至多于两种思想”这说明信息具有（    ）

计算机在0～1000中随机产生一个数，试试看你要多少次才能猜中，阅读下列程序.

import random

num=random.randint(1，  ①  )

mynum=int(input('请输入mynum='))

n=1

while not(  ②  ):

    n= n+1

    if mynum<num:

        print("输入的数小了")

    elif mynum>num:

        print("输入的数大了")

    print("输入不正确，请再次输入")

    mynum=int(input('请输入mynum='))

print("你猜对了！"，"一共用了"，n，"次") 

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

下列说法正确的是（    ）

下列工具可以采集到音频信号的是（  ）。

某算法的部分流程图如图所示，A执行这部分流程后，变量s的值是（  ）

有VB编写的程序如下：

Dim a(0 To 9) As Integer, t as Long

t=Val(Text1.Text)

Do While t<>0

 a(t Mod 10) = 1

 t = t \ 10

Loop

For i = 0 To 9

 x = x + a(i)

Next i

Text1中输入10242048，则程序执行后x的值为（  ）

【加试题】随机数排序程序。程序功能如下：窗体加载时生成[10，100]范围内的随机整数10个存储在数组a中,并在列表框List1中显示原始数据，单击“排序”按钮，这10个数据按降序排序后显示在列表框List2中。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 10) As Integer

Private Sub Command1 Click()

Dim i As Integer, j As Integer, x As Integer p = True

i = 1

    Do While i <= 9 And p p= False

    For j = 10 To i + 1 Step -1

        If  Then    '①

            k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True

        End If

    Next j

    i = i + 1

Loop

For i = 1 To 10

    List2.AddItem Str(a(i)) Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

List1.Clear

Randomize         '初始化随机函数 Rnd

For i = 1 To 10

    a(i) =     '②

List1.AddItem

Str(a(i))

Next i

End Sub

① ② 

请将下列数学表达式写成计算机程序设计语言表达式

小张老师给同学们写了一个小程序来让同学们体验模糊查找。在List1中已经有了某班学生的姓名。从text1中输入要查找的关键字，点击command1查找按钮，从List2中能列出带有要查关键字的所有姓名。

程序代码如下：

Private Sub Command1_Click()

Dim Sname As String, Skey As String    ‘Sname 保存姓名，Skey保存关键字

Dim i As Integer, j As Integer, n As Integer   ‘n关键字的长度

Skey = Text1.Text

n = Len(Skey)

List2.Clear

For i = 1 To List1.ListCount     ‘ListCount是列表框中项目的个数

    Sname = List1.List(i - 1)     ‘将List1中的第i-1项赋值给Sname

    For j = 1 To     ①   

    If Skey =     ②       Then

        List2.AddItem Sname

        Exit For

    End If

    Next j

Next i

If      ③     = 0 Then List2.AddItem "没有找到带<" & Skey & ">的名字。"

End Sub

为了及时获取儿童所在的位置，智能儿童手表通常同时采用GPS定位、移动基站定位和（    ）

小明在年终同学聚会后，需要把用数码相机拍摄的聚会合影发送给各地的同学，但是照片的大小超过了目前所有邮箱对附件的限制，为了能够快捷顺利的发送此照片，比较好的方法是（   ）