首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下: Private Sub Command1_Click() Dim i,f1,f2 As Integer Dim flag
在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下: Private Sub Command1_Click() Dim i,f1,f2 As Integer Dim flag
admin
2018-01-25
66
问题
在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下:
Private Sub Command1_Click()
Dim i,f1,f2 As Integer
Dim flag As Boolean
f1=Val(Me!Text0)
t2=Val(Me!Text1)
If f1>f2 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中显示的结果是( )。
选项
A、5
B、15
C、20
D、10
答案
A
解析
f1=15,f2=20,i=15,Do While循环中,f1和f2不能同时整除i,一直循环执行i=i-1,直到i=5,满足f1和f2不能同时整除i,执行flag=False,则退出循环,Me!Text2=i,即为5。
转载请注明原文地址:https://kaotiyun.com/show/QXMp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在已建雇员表中有“工作日期”字段,下图所示的是以此表为数据源创建的“雇员基本信息”窗体。假设当前雇员的工作日期为“1998-08-17”,若在窗体“工作日期”标签右侧文本框控件的“控件来源”属性中输入表达式:=Str(Month([工作日期]))
Access通过数据访问页可以发布的数据()。
执行下面的程序,消息框里显示的结果是_______。PrivateSubForm_Click()DimStrAsStringStr=""S="Access"Fori=Len(S)To1Step-l
计算报表中学生的年龄的最大值,应把控件源属性设置为.()。
假设一个Movies表的主关键字是“电影名”字段,数据类型为文本,那么下列该主键字段值中不合理的是()。
在面向对象方法中,一个对象请求另一对象为其服务的方式是通过发送______。
在Access2000中报表中有______和______视图,而没有______视图。
在有参函数设计时,要想实现某个参数的“双向”传递,就应当说明该形参为“传值”调用形式,其设置选项是______。
有关字段属性,以下叙述错误的是______。
使用表设计器来定义表的字段时,以下哪个项可以不设置内容______
随机试题
在下面的Socket通信中,_______是服务器端程序中要调用,而客户端不调用的系统调用。
简析《故事新编》的创作特点。
商誉
社会意识指__________,其复杂结构从不同角度可分为__________、__________、__________。
Icontinuedtostudy_____thediscouragementIhadreceived.
A.不吃、不哭、反应差、口吐泡沫、面色发绀、脑脊液外观清B.不吃、不哭、反应差、哭声尖、阵发青紫、脑脊液外观混C.不吃、不哭、反应差、哭声单调、面色发灰、脑脊液外观混D.不吃、不哭、反应差、哭声低弱、面色青灰、脑脊液外观清E.不吃、不哭、反应差、牙
支付担保是一种重要的工程担保类别,下列关于支付担保的说法正确的有()。
某窗体中有一命令按钮,名称为C1。要求在窗体视图中单击此命令按钮后,命令按钮上显示的文字颜色变为棕色(棕色代码为128),实现该操作的VBA语句是______________。
Iammoreofahostthanaguest.Ilikepeopletostaywithmebutdonotmuchcareaboutstayingwiththem,andusually【1】_
A、1,000students.B、3,000students.C、3,500students.D、3,800students.D
最新回复
(
0
)