有如下VB程序段：DimconnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetconn.ConnectionStr_刷题宝

题干

有如下VB程序段：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="provider=Microsoft.AC

A．OLEDB.12.0；data sourc="
+App.Path+"\socre.accdb"
Conn.Open
Set rs.ActiveConnection=conn
Rs. Open"Selec*from cj"
n=1
Do While Not rs.EOF
Score(n)=rs.fields("成绩")：Name(n)=rs.fields("姓名")
n＝n+1：rs.MoveNext
Loop
下列说法中不正确的是

B．定义的ADO的Connection对象实例名称是“conn”
B.连接的数据库文件名是“\socre.accdb”

C．查询的数据表名是“cj”

D．该程序段运行后，可知所查询的数据表共有n－1条记录

上一题下一题 0.99难度选择题更新时间:2019-11-20 12:47:31

答案(点此获取答案解析）

同类题1

下面程序执行的结果是（）
Private Sub Form_Load()
A="123":B="456"
C=Val(A)+Val(B)
Print C\100
End Sub

同类题2

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。
(1)在应用程序界面设计时，为添加“计费”按钮，应使用第2图所示的“控件工具箱”中的___（请填写相应编号），并在3图所示的“属性窗口”中，将____属性值设置为“计费”。

1图 2图 3图
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <= 60 Then
zyfy = 0
ElseIf zysj <= 120 Then
zyfy = 1
ElseIf zysj <= 180 Then
_____________________
ElseIf zysj Mod 60 = 0 Then
zyfy = (zysj - 180) / 60 * 3 + 3
Else
zyfy = (Int((zysj - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

同类题3

以下程序段执行后整型变量n的值为（）。
n=0
for i="1" to_____step 5
n=n+i
next i

同类题4

一个两位数x，将它的个位数与十位数字对调后得到一个新数y，此时y恰好比x大36，求出所有这样的两位数。为其中的空白处选择合适的选项（）。

同类题5

小王编写VB程序，实现如下功能：在Text1中输入1~ 9之间的任意一个数字，单击“计算”按钮Command1, 计算该数字的阶乘并显示在标签Label2中。程序运行界面如图所示：

　
（1）如图所示，窗体中（不包含窗体本身）的对象共有__个（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, s As Long
s = 1
i =______
If i >= 1 And i <= 9 Then
For j = 1 To i
s = _______
Next j
　Label2.Caption = Str(i) & "的阶乘为:" & Str(s)
Else
　Label2.Caption = "请重新输入1~ 9之间的任意数字"
End If
End Sub
（3）程序中，若将变量s的类型由Long改为Integer，在文本框Text1中输入的内容为“9”，单击“计算”按钮后，程序运行将会出现什么情况____（单选，填字母：

B．类型不匹配 /

C．要求对象）。

相关知识点