首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中变量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
47
问题
在窗体中变量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”数据库文件中已建立表对象“tVisitor”,同时在考生文件夹下还有“exam.accdb”数据库文件。请按以下操作要求,完成表对象“tVisitor”的编辑和表对象“tLine”的导入。设置“年龄”字段的“有
下列叙述中正确的是
在考生文件夹下,已有一个数据库文件“samp1.accdb”,其中已经建立了两个表对象“tGrade”和“tStudent”,宏对象“mTest”和查询对象“qT”。请按以下操作要求,完成各种操作。设置“tGrade”表中“成绩”字段的显示宽度为20。
以下可以将变量A、B值互换的是( )。
数据库中有"商品"表如下:,要查找出单价大于等于3000并且小于10000的记录,正确的SQL命令是( )。
设二叉树的前序序列为ABDEGHCFIJ,中序序列为DBGEHACIFJ。则后序序列为
设一棵树的度为3,其中没有度为2的结点,且叶子结点数为6。该树中度为3的结点数为
某二叉树的后序遍历序列与中序遍历序列相同,均为ABCDEF,则按层次输出(同一层从左到右)的序列为
某二叉树的中序序列为DCBAEFG,后序序列为DCBGFEA,则该二叉树的深度(根结点在第1层)为
某二叉树的前序序列为ABCDEFG,中序序列为DCBAEFG,则该二叉树的深度(根结点在第1层)为
随机试题
A.下颌骨体有大小不等的多房阴影B.下颌骨内有单房阴影,四周有白色骨质线C.颌骨内虫蚀状骨质破坏区,牙周骨质可有破坏D.下颌角见骨质疏松脱钙,并有骨增生E.下颌骨体有骨质破坏,并有死骨形成颌骨中央性癌X线表现为
建筑施工企业应按照“纵向到底、横向到边、合理分工,互相衔接”的原则,落实各管理层与职能部门、岗位的安全生产管理责任,实施安全生产体系化管理。()
《中华人民共和国野生动物保护法》规定:建设项目对国家或者地方重点保护野生动物的生存环境产生不利影响的,建设单位应当提交()。
人民调解的基本原则有()
人力资源管理的重要性主要体现在()。
国际货币体系包括()。
对于促进儿童生长,保持正常味觉,促进创伤愈合以及提高机体免疫功能均有重要作用的无机盐是()。
2020年以来,欧盟针对美国科技企业的“恶意”几乎已经摆在了台面上,并且日前有传言称,欧盟方面的相关监管部门正在制定一份最多涵盖20家大型互联网公司的“黑名单”,而在这其中,Facebook、谷歌、苹果及亚马逊,极有可能榜上有名。与此同时,美国众议院司法委
A、Healsoneedsanewtennisracket.B、Hedoesn’tthinkBrainwillrepaytheloan.C、Hewantstoborrowsomemoneytoo.D、Hecou
Rumoristhemost【C1】______wayofspreadingstories---bypassingthemonfrommouth【C2】______month.Butcivilizedcountriesinn
最新回复
(
0
)