首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
59
问题
编写如下程序:
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全国计算机二级
相关试题推荐
下面不属于软件设计阶段任务的是
设x=4,y=8,z=7,则以下表达式的运算结果是()。x<yAnd(Noty>z)Orz<x
有如下过程代码:Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=numb+1printnuma
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮,则变量strInput的内容是( )。
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的case子句是()。
语句PrintString(3,"string")的功能是
下列链表中,其逻辑结构属于非线性结构的是
为使文本框具有初始值"VB",在设计阶段正确的操作是
软件测试用例包括()。
非空循环链表所表示的数据结构
随机试题
由施工方和监理方质检人员共同检查并确认的是()。
Scientistswhostudythebrainhavefoundoutagreatdealabouthowwelearn.Theyhave【C1】______thatbabieslearnmuchmorefr
美国某公司以CIF价与中国某公司签订了向中国出口火腿肠2000箱的合同,美国公司在货物装运后,凭已装船清洁提单和已投保一切险及战争险的保险单,向银行办理了结汇,货到目的港后经复验发现,该批货物中的342箱火腿肠所含的黄金色葡萄球菌超过进口国的标准,250
下列关于工程网络计划工期优化的说法,正确的有()。
有下列情形之一的,存款人应向开户银行提出撤销银行结算账户的申请()。
以下元素按原子序数由小到大排列,正确的是()。
维护社会公正是国家机关工作人员职业道德的核心价值取向。()
A、 B、 C、 D、 A题干图形中均有直角,选项中只有A有直角。
AtdawnonemorninginearlyMay,SeanCosgroveisstashingpilesofmaps,notesandphotocopieddocumentsinhisgymbagbefore
TheThree-YearSolutionHartwickCollege,asmallliberal-artsschoolinupstateNewYork,makesthisoffertowell-prepared
最新回复
(
0
)