35. 下列过程的功能:将输入的整数分解为质数之乘积。例如,输入18,则输出2,3,3,;输入125,则输出5,5,5,。 Private Sub Command_Click() x=Val(InputBox("请输入一个整数")) out$="" y=2 Do While(______) If(x Mod y=0)Then out$=out$&y&"," x=x/y Else y=y+1 End If Loop MsgBox out$ End Sub 为实现指定功能,程序空白处应填写的语句是______。
37. 在窗体中有一个命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的事件代码如下: Private Sub Command1_Click() Dim i,f1,f2 As Integer Dim flag As Boolean f1=Val(Me!Text0) f2=Val(Me!Text1) If f1>t2 Then i=f2 Else i=f1 End If flag=True Do While i>1 And flag If f1 Mod i=0 And f2 Mod i=0 Then flag=False Else i=i-1 End If Loop Me!Text2=i End Sub 运行程序,在文本框Text0和Text1中分别输入15和20,则文本框Text2中显示的结果是______。
38. 已知学生表(学号,姓名,性别,生日),如下事件代码的功能是将学生表中“生日”字段为空值的学生“性别”字段值设置为“男”。 Private Sub Command0_Click() Dim str As String Setdb=CurrentDb() str="______" DoCmd.RunSQL str End Sub 按照功能要求,在空白处应填写的是______。
40. 教师管理数据库有数据表“teacher”,包括“编号”“姓名”“性别”和“职称”四个字段。如下程序的功能:通过窗体向“teacher”表中添加教师记录。对应“编号”“姓名”“性别”和“职称”的四个文本框的名称分别为tNo,tName,tSex和tTitles。当单击窗体上的“增加”命令按钮(名称为Command1)时,首先判断编号是否重复,如果不重复,则向“teacher”表中添加教师记录;如果编号重复,则给出提示信息。 Dim ADOcn As New ADODB.Connection Private Sub Form_Load() '打开窗体时,连接Access本地数据库 Set ADOcn=CurrentProject.Connection 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.______StrSQL MsgBox "添加成功,请继续!" End If ADOrs.Close Set ADOrs=Nothing End Sub 按照功能要求,在空白处应填写的是______。