下列程序段的功能是：计算1＋2＋3……＋10的值，程序空白处应填写的语句是 ...

单项选择题

程序执行时，单击窗体后输出结果是 Private sub form_click() Dim n as Integer n＝8 While n＞5 n＝n－1 Debug．Print n； Wend End Sub

A．8 7 6
B．7 6 5
C．7 6 5 4
D．8 7 6 5

单项选择题

下列程序的功能是计算1到1000之间所有偶数之和，程序空白处应填写的语句是 Private Sub Command_Click() Dim x As Double For i＝1 To 1000 If_______Then x＝x＋i End If Next i Debug．Print x End Sub

A．i Mod 2＝0
B．x Mod 2＝0
C．i Mod 2＜＞0
D．x Mod 2＜＞0

单项选择题

下列循环语句中，循环体执行的次数是 a＝100 Do a＝a＋1 Loop Until a<＝10

A．1
B．10
C．100
D．死循环

单项选择题

执行下列程序段后，输出结果是 n＝0 For i＝1 to 3 For j＝5 To 1 Step－1 n＝n＋1 Next j，i Debug．Print n；j；i

A．12 0 4
B．15 0 4
C．12 3 1
D．15 3 1

单项选择题

要使循环体至少执行一次，应使用的循环语句是

A．For－－next
B．While－－wend
C．Do－－Loop whileluntil
D．d0[while｜until]－－loop

单项选择题

单击命令按钮时，下列程序的执行结果为 Private Function P(N As Integer) Static sum For I＝1 To N sun＝sum＋1 Next I P＝sum End Function Private Sub Commandl_Click() S＝P(1)＋P(2)＋P(3)＋P(4) Debug．Print S End Sub

A．20
B．30
C．115
D．135

单项选择题

下列程序段的执行结果是 Dim a(5)As String Dim b As Integer Dim I As Integer F0r I＝0 T0 5 a(I)＝I＋1 Debug．Print a(I) Next I

A．123456
B．6
C．654321
D．0

单项选择题

销售库中有“产品表”(产品编码，产品名称，单价)，另有“新品表”(产品编码，产品名称，单价)。根据产品编码，一件产品只在“新品表”中出现，则要将该产品追加到“产品表”中；如果一件产品在“产品表”和“新品表”中同时出现，则用“新品表”中的单价修改“产品表”中相应产品的单价。为实现上述功能要求，应使用的方法是

A．更新查询
B．追加查询
C．生成表查询
D．编VBA程序

单项选择题

下列程序段的功能是：计算1＋2＋3……＋10的值，程序空白处应填写的语句是 Dim t，k as single k＝0 DO While k＜0 k＝k＋1 Loop

A．t＝t＋k
B．t＝t＋2
C．k＝k＋2
D．t＝t＋1

单项选择题

执行 k＝0 Do Until k＞3 x＝x＋2 k＝k＋1 Loop 下列程序段后，变量x的值是

A．2
B．4
C．6
D．8

单项选择题

调用下面子过程，消息框显示的结果是 Sub SFun() Dim x，y，m x＝100 y＝200 If x＞y Then m＝x Else m＝y End If MsgBox m End Sub

A．300
B．400
C．100
D．200

单项选择题

设执行以下程序段时依次输入：1、3、5，执行结果为 Dim a(4)As Integer Dim b(4)As Integer For K＝0 to 2 a(K＋1)＝Val(InputBox("请输入数据：")) b(3－K)＝a(K＋1) Next K Debug．Print b(K)

A．1
B．3
C．5
D．0

单项选择题

下列程序的功能是输出100到200间不能被3整除的数，程序空白处应填写的语句是 Private Sub Commmandl_Click() Dim X As Integer x＝100 Do Until x_________ If x Mod 3<>0 Then Debug．Print x End If x＝x＋1 Loop End Sub

A．＞200
B．＞100
C．＜100
D．＜200

单项选择题

执行下列程序段后，变量intsum的值是 Dim intsum As Integer Dim I As Integer intsum＝0 For I＝20．2 To 5 Step－4．7 intsum＝intsum＋I Next I

A．150
B．200
C．50
D．0

单项选择题

执行下列程序段后，变量s的值是 Dim s As long，x As Integer B＝0：x＝1 Do While(x＜10) s＝s＋x x＝x＋2 Loop

A．10
B．25
C．50
D．100

单项选择题

如果要求下列程序段中的循环执行3次，则程序中括号里的条件应是 x＝1 Do x＝x＋3 Loop Until(_______)

A．x＞＝8
B．x＜＝8
C．x＞＝7
D．x＜＝7

单项选择题

执行下列程序段后，变量intsum的值是 Dim intsum As Integer Dim I As Integer intsum＝0 For I＝0 T0 50 Step 10 intsum＝intsum＋I Next I

A．150
B．200
C．50
D．0

单项选择题

执行下列程序段，变量x的值是 x＝2 ：y＝5 Do Until y＞5 x＝x*y y＝y＋1 Loop

A．2
B．5
C．10
D．20

单项选择题

下列程序的功能是计算10的阶乘，程序空白处应该填写的语句是 Dim t as single Dim k as Integer k＝0：t＝1 While_______ k＝k＋1 t＝t*k Wend

A．k＜10
B．k＞10
C．k＜＝10
D．k＞＝10

单项选择题

VBA中将lnputBox的返回值转换为数值应该使用的函数是

A．LoS
B．Str
C．Len
D．Val

单项选择题

若有语句：str1＝inlmtbox("输入"，""，"练习")；从键盘上输入字符串“示例”后，str1的值是

A．输入
B．练习
C．示例

单项选择题

函数MsgBox返回值的类型是

A．数值
B．字符串
C．变体
D．是／否

单项选择题

下列选项中，错误的VBA数据验证函数是

A．IsText
B．IsDate
C．IsNumeric
D．IsNull

单项选择题

假设数据库中有学生信息表stud(sno，sname，ssex)。其中，性别ssex字段已建索引，要在调试窗口中显示第一个男同学的信息，程序空白处应填写的语句是 Private Sub Form_Load() Dim is As ADODB．Recordset Set rs＝New ADODB．Recordset rs．ActiveConnection＝"Provider＝Microsoft．Jet．OLEDB．4．0；"＆"Data Source＝e：＼考试中心教程＼教学管理．mdb；” rs．CursorType＝adOpenKeyset rs．LockType＝adLockOptimistic rs．Index＝"ssex" rs．Open"stud"，，，，adCmdTableDirect Debug．Print rs("sno")，rs("sname")，r8("ssex") rs．Close Set rs＝Nothing End Sub

A．rs．Find"男"，adSeekFirstEQ
B．rs．Seek"男"，adSeekFirstEQ
C．rs．Find"男"，adSeekLastEQ
D．rs．Seek"男"，adSeekLastEQ

单项选择题

假设数据库中有学生信息表stud(sno，sname，ssex)，其中ssex字段已建索引，要输出最后一名男同学的信息，程序空白处应填写的语句是 Private SUb Form_Load() Dim r8 As ADODB．Recordset Set rs＝New ADODB．Recordset rs．ActiveConnection＝"Provider＝Microsoft．Jet．OLEDB．4．0："＆"Data Source＝e：＼考试中心教程＼教学管理．mdb；” rs．CursorType＝adOpenKeyset rs．LockType＝adLockOptimistic rs．Index＝"8sex" rs．Open"stud"，，，，adCmdTablleDirect Debug．Print rs("sno")，rs("sname")，rs("ssex") rs．Close Set rs＝Nothing End Sub

A．rs．Find"男"，adSeekFimtEQ
B．rs．Seek"男"，adSeekFimtEQ
C．rs．Find"男"，adsoekLastEQ
D．rs．Seek"男"，adSeekLastEQ

下列程序段的功能是：计算1＋2＋3……＋10的值，程序空白处应填写的语句是 Dim t，k as single k＝0 DO While k＜0 k＝k＋1 Loop

你可能感兴趣的试题

下列程序段运行后，变量b的值是 b＝1 Do Until b＞7 b＝b*(b＋1) Loop

执行下列程序段后，变量s的值是 s＝0 For x＝99 to 1 Step－2 s＝s＋x Next x

执行下列程序段后，变量a和b的值分别是 a＝100：b＝50 If a>b Then a＝a－b Else b＝b＋a End If

程序执行时，单击窗体后输出结果是 Private sub form_click() Dim n as Integer n＝8 While n＞5 n＝n－1 Debug．Print n； Wend End Sub

下列程序的功能是计算1到1000之间所有偶数之和，程序空白处应填写的语句是 Private Sub Command_Click() Dim x As Double For i＝1 To 1000 If_______Then x＝x＋i End If Next i Debug．Print x End Sub

下列循环语句中，循环体执行的次数是 a＝100 Do a＝a＋1 Loop Until a<＝10

执行下列程序段后，输出结果是 n＝0 For i＝1 to 3 For j＝5 To 1 Step－1 n＝n＋1 Next j，i Debug．Print n；j；i

要使循环体至少执行一次，应使用的循环语句是

单击命令按钮时，下列程序的执行结果为 Private Function P(N As Integer) Static sum For I＝1 To N sun＝sum＋1 Next I P＝sum End Function Private Sub Commandl_Click() S＝P(1)＋P(2)＋P(3)＋P(4) Debug．Print S End Sub

下列程序段的执行结果是 Dim a(5)As String Dim b As Integer Dim I As Integer F0r I＝0 T0 5 a(I)＝I＋1 Debug．Print a(I) Next I

下列程序段的功能是：计算1＋2＋3……＋10的值，程序空白处应填写的语句是 Dim t，k as single k＝0 DO While k＜0 k＝k＋1 Loop

执行 k＝0 Do Until k＞3 x＝x＋2 k＝k＋1 Loop 下列程序段后，变量x的值是

调用下面子过程，消息框显示的结果是 Sub SFun() Dim x，y，m x＝100 y＝200 If x＞y Then m＝x Else m＝y End If MsgBox m End Sub

设执行以下程序段时依次输入：1、3、5，执行结果为 Dim a(4)As Integer Dim b(4)As Integer For K＝0 to 2 a(K＋1)＝Val(InputBox("请输入数据：")) b(3－K)＝a(K＋1) Next K Debug．Print b(K)

下列程序的功能是输出100到200间不能被3整除的数，程序空白处应填写的语句是 Private Sub Commmandl_Click() Dim X As Integer x＝100 Do Until x_________ If x Mod 3<>0 Then Debug．Print x End If x＝x＋1 Loop End Sub

执行下列程序段后，变量intsum的值是 Dim intsum As Integer Dim I As Integer intsum＝0 For I＝20．2 To 5 Step－4．7 intsum＝intsum＋I Next I

执行下列程序段后，变量s的值是 Dim s As long，x As Integer B＝0：x＝1 Do While(x＜10) s＝s＋x x＝x＋2 Loop

如果要求下列程序段中的循环执行3次，则程序中括号里的条件应是 x＝1 Do x＝x＋3 Loop Until(_______)

执行下列程序段后，变量intsum的值是 Dim intsum As Integer Dim I As Integer intsum＝0 For I＝0 T0 50 Step 10 intsum＝intsum＋I Next I

执行下列程序段，变量x的值是 x＝2 ：y＝5 Do Until y＞5 x＝x*y y＝y＋1 Loop

下列程序的功能是计算10的阶乘，程序空白处应该填写的语句是 Dim t as single Dim k as Integer k＝0：t＝1 While_______ k＝k＋1 t＝t*k Wend

VBA中将lnputBox的返回值转换为数值应该使用的函数是

若有语句：str1＝inlmtbox("输入"，""，"练习")；从键盘上输入字符串“示例”后，str1的值是

函数MsgBox返回值的类型是

下列选项中，错误的VBA数据验证函数是