选择题 有下列命令按钮控件test的单击事件过程:
Private Sub test_click()
Dim I, R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
bResult. Caption=Str(R)
End Sub
当运行窗体,单击命令按钮时,在名为bResult的窗体标签内将显示的是______。
选择题 在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:
Public x As Integer
Private Sub Command1_Click()
x=10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1()
x=x+20
End Sub
Private Sub s2()
Dim x As Integer
x=x+ZO
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
选择题 数据库中有“Emp”,包括“Eno”、“Ename”、“Eage”、“Esex”、“Edate”、“Eparty”等字段。下面程序段的功能是:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮完成对该年龄职工记录信息的删除操作。
Private Sub btnDelete_Click()'单击'删除'按钮
Dim strSQL As String'定义变量
strSQL='delete from Emp''赋值SQL基本操作字符串
'判断窗体年龄条件值无效(空值或非数值)处理
If IsNull(Me! tValue)=True or IsNumeric(Me! tValue)=False Then
MsgBox '年龄值为空或非有效数值!', vbCritical, 'Error'
'窗体输入焦点移回年龄输入的文本框'tValue'控件内
Me! tValue. SetFoeus
Else
'构造条件删除查询表达式
strSQL=strSQL 'where Eage=' Me! tValue
'消息框提示'确认删除?(Yes/No)', 选择'Yes'实施删除操作
If MsgBox('确认删除?(Yes/No)', vbQuestion+vbYesNo, '确认')=vbYes Then
'执行删除查询
DoCmd. ______ strSQL
MsgBox 'completed!', vbInformation, 'Msg'
End If
End If
End Sub
按照功能要求,下划线处应填写的是______。
选择题 运行下列程序,输入数据8、9、3、0后,窗体中显示结果是______。
Private Sub Form_click()
Dim sum As Integer, m As Integer
sum=0
Do
m=InputBox('输入m')
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub
选择题 数据库设计中,用E-R图来描述信息结构但不涉及信息在计算机中的表示,它属于数据库设计的______。
选择题 在Access中需要发布数据库中的数据的时候,可以采用的对象是______。
选择题 窗体中有一个名为run的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续处理。run命令按钮的Click的事件代码如下:
Private Sub run_Click()
Dim flag As Boolean
result=0
flag=True
Do While flag
result=Val(InputBox('请输入成绩:“,”输入'))
If result>=0 And result<=100 Then
Else
MsgBox”输入错误,请重新输入”
End If
Loop
Rem成绩输入正确后的程序代码略
End Sub
为实现程序的功能,程序 处不能填写的语句是______。
选择题 宏操作SetValue的功能是______。
选择题 若窗体Frm1中有一个命令按钮Cmd1,则窗体和命令按钮的Click事件过程名分别为______。
选择题 在结构化分析方法中,数据字典的作用是______。
选择题 下列只能读不能写的文件打开方式是______。
选择题 在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:
Private Sub Command1_Click()
MsgBox f(24,18)
End Sub
Public Function f(m As Integer,n As Integer)As Integer
Do While m<>n
Do While m>n
m=m-n
Loop
Do While m<n
n=n-m
Loop
Loop
f=m
End Function
窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
选择题 假设有以下程序段:
n=0
For i=1 To 3
For j=-3 To 1
n=n+1
Next j
Next i
运行完毕后,n的值是______。
选择题 已知在“用户表”中包含4个字段:用户名(文本,主关键字),密码(文本),登录次数(数字),最近登录时间(日期/时间)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框,一个登录按钮Command0。进入登录界而后,用户输入用户名和密码,单击“登录”按钮后,程序查找“用户表”。如果用户名和密码全部正确,则登录次数加1,显示上次的登录时间,并记录本次登录的当前日期和时间;否则,显示出错提示信息。为完成上述功能,程序中______处应填写的语句是______。
Private Sub Command0_Click()
Dim cn As New ADODB.Connection
Dim 1.S As New ADODB.Recordset
Dim fd1 As ADODB.Field
Dim fd2 As ADODB.Field
Dim strSQL As String
Set cn=CurrentProjeet.Connection
strSQL='Select 登录次数, 最近登录时间 From 用户表 Where 用户名=''Me! tUser''And 密码=''Me! tPassword'''
rs.Open strSQL,cn,adOpenDynamie,adLockOptimistic,adCmdText
Set fd1=rs.Fields('登录次数')
Set fd2=rs.Fields('最近登录时间')
If Not rs.EOFThen
fd1=fd1+1
MsgBox'用户已经登录:'fd1'次'Chr(13)Chr(13)'上次登录时间:'fd2
fd2=______
rs.Update
Else
MsgBox'用户名或密码错误。'
End If
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
End Sub
选择题 不属于“数据访问页”的背景设置的是 。
选择题 下列选项中,不属于窗体控件的是______。
选择题 在关系运算中,投影运算的含义是______。
选择题 运行Visual Basic的函数过程,应使用的宏命令是______。
选择题 在网状数据模型中,可以有几个节点无双亲______
选择题 若有两个字符串s1='12345',s2='34',执行s=Instr(s1,s2)后,s的值为______。
