题目内容
（请给出正确答案）
（14 ）有下列语句：
Dim a,b As Integer
c="VisualBasic"
d=#7 / 20 / 2005#
下列关于这段代码的叙述中错误的是（）。
A ） a 被定义为 Integer 类型变量
B ） b 被定义为 Integer 类型变量
C ） c 中的数据是字符串
D ） d 中的数据是日期类型
如果结果不匹配，请 联系老师 获取答案
更多“（14 ）有下列语句：Dim a,b As Integerc…”相关的问题
A、Dim ADOcn As Connection
B、Dim ADOcn As New Connection
C、Declare ADOcn As New Connection
D、Declare ADOcn As Connection
设有数组定义语句:Dim a(5) As Integer,List1为列表框控件。下列给数组元素赋值的语句错误的是
A．a(3)=3
B．a(3)=InputBox("input data")
C．a(3)=List1.ListIndex
D．a=Array(1,2,3,4,5,6)
“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pscj,kscj,qmzp As DAO.Field
Dim count As Integer
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生成绩表")
Set pscj=rs.Fields("平时成绩")
Set kscj=rs.Fields("考试成绩")
Set qmzp=rs.Fields("期末总评")
count=0
Do While Not rs.EOF
【14】
If pscj+kscj＞=85 Then
qmzp="优"
ElseIf pscj+kscj＜60 Then
qmzp="不及格"
Else
qmzp="合格"
End If
rs.Update
count=count+1
【15】
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox "学生人数："&count
End Sub
有如下程序：
Option base 1
Private Sub Command1_Click
Dim arr(10)
Arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a＞50 then
Sum=sum+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是
A)数组定义语句不对，应改为Dim arr
B)没有指明For 循环的终值
C)应在For语句之前增加sum=0
D)Next a 应改为next
定义有5个整数型元素的数组，正确的语句是
A．Dim a(4)As Integer
B．Option Base 1：Dim a(5)
C．Dim a &(5)
D．Dime a(5)As Integer
A.Dim text As String
B.If f Then x=x*x+1
C.s="cd"+3
D.s=Mid（"abc123",3）
设有数组定义语句：Dim a(5)As Integer，List1为列表框控件。下列给数组元素赋值的语句错误的是
A．a(3)=3
B．a(3)=inputbox("input data")
C．a(3)=Listl．Listlndex
D．a=Array(1，2，3，4，5，6)
设有数组定义语句：Dim a(5)As Integer，并设List1为列表框控件。下列给数组元素赋值的语句错误的是()。
A．a(3)=3
B．a(3)=inputbox("inputdata")
C．a(3)=List1.List1ndex
D．a=Array(1，2，3，4，5，6)
有变量定义语句Dim max，min As String，则可以知道max的类型是
A．变体类型
B．单精度型
C．双精度型
D．字符串型
