首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim str1 As String, str2 As String str1=InputBox("输入一个字符串") subf str1, str2 Print s
编写如下程序: Private Sub Command1_Click() Dim str1 As String, str2 As String str1=InputBox("输入一个字符串") subf str1, str2 Print s
admin
2020-07-22
65
问题
编写如下程序:
Private Sub Command1_Click()
Dim str1 As String, str2 As String
str1=InputBox("输入一个字符串")
subf str1, str2
Print str2
End Sub
Sub subf(s1 As String, s2 As String)
Dim temp As String
Static i As Integer
i=i+1
temp=Mid(s1, i, 1)
If temp<>"" Then subf s1, s2
s2=s2 & temp
End Sub
程序运行后,单击命令按钮Command1,且输入"abcdef",则输出结果为( )。
选项
A、afbecd
B、cdbeaf
C、fedcba
D、adbecf
答案
C
解析
程序中过程subf的两个参数都默认按址传递,其内部定义的变量i为Static即静态变量,在过程调用时它会保留上次的值。这个过程的功能是通过递归调用自己依次取出参数1中即s1中的字符连接在s2的尾部,即使s1的字符串倒序后存入s2中。程序中输入了abcdef,则输出结果为fecdba。
转载请注明原文地址:https://kaotiyun.com/show/ifHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序:PrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Cl
下列叙述中,不属于软件需求规格说明书的作用的是()。
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
将数据项“Student”添加到名称为List1的列表框中,并使其成为列表框第一项的语句为()。
下列哪一条小属于数据库设计的任务?()
假定在标准模块中的声明部分有如下语句:PublicVarAAsInteger而在窗体模块的声明部分有如下语句:PublicVarBAsInteger则以下叙述中正确的是
为使文本框具有初始值"VB",在设计阶段正确的操作是
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中,错误的是
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tEmployee”和查询对象“qEmployee”,同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。请在此基础上按照以下要求补充报表设计。
随机试题
当一行字数比较多的时候,容易看串行,此时一般都采用分栏的方式。
男性,42岁,头晕、乏力半年,逐渐出现向心性肥胖、痤疮、腹壁紫纹,7天来乏力加重。无高血压史。查体:血压160/100mmHg。化验:血钾3.2mmol/L,血皮质醇增高,血ACTH正常。该患者最可能的诊断是
容易潮解的口服药物是
某公司对低值易耗品采用“五五摊销法”核算。2011年10月公司管理部门领用一批低值易耗品,实际成本为16000元;2011年11月底。该批低值易耗品全部报废,收回残料1000元。报废时。该公司应作的正确会计分录为()。
教师对所有的对象都抱有较高的期望并肯定提高教育效果的是()。
“探索等腰三角形的性质”的教学片段:(一)创设情境,引出课题教师活动:现在农村经济条件好了,大部分家庭盖有楼房。大家知道农村的楼房都有房梁,并且这些房梁都保持水平状态,你知道木匠师傅采用什么方法来确定房梁是否保持水平吗?学生活
班主任首要的工作职责是()。
党员违法犯罪后受到国法追究,可不再受党纪追究。()
直线x-y+m=0与圆x2+y2-2x-1=0有两个不同交点的一个充分不必要条件是
Whatisthecauseofsharpdropinexchangemarkets?
最新回复
(
0
)