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

Const maxn=10

Dim a(1 To maxn) As Integer

Private Sub Form_Load()

‘maxn个数据存储在数组a中,并在列表框List1中显示

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, n As Integer     ‘n用于存储当前査找的数组长度

Dim j As Integer, key As Integer     ‘key用于存储本次查找关键字的数据位置

key=1: n=maxn

Do While key <=n

  i=n

  Do While a(i) <> a(key)

  Loop

  If i=key Then     ‘未找到，重新下一査找关键字

   key=key+1

  Else    ‘找到重复数据，删除

   For j=i To n-1

   Next j

   n=n-1

  End If

Loop

For i=1 To n

  List2.AddItem Str(a(i))

Next i

Label1.Caption=“共删除数据”++“个”

End Sub

Dim a(1 To 1000) As Integer, n As Integer

Private Sub Form_Load()

‘读入数据到数组a，数据个数n，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim fz(1 To 16) As Integer       'fz数组存储信息各题满分值

Dim b(1 To 33) As Single     '数组b存储全卷各题的平均得分

For i = 1 To 16      '数组fz存储信息16个小题的满分值

If i <= 12 Then fz(i) = 2

 fz(13) = 4: fz(14) = 8: fz(15) = 7: fz(16) = 7

Next i

For i = 2 To n       '把数组a数据分别统计到各题中，计算各题总得分

   ①  

 b(j) = a(i) + b(j)

Next i

For i = 1 To 33

 If i <= 12 Then

 b(i) = b(i) /(a(1) * fz(i))        '计算信息客观题各题的得分率

 ElseIf i >= 26 And i <= 29 Then

 b(i) =   ②  

 End If

Next i

For i = 1 To 16

 If i > 12 Then j = i + 13 Else j = i

 b(j) = Int(b(j) * 1000 + 0.5) / 10         '对结果四舍五入保留1位小数

 List2.AddItem Str(i) + Str(b(j)) + "%"

 ave=   ③  

Next i

Text1.Text = Str(ave / 100)

End Sub

①，②，③

图2

Private Sub Command1_Click()

  Dim s As Integer, r As Integer, c As Integer

  Dim source As String, delstr As String, ch As String

  c = 0: i = 1

  source = Text1.Text:delstr = Text2.Text

  s = Len(source)

  r = Len(delstr)

  Do While s-i+1 >= r

    ch = Mid(source, i, r)

    If ch = delstr Then

        source = Mid(source,1, i-1) +

        s = Len(source)

    Else

        i = i + 1

    End If

  Loop

  Label4.Caption = "共删除:" + Str(c) + "处"

  Text3.Text = source

End Sub