常量、变量及变量的赋值 知识点题库

Const n=9：Const m= 10    'n存储地雷区域大小，m存储地雷数目

Dim a(1 To n*n) As Integer

Private Sub Command 1_Click()

'按要求生成数组a中的数据并在List 1中显示，代码略

End Sub

Private Sub Command 2_Click()

Dim i As Integer, j As Integer, row As Integer

Dim col As Integer, start As Integer, temp As String

For i=1 To n *n

     IfThen

         row=(i-1)＼n+ 1

         col=(i-1)Mod n+ 1

         For j= 1 To 3

         If a(start+col-1) >-1Then a(start+col-1) =a(start+col-1)+1

        If a(start+col) >-1Then a(start+col) =a(start+col)+1

        If a(start+col+1)>-1Then a(start+col+1) =a(start+col+1)+1

      Next j

    End If

Next i

List 2．Clear

For i=1To n

        temp=“”

        For j=1To n

             temp=temp+adj(a((i-1) *n+j)，3)

        Next j

        List 2.Add Item temp

Next i

End Sub

Function adj(x As Integer, y As Integer) As String

        Dim s As String

        s=Str(x)

        For i= 1 To

             s=“”+s

        Next i

        adj=s

End Function

Private Sub Commandl_Click（）

Dim y As Integer

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

Dim pa As lnteger   '数据库导人VB时学生数据下标

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

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

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=l

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+""+kesName（m）

            m=m+1

        Next j

        Text1.Text=Text1.Texi+vbCrLf

    Next i

    Text1.Text=Text1.Text+vbCrLí+vbCrLf

        ③   

Next k

End Sub

Private Sub Form_load（）

Dim myconn As New ADODB.Connection

Dim myrecord As New ADODB.Recordset

myconn.ConnectionString=" provider=microsoft.Ace.Oledb.12.

0：data source=e：\kaochang.Accdb"

myconn.Open

strsql=" select * from三中"

myrecord.Open strsql，myconn

x=l

Listl.Addltem"考号   姓名"

List1.AddItem  "----------------------"

Do While Not  myrecord.EOF

  '读取数据库数据，存入数组kh（x）、sName（x）中，代码略

  List 1.Addltem kh（x）+" "+sName（x）

  x=x+1

  myrecord. MoveNext

Loop

myrecord.Close .

End Sub

①       ②       ③       

Private Sub Command1_Click()

  Dim n As Integer, i As Integer

  Dim s As Integer, x As Integer, f As Boolean

  n= Val(Text1.Text)

  f= False: s=0

  i=2

  Do While    ①  

    For x=2 To i\2

      If i Mod x=0 Then Exit For     ‘Exit For用于退出For循环

    Next x

    If    ②    Then

      s=s+1

      If  Then      ‘③

        Label1.Caption= "第"& Str(n) & "个素数为:"& Str()

        f= True

      End If

    End If

    i=i+1

  Loop

End Sub

① ②