相关试卷

Function fact(n As Integer) As String

    If n = 1 Then

        fact = fact & 1

    Else

        fact = fact(n \ 2) & n Mod 2

    End If

End Function

Private Sub Command1_Click()

    Dim x As String, i As Integer, r As Integer, x = Text1.Text

    For i = 1 To Len(Text1.Text)

        If Mid(x, i, 1) = "." Then Exit

    Next i

    r = Val(Mid(x, i + 1, Len(Text1.Text) - i))

    Text2.Text = fact(r)

End Sub

在文本框Text1 中输入 2019.70，则执行程序段，在文本框 Text2 中显示的内容是（   ）

①收集反馈信息，评价修改     ②确定主题，设计目标

③规划内容结构，收集加工素材 ④选择适当工具，实际制作

比较合理的顺序是（   ）

下列说法正确的是（  ）

⑴3个字符为一组，将它们的ASCII值转换成二进制，连接后得到24位二进制数。

⑵将得到24位二进制数重新分组，6位一组，共四组，然后在每组的数字前面补上两个零，得到32位二进制数。

⑶最后将得到32位二进制数，从低位往高位的顺序，切割成8位一组，分别将每组转换成十进制数。

现有字符的内码如下：

如果按上述规则加密，则“178”（引号中内容）加密后的结果为（    ）

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

李华编写了实现上述功能的程序，程序功能如下：程序运行时，在文本框Text1中输入n（1<=n<=10）单击“产生”按钮Command1产生n×n个随机数，随机数的范围为[0,9],随机存储在数组a中，并以矩阵的形式在列表框List1上显示。单击“排序”按钮Command2，对矩阵以“行”为单位进行升序排序，并在列表框List2输出排序后的矩阵。在程序运行界面如下图所示。

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Dim n As Integer

Dim a(1 To 100) As Integer

Private Sub Command1_Click( )

    Dim i As Integer, s As String

    s = ""

    For i = 1 To n * n

        s = s + Str(a(i))

        If i Mod n = 0 Then

            List1.AddItem s

            s = ""

        End If

    Next i

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer, t As Integer

    Dim s As String

    s = ""

    For i = 1 To n * n

        k = i

        For j = i + 1 To

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

        Next j

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

        If i Mod n = 0 Then

            List2.AddItem s

            s = ""

        End If

    Next i

End Sub