算法及程序语言基础 知识点题库

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

Private Sub Command1_Click()

  Dim m1 As String, m2 As String, sum As String ,t As String

  Dim n1 As Integer, n2 As Integer, k As Integer, x As Integer

  m1 = Text1.Text：m2 = Text2.Text

  If Then t = m1: m1 = m2: m2 = t

  x = Len(m1) - Len(m2)

  Do While x > 0

    m2 = "0" + m2

    x = x - 1

  Loop

  n = Len(m1): sum = "": k = 0

  Do While n > 0

    n1 = Val(Mid(m1, n, 1))

    n2 = Val(Mid(m2, n, 1))

    sum = Str((n1 + n2 + k) Mod 2) + sum

    n = n - 1

  Loop

  If k <> 0 Then sum = Str(k) + sum

  Label4.Caption = sum

End Sub

Private Sub Command1_Click()

Dim s1 As String，s2 As String，pos As Integer

Dim num As Integer

s1=Text1. Text:s2=“”

    ①   

pos=2

Do While pos<=Len（s1）

  If Mid（s1, pos, 1）=Mid（s1, pos-1, 1）Then

    num=num+1

  Else

    s2=    ②   

    num=1

  End If

      ③   

Loop

Text2. Text=s2+Str（num）+Mid（s1, Len（s1）, 1）

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

对应数学模型的表述公式应为。

①给定图像的灰度值：输入每个像素的灰度值p(x，y)；

②列举图像中的每个像素点：横坐标x列举的范围为1到图像的宽度，纵坐标y列举的范围为1到图像的高度；

③判定：若在x，y位置上的像素的灰度值小于阈值136，则判定为0；否则判定为1。

该判定的过程属于算法控制结构中的结构。