第3单元 认识数据 知识点题库

Const n=20

Dim a(1 To n)As Integer

Private Sub FormLoad()

    ‘读取数据，并存储到数组a中。代码略

End Sub

Private Sub Command1_Click()

    Dim flag As Integer   ‘存储变化段的状态：1表示升；-1表示降；0表示平

    Dim count As Integer    ‘存储对称波峰的个数

    Dim steps As Integer

    Dim i As Integer

    flag=0：steps=0：count=0

    For i=    ①   To n

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

        If IsSymPeak(flag，steps)Then count count+1

      If flag=0 Or flag=-1 Then

    ②  

      Else

         steps=steps+1

      End If

      flag=1

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

      If IsSymPeak(flag，steps)Then count=count+1

      steps=0

      flag=0

    Else

      steps=steps-1

      flag=-1

    End If

  Next i

  If IsSymPeak(flag，steps)Then count=count+1

  Text1．Text=Str(count)

End Sub

Function IsSymPeak(flag As Integer，steps As Integer)As Boolean

    If    ③    Then

       IsSymPeak=True

    Else

       IsSymPeak=False

    End If

End Function

① ② ③ 

Dim sName(100) As String

Dim kh(100) as string

Private Sub Command1_Click()

Dim y As Integer

Dim start As Integer   '考场第1位数据元素的下标

Dim pa As Integer       '数据库导入VB时学生数据下标

Dim pb As Integer        '考场座位数据下标

Dim i As Integer，j As Integer，k As Integer，m As Integer

Dim kcsName(100) As String

start = 1

pa = start

recCount = x-1

If recCount Mod 30 <> 0 Then

For i = 1 To y   ‘将当前考生人数添加到30的整数倍    

recCount = recCount +1   

    sName(recCount) = " "

Next i

End If

For j = 1 To recCount / 30  

pa = start

pb = start

For i = 1 To 30

kcsName(pb) = sName(pa)

pb = pb +1    

If  i Mod 5 = 0 Then

pa = start +i \5

Else

End If  

Next i  

start = start +30

Next j

Text1.Text = " "

start = 1

For k = 1 To recCount /30  

m = start  

Text1.Text = Text1.Text + "第" + Str(k) + "考场" + vbCrLf  

'vbCrLf为换行标志符，实现Text1中内容换行显示  

For i = 1 To 6    

For j = 1 To 5      

Text1.Text = Text1.Text +" " +kcsName(m)      

m = m +1    

Next j    

Text1.Text = Text1.Text +vbCrLf  

Next i  

Text1.Text = Text1.Text +vbCrLf +vbCrLf

Next k

End Sub

Private Sub form_load()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

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

conn.Open

Set rs.ActiveConnection = conn

rs.Open "select * from banji"

x = 1

List1.AddItem " 考号  姓名"

Do While Not rs.EOF    '

kh(x) = rs.fields("kh")

sName(x) = rs.fields("xm")

List1.AddItem kh(x) + "  " + sName(x)

x = x + 1

rs.MoveNext

Loop

rs.Close

End Sub