首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中变量131对应的文本框为Text1,“运行”按钮Command1对应的事件代码如下: Private Sub Command1_Click() Dim result As String m=Val(Me!Text1)
在窗体中变量131对应的文本框为Text1,“运行”按钮Command1对应的事件代码如下: Private Sub Command1_Click() Dim result As String m=Val(Me!Text1)
admin
2020-06-06
53
问题
在窗体中变量131对应的文本框为Text1,“运行”按钮Command1对应的事件代码如下:
Private Sub Command1_Click()
Dim result As String
m=Val(Me!Text1)
result=" "
For k=1 To m
For n=1 To k+m-1
If n<m-k+1 Then
result=result&" "
Else
result=result& "*"
End If
Next n
result=result+Chr(13)
Next k
MsgBox result,,"运行结果"
End Sub
打开窗体,在文本框中输入m的值为5,单击运行按钮后,程序的运行结果是( )。
选项
A、由星号组成的高为5的等腰三角形
B、由星号组成的高为5的等腰梯形
C、由星号组成的边长为5的平行四边形
D、由星号组成的边长为10的平行四边形
答案
A
解析
在命令按钮的单击事件中,变量m取得在文本框Text1中的输入值,变量result存储输出的图形。在过程中包含了两层For循环,外层循环每执行一次,计算出result一行的值,执行m次后,生成m行图形;内层循环生成result一行中的每一个字符,执行次数随着外层k值的变化而递增。当m=5,外层k=1时,内层执行5次。
n<5时,result增加一个空格;n>=5时,result增加一个*号。所以result第一行的图形是4个空格加1个*号。外层k=2时,内层执行6次。
n<4时,result增加一个空格;n>=4时,result增加一个*号。所以result第二行的图形是3个空格加3个*号。依次类推,会输出5行高的等腰三角形。
转载请注明原文地址:https://kaotiyun.com/show/UY0p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
采用树型结构表示实体之间联系的数据模型为
在考生文件夹下的“samp1.accdb”数据库文件中已建立表对象“tStud”和“tSoore”、宏对象“ml’est”和窗体“fTest”。请按以下要求,完成各种操作。将宏“mTest”重命名保存为自动执行的宏。
下列叙述中正确的是
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。(1)设置表对象“tEmp”中“年龄”字段的有效性规则
下列程序的功能是输出100到200间不能被3整除的数,程序空白处应填写的语句是PrivateSubCommmand1_Click()DimxAsIntegerx=100DoUntilx_________
执行下列程序段后,变量intsum的值是DimintsumAsIntegerDimIAsIntegerintsum=0ForI=20.2To5Step-4.7intsu
数据库中有"商品"表如下:要查找出"40"号部门单价最高的前两条记录,正确的SQL命令是( )。
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计好表对象“产品”、“供应商”、查询对象“按供应商查询”和宏对象“打开产品表”、“运行查询”、“关闭窗口”。请按以下要求完成设计。创建一个名为“menu”的窗体,要求如下。
设一棵完全二叉树共有700个结点,则此二叉树中的叶子结点数为
在深度为7的满二叉树中,叶子结点的个数为
随机试题
数据库概念设计的ER图中,用属性描述实体的特征,属性在ER图中用()表示。
ERPⅡ是在ERP的基础上引进了()
平均利润率是指()
A.慢性阻塞性肺病B.肺炎球菌性肺炎C.右中叶综合征D.肺栓塞E.原发性肺结核可发生肺脓肿的是
由于下颌骨的特殊解剖特点,下列哪种病变容易通过下颌管扩散,导致急性弥散性中央性颌骨骨髓炎
地面涂料的基本要求不包括()。
目前,教育储蓄存款的储户是且只能是()。
下列言语中,属于职业忌语的是()。
法律:约束()
What’sthewomansuggestingtotheman?
最新回复
(
0
)