相关试卷

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

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

  List1.AddItem“考号  姓名”

  List1.AddItem“--------------”

Do While Not myrecord.EOF

 ‘读取数据库数据，存入数组kh(x)、sName(x)中，代码略

  List1.AddItem kh(x)+“ ”+sName(x)

  x=x+1

  myrecord.MoveNext

Loop

myrecord.Close

End Sub

Dim a (1 To 4020 ) As String

Dim b (1 To 2000 ) As String

Private Sub Form_Load( )

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim constr As string

constr=“Provider=Microsoft.ace.OLEDB.12.0;”

constr=constr &“Data Source=” & App.Path+“\data\KaoSheng.accdb”

conn.ConnectionString=constr

conn.open()

Dim sql As String

‘将参加2010年下半年考试的考生的身份证号码按升序存放在a数组中

sql=“select * from kaoshengInfo where year=‘2010’order by sfzh asc”

rs.Open sql，conn

i=0

Do While Not rs.EOF

 i=i+1

 a(i)=rs(“sfzh”)

 List1.additem(a(i))

 rs.MoveNext

Loop

‘将参加2011年下半年考试的考生的身份证号码按升序存放在b数组中

sql=“select * from kaoshengInfo where year=‘2011’order by sfzh asc”

rs.Open sql，conn

i=0

Do While Not rs.EOF

 i=i+1

 b(i)=rs(“sfzh”)

 List2.additem(b(i))

 rs.MoveNext

Loop

rs.Close

End Sub

Private Sub Command1_Click ()

Dim bot As Integer, top As Integer, m As Integer

Dim i As Integer, ans As Integer

ans=0

  For i=1 To 2000

    bot=1

   Do While  bot <=top

     m=Fix ( ( bot+top ) / 2 )

     If a ( m )=b ( i ) Then

      List3.AddItem  a ( m )

      Exit Do

     ElseIf  Then

      top=m-1

     Else

      bot=m+1

     End If

   Loop

 Next i

 List3.AddItem“总计”+str(ans)+“人次”

End Sub

Dim a(0 To 210) As Single ‘数组大小满足处理要求

Dim d(1 To 30) As Single ‘依次各选手的难度分

Dim e(1 To 30) As Single ‘依次各选手的完成分

Dim f(1 To 30) As Single ‘依次各选手的最终得分

Private Sub Command1_Click()

‘本过程从数据库读取相关数据，存储在数组a中

Dim conn As New ADODB.Connection

 Dim rs As New ADODB.Recordset

 conn ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0; data source=”+“成绩.accdb”

 conn.Open

 Set rs.ActiveConnection=conn

 ‘本过程的其他语句略

End Sub

Private Sub Command2_Click()

‘依据数组a中的相关数据统计各班级平均分

Dim i As Integer， j As Integer， n As Integer， p As Integer

Dim max As Single， min As Single， sum Single

For i=1 To n

  p=(i-1)*7+1

  d(i)=(a(p)+a(p+1))/2

  sum=0

  max=a(p+2) : min=a(p+2)

  For j=p+2 To p+6

   sum=sum+a(j)

   If a(j) > max Then max=a(j)

      min=a(j)

  Next j

  e(i)=(sum-max-min)/3

  f(i)=d(i)+e(i)

List1.AddItem Str(i)+“ ”+Str(d(i))+“ ”+Str(e(i))+“ ”+Str(f(i))

 Next i

End Sub

Private Sub()

Dim nian As Integer, yue As Integer, ri As Integer

Dim ans As Integer, i As Integer

Dim a(1 To 12) As Integer    ‘a(i)存储第i个月的天数

a(1) = 31: a(2) = 28: a(3) = 31: a(4) = 30

a(5) = 31: a(6) = 30: a(7) = 31: a(8) = 31

a(9) = 30: a(10) = 31: a(11) = 30: a(12) = 31

nian = Val(TextNian.Text)

yue = Val(TextYue.Text)

ri = Val(TextRi.Text)

For i = 1 To yue - 1   ‘依次加上之前每个月的天数

  ans =

Next i

ans = ans + ri    ‘加上当月的天数

If yue > 2 Then    ‘包含2月时,判断是否闰年,修正总天数

 If nian Mod 400 = 0 Then ans = ans + 1

 If nian Mod 4 = 0 And nian Mod 100 <> 0 Then ans = ans + 1

End If

=Str(ans)

End Sub

程序代码如下:

Private Sub Command 1_Click()

Dim n As Integer,ans As Integer

n =Val(Text1.Text)

ans = n

Do While n>3    ‘

 ans = ans + n\3

 n = n\3     ‘

Loop

Label2.Caption = “总共能吃到的桃子数为：” + Str(ans)+“个”

End Sub

Private Sub Command1_Click()

  Dim s As Single,x As Single,n As Integer,i As Integer

  Randomize

  List1.Clear

  s=Val(Text1.Text)

  n=

  For i=1 To

   x=Int((Rnd()*s/(n-i)+0.005)*100)/100

   List1.AddItem Str(x)

   s=

  Next i

  x=Int((s+0.005)*100)/100

  List1.AddItem Str(x)

End Sub

Private Sub Command1_Click()

Dim g1 As Integer, g2 As Integer

 Dim i As Integer, temp As Integer

 Dim m As Single

 List1.Clear

 g1 = Val(Text1.Text)

 g2 = Val(Text2.Text)

 IfThen

  temp = g1: g1 = g2: g2 = temp

 End If

 i = g1

 Do While i <= g2

  List1.AddItem Str(i) + “” + Str(m)

  i = i + 1

Loop

End Sub