34. 有如下事件代码,运行后输出结果是______。 Private Sub Command33_Click() Dim x As Integer,y As Integer x=1:y=0 Do Until y<=25 y=y+x*x x=x+1 Loop MsgBox"x="&x&",y="&y End Sub
A.x=5,y=30
B.输出其他结果
C.x=1,y=0
D.x=4,y=25
A B C D
C
[解析] Do Until—Loop循环采用的是先判断条件后执行循环体的做法,如果条件为True,则循环体一次都不执行,否则进入循环体。本题循环停止条件是y<=25,而y=0,满足条件表达式,不进入循环体,x、y的值不变,仍为1、0。
35. 运行如下程序段,结果是______。 For m=10 To 1 Step 0 k=k+3 Next m
39. 在窗体中有一个命令按钮Command32,对应的事件代码如下: Private Sub Command32_Click() Dim a As String,b As String a="Hello" b="Access" x=Left(a,2) y=Lcase(b) Debug.Print x;y End Sub 打开窗体运行后,单击命令按钮,输出结果是______。
40. 教师管理数据库有数据表“teacher”,包括“编号”“姓名”“性别”和“职称”四个字段。如下程序的功能:通过窗体向“teacher”表中添加教师记录。对应“编号”“姓名”“性别”和“职称”的四个文本框的名称分别为tNo,tName,tSex和tTitles。当单击窗体上的“增加”命令按钮(名称为Command1)时,首先判断编号是否重复,如果不重复,则向“teacher”表中添加教师记录;如果编号重复,则给出提示信息。 相关代码如下: Dim ADOcn As New ADODB.Connection Private Sub Form_Load() '打开窗体时,连接Access本地数据库 Set ADOcn=______ End Sub Private Sub Command1_Click() '追加教师记录 Dim StrSQL As String Dim ADOrs As New ADODB.Recordset Set ADOrs ActiveConnection=ADOcn ADOrs.Open "Select编号From teacher Where 编号="'+tNo+"'" If Not ADOrs.EOF Then MsgBox "您输入的编号已存在,不能新增加!" Else StrSQL="Insert Into teacher(编号,姓名,性别,职称)" StrSQL=StrSQL+ "Values("'+tNo+"',"'+tName+"',"'+tSex+"',"'+tTitles+"')" ADOrs.Execute StrSQL MsgBox "添加成功,请继续!" End If ADOrs.Close Set ADOrs=Nothing End Sub 按照功能要求,在空白处应填写的是______。