2.3 周而复始的循环 知识点题库

① ②

Private Sub Command1_Click（）

Dim s As String, s1 As String, t As Integer, c As Integer

Const code = "0123456789ABCDEF"

s = Text1.Text

t = 0: s1 = ""

For i = Len(s) To 1 Step -1

  c = Val(Mid(s, i, 1))

  t = t + c * 2 ^ ((Len(s) - i) Mod 4)

  If (Len(s) - i + 1) Mod 4 = 0 Or   ①   Then

    ② 

  t = 0

End If

Next i

Text2.Text = s1

End sub

① ② 

Dim classname(1 To 8000) As String     ‘存储原始数据中的班级名称

Dim selectabc(1 To 8000) As String       ‘存储原始数据选项的值

Dim xiangmu(1 To 8000) As String        ‘存储原始数据选项的序号

Dim n  As Integer

Private Sub Command2_Click()        ‘从数据库读取数据，并且按班级名称排序

Dim conn As New ADODB.Connection

conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"

conn.Open

Dim rs As New ADODB.Recordset

Set rs.ActiveConnection = conn

rs.Open "select * from data"

n = 0       ‘记录评价的总条数

'读取数据，并按班级排序，代码略

End Sub

Private Sub Command1_Click()

Dim cstart(1 To 50) As Integer       ‘存储每个班级在数组classname中的起始位置

Dim cend(1 To 50) As Integer       ‘存储每个班级在数组classname中的末尾位置

Dim k As Integer       ‘存储班级数量

Dim testall(1 To 20) As Integer        ‘存储每一项总选择人数，例如testall（1）里存储这评价项目1里的总人数，testc（1）里存储评价项目1里选C的人数

Dim testc(1 To 20) As Integer          ‘存储每一题（项）选c的人数

‘确定每个班级的起止位置，存储到cstart数组和cend数组

cstart(1) = 1

temp = classname(1)

k = 1

For i = 1 To n

  If classname(i) <> temp Then

       k = k + 1

       cstart(k) = i

       temp = classname(i)

  End If

Next i

cend(k) = n

 For i = 1 To k    ‘每个班级分别统计评价项目

   For q = 1 To 20    ‘对testall和testc数组初始化，

     testall(q) = 0

     testc(q) = 0

   Next q

   For j = cstart(i) To cend(i)    ‘对第i个班级进行统计

      testall(xiangmu(j)) = testall(xiangmu(j)) + 1

      If selectabc(j) = "C" Then 

   Next j

   For p = 1 To 20    ‘统计完成后输出这个班级的20个项目的A+B所占百分比

      s = s &""&Str(Round((testall(p) - testc(p)) / testall(p) * 100, 1))

   Next p

   List2.AddItem s

 Next i

End Sub

Dim a(1 To 10) As Integer

Dim n As Integer

Private Sub Command1_Click()

Dim i As Integer , j As Integer, k As Integer, temp As Integer

  Dim s As String

  Randomize

  n = 10

  For i = 1 To n

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

  Next i

  For i = 1 To n - 1

    k = i

    For j = i + 1 To n

      If a(j) < a(k) Then

    Next j

    If k <> i Then

      temp = a(i): a(i) = a(k): a(k) = temp

    End If

  Next i

  s = ""

  For i = 1 To n

    s = s + Str(a(i))

    If i < n Then s = s + "，"

  Next i

  Label1.Caption = s

End Sub

Private Sub Command2_Click()

  Dim i As Integer, j As Integer, k As Integer

  Dim length As Integer, origin As Integer

  Dim s As String

  k = 1:origin=1:length = 1

  For i = 2 To n

    If a(i) = a(i - 1) Then

      k = k + 1

      If k > length Then

        length = k

        origin = 

      End If

    Else

      k = 1

    End If

  Next i

  s = ""

  For j = origin To

    s = s + Str(j)

  Next j

  Label2.Caption = s

End Sub

Private Sub Command1_Click( )

  Dims As String, yw As String, t As String

  Dim Value As Integer

  s=Text1.Text

  Value=0

  yw=""

  For i=1 To Len（s）

    t=     ①   

    If t>="0" And t<="9" Then

        Value=Value *10+Val(t)

    Else If t="-" Then

        yw=yw+Chr(Asc("A")+Value Mod 27-1)

           ②   

    Else

        yw=yw+t

    End If

  Next i

  Text2. Text=yw

End Sub

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

Dim a(1 To 49) As String

Private Sub Form _Load ()

    Dim k(1 To 3) As Integer

    Randomize

    t=0

    For i=1 To 49

        x=

        y=(i-1) Mod 7+1

        If x=30rx=50ry=30ry=5Then

           t = Int (Rnd*3) + 1

           Do While

              t=t Mod 3+ 1

           Loop

           k(t)=k(t)+1

           a(i) = Str(t)

       Else

           a(i) =””

       End If

    Next i

    ‘在列表框中输出数据，得到“井”字形方阵。代码略

End Sub

‘下面为单击“↑①”按钮，实现数据的移动

Private Sub Command1_ Click()

    j=3

    temp =a (6*7+j)

    For i=1 To 6

      p =i-1

      If p<1 Then p= 7

      A ((p-1)*7+j)=a ((i-1)*7+j)

    Next i

    = temp

    ’在列表框中输出数据，更新“井”字形方阵。代码略

End Sub

‘其他按钮所实现功能的代码略

①②