首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Commandl的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序: Private Sub Commandl_Click() Dim x As String,s As String,temp As String
窗体上有1个名称为Commandl的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序: Private Sub Commandl_Click() Dim x As String,s As String,temp As String
admin
2020-04-18
83
问题
窗体上有1个名称为Commandl的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序:
Private Sub Commandl_Click()
Dim x As String,s As String,temp As String
Dim iAs Integer
x=InputBox("输入字符串","输入")
Ifx<>""Then
For i=Len(x)To 1 Step-1
s=Mid(x,i,1)
If S<>""Then
temp=s+temp
Else
List1.AddItem temp
s="":temp=""
End If
Next
List1.AddItem temp
Else
MsgBox"输入内容为空!"
End If
End Sub
程序运行后,单击命令按钮Commandl,并输入“Happy new year”,则在Lis1中显示的内容为
选项
A、year new Happy
B、Happy new year
C、raey wen yppaH
D、yopaH wen raey
答案
A
解析
本题的循环中倒序从字符串s中依次取出每一个字符,只要该字符不是空格就将其连接到temp的前面,见到空格就把连接好的temp加入到列表框中,即先加入year,然后是new,最后是Happy。
转载请注明原文地址:https://kaotiyun.com/show/MwTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load() Show
下列程序的执行结果为()。A="5":B="6"A=Val(A)+Val(B)B=Val("56")IfA◇BThenPrintA-BElsePrintB-A
在名称为Frame1的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为"单程"、"往返",如图所示。以下叙述中,正确的是( )。
下面是求最大公约数的函数的首部()。Functionfun(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:Dimx1AsInteger,x2AsInteger,x3AsIntegers=Trim(Text1.Text
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)End
下面关于菜单的叙述中正确的是
下面是一个判断并输出获得奖学金信息的程序:PrivateSubCommand1_Click()a%=InputBox("请输入主课成绩1")b%=InputBox("请输入主课成绩2")c%=InputBox
下列说法中正确的是
随机试题
运动时,下列哪一种叙述是不正确的()(1995年)
患者。女性,30岁。咳嗽2月,少量咳痰带血,乏力。无明显低热,无消瘦、无淋巴结肿大。查体:肺部无异常体征。应首先做哪项检查
男性,35岁。发热,胸部持续性钝痛二天,胸痛于仰卧时加剧,用硝酸甘油无效,心音减低,伴舒张期附加音,BP110/80mmHg,下肢水肿,静脉压180mmH2O,ECG:ST段抬高,弓背向下,未见Q波。下列体征不支持大量心包积液的是
某县暴发传染病,县政府主要领导以稳定、发展经济为由,要求并指示有关机构隐瞒传染疫情,造成传染病传播、流行。该主要领导应依法承担的行政责任是()
高层住宅内混凝土剪力墙与砖墙之间交接缝在抹灰前应采取防止开裂措施,当采用加强网时,加强网与各基体的搭接宽度不应少于( )。
某公司总经理在工作报告中对该公司的风险管理作了如下的介绍和描述:(1)该公司在上年度完成了风险管理;(2)企业风险管理的有效实施有赖于公司中层以上管理人员的工作;(3)公司的风险管理是企业层面的一项战略工作;(4)公司风险管理将确保
根据增值税法律制度的规定,纳税人销售货物向购买方收取的下列款项中,属于价外费用的有()。
午睡时,小玲指着墙上的一只虫子哇哇大哭,原来她被一只蜈蚣咬伤了。针对这种情况,当班老师应采取()的急救方法并立即报告幼儿园医务人员。
设u=u(x,y),v=v(x,y)有连续的一阶偏导数且满足条件:F(u,v)=0,其中F有连续的偏导数且
A、Councilmembersvetoedthebillontheminimumwage.B、Afinalvotewaspassedonraisingminimumwage.C、Protestersdemonstra
最新回复
(
0
)