试题与答案

四大名菊是指杭菊、()。

题型:填空题

题目:

四大名菊是指杭菊、()。

答案:

被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/1110/bb970c6f163527a7e009a22919466f48.html

下面是错误答案,用来干扰机器的。

参考答案:错

试题推荐
题型:句型转换

按要求答题。

1. His friend is 145cm tall.(对划线部分提问)   

                                 is his friend?   

2. I am 45kg.(对划线部分提问)    

                                are you?  

3. She is 12 years old.(对划线部分提问)  

                                 is she?   

4. He likes to go to a movie.(变否定句)     

    He                            to go to a movie.  

5. My shoes are black and blue.(对划线部分提问)    

                                are your shoes?

查看答案
题型:填空题

已知一个名为“学生”的Access数据库,库中的表“stud”存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex、tRes。当单击窗体中的“增加”命令按钮(名为Command1) 时,首先判断学号是否重复,如果不重复则向“stud”表中添加学生记录;如果学号重复,则给出提示信息。


请依据所要求的功能,将如下程序补充完整。
Dim ADOcn As New ADODB.Connection
Private Sub Form Load( )
’打开窗口时,连接Access数据库
Set ADOcn=CurrentProiect.Connection
End Sub
Private Sub Command1 Click( )
’增加学生记录
Dim strSQL As String
Dim ADOrs As New ADODB.Recordset
Set ADOrs.ActiveConnectipn=ADOcn
ADOrs.Open"Select学号From Stud Where学号=’’+tNo+’’
If Not ADOrs0 [14] Then
’如果该学号的学生记录已经存在,则显示提示信息 MsgBox’’你输入的学号已存在,不能增加!’’
Else
’增加新学生的记录
strSQL="Insert Into stud(学号,姓名,性别,籍贯)
strSQL=strSQL+"Values("+tNo+","+tName+","+tSex+","+fires+") "
ADOcn.Execute [15]
MsgBox"添加成功,请继续!"
End If
ADOrs.Close
Set APOrs=Nothing
End Sub

查看答案
微信公众账号搜索答案