Dim conn As New ADODB Connection
Dim rs As New ADODB. Recordset
Dim n as Integer
Private Sub Form_Load ( )
conn. ConnectionString ="Provider= Microsoft. Ace. OLEDB. 12.0;
data source =" + App. Path + " \data \data. accdb" ‘ 此处内容在同一行中,因印刷排版限制而换行
conn. Open
sqI = “select * from student”
Set rs. ActiveConnection = conn
rs. Open sql
n=0
Do while Not rs. EOF
Call read ( )
n=n+1
rs. MoveNext
Loop
End sub
sub read ( )
List1.AddItem rs ("name")
End sub
运行上述程序,以下说法不正确的是( )
实现上述功能的VB程序如下,请在划线处填上合适的代码。
Private Sub Command1_Click()
Dim a As Double, b As Double, m As Double, x As Double
Dim ym As Double, yb As Double
a=Val(Text1.text):b=Val(Text2.Text)
If a>b Then t=a: a=b: b=t
Do While ①
m=(a+b)/2
ym=m^3-4*m^2+m+5
yb=b^3-4*b^2+b+5
If Abs(ym)<0.00001 Then Exit Do
If ② Then
b=m
Else
a=m
End If
Loop
Text3.Text=Str(Int(m*10000)/10000)
End Sub
① ②
①气象卫星采集的数据②某班学生网上高考报名数据 ③地感线圈记录的车辆通行数据
④校门口保安手持测温仪测量入校师生的体温数据 ⑤微信使用中产生的所有数据