首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim n As Integer Dim x As String, y As String, s As String x = "#" y = "**"
编写如下程序: Private Sub Command1_Click() Dim n As Integer Dim x As String, y As String, s As String x = "#" y = "**"
admin
2020-07-22
52
问题
编写如下程序:
Private Sub Command1_Click()
Dim n As Integer
Dim x As String, y As String, s As String
x = "#"
y = "**"
For n = 1 To 4
If n Mod 2 = 0 Then
s = String(Len(y) + n, y)
Else
s = String(Len(x) + n, x)
End If
Print s
Next n
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、##
****
####
******
B、#
**
###
****
C、**
####
****
######
D、##
****
######
********
答案
A
解析
Len(x)=1,Len(y)=2,String(n,s)生产n个同一字符组成的字符串,此字符由s指定,当s为字符是,生产n个由s组成的字符串,当s为字符串时,字符为s的第一个字符。在For循环中,n从1到4,当n为偶数时(n mod 2=0)即当n为2、4时,分别在第2行、第4行,输出含有n+len(y)个的"*"(由y决定)的字符串;当n为奇数时(n mod 2!=0),即当n为1、3时,分别在第1行、第3行,输出含有n+len(x)个"#"(由x决定)的字符串。当n=1时,s=String(Len(x)+n,x)=String(1+1,"#")=##,输出##;当n=2时,s=String(Len(y)+n,y)=String(2+2,"**")=****,输出****;当n=3时,s=String(Len(x)+n,x)=String(1+3,"#")=####,输出####;当n=4时,s=String(Len(y)+n,y)=String(2+4,"**")=******,输出******;故A项正确。
转载请注明原文地址:https://kaotiyun.com/show/S5Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
表达式Str(Len("123"))+Str(77.7)的值是()。
为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为().
面向对象方法中,继承是指()。
下列叙述中正确的是( )。
下列叙述中,不属于软件需求规格说明书的作用的是()。
下面不属于软件需求分析阶段主要工作的是
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
下列可作为VisualBasic变量名的是()。
设A、B、C是三角形的3条边,则以下表示“任意两边之和大于第三边”的布尔表达式是
随机试题
肺气肿最具特征性的体征为()
主动脉窦瘤破裂与室间隔缺损鉴别的特异性表现为()
A.不致出现过敏现象B.柔软、滑润,无板硬、黏着不适感C.不会刺激皮肤引起皮炎D.能使疮口早日愈合E.富有黏性,能固定患部,使患部减少活动
A.银翘散B.羚角钩藤汤C.清瘟败毒饮D.琥珀抱龙丸E.黄连解毒汤急惊风邪陷心肝证用方为
下列有关药物表观分布容积叙述正确的是
一岁半小儿,烦燥易哭,前囟未闭,方颅、鸡胸、"O"型腿,血钙低,血磷低,钙磷乘积<30,碱性磷酸酶20菩氏单位,诊断为:
监理实施细则的编制对象是( )。
下列关于单枕综合铺设法施工基本作业程序正确的是()。
清前期在边疆地区施行的不同于内地行省的统治措施。(四川大学2014年中国通史真题)
Manypsychologists,myselfincluded,usethethird-personperspectivethemeintheirworkinavarietyofways.Narrativether
最新回复
(
0
)