首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序: Private Sub Commandl Click() Dim xAs String,sAs String,tempAs St
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序: Private Sub Commandl Click() Dim xAs String,sAs String,tempAs St
admin
2017-11-23
37
问题
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序:
Private Sub Commandl Click()
Dim xAs String,sAs String,tempAs String
Dim i As 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.Addltem temp
Else
MsgBox”输入内容为空!”
End If
End Sub
程序运行后,单击命令按钮Command1,并输入“Happy new year”,则在List1中显示的内容为
选项
A、year new Happy
B、Happy new year
C、racy wen yppaH
D、yppaH wen raey
答案
A
解析
本题的循环中倒序从字符串s中依次取出每一个字符,只要该字符不是空格就将其连接到temp的前面,见到空格就把连接好的temp加入到列表框中,即先加入year,然后是new,最后是Happy。
转载请注明原文地址:https://kaotiyun.com/show/ryGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
程序运行时,用户向文本框输入内容时,将触发文本框的()事件。
当发生Form_Click事件时,下列程序的输出结果是()。PrivatemAsInteger,nAsIntegerPrivateSubForm_Click()DimkAsInteger,pAsInt
程序段:S=0ForI=1to5step2S=s+INextIPrintI语句S=S+1执行的次数和最后I的值分别为()。
数据结构分为线性结构和非线性结构,线性表、栈和队列都属于【】。
为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为______。
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为______。
以下是MDI子窗体在运行时特性的叙述,错误的是______。
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为"零点")。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为()。
随机试题
癌细胞胞质嗜碱性增强是由于:
A.血尿伴肾绞痛B.血尿伴膀胱刺激症状C.血尿伴水肿、高血压D.血尿伴肾肿块E.血尿伴皮肤黏膜出血肾肿瘤可见
枕后位是指:
关于共同犯罪的论述,下列哪一选项是正确的?()(2012/2/10)
期货交易的收费项目、收费标准和管理办法由国务院有关主管部门统一制定并公布。()
个人征信查询系统内容中的贷款信息,不包括的是()。
阅读材料,回答下列问题。某研究机构从全国随机抽取10个市的儿童家长,对其进行“我国儿童校外生活状况”的问卷调查,回收有效问卷15000份。调查结果显示:对儿童校外生活表示“很重视”的家长占85%以上,表示“很满意”或“比较满意”的占6
一方委托他方从事研究所作的发明创造,在协议未作约定时,其专利申请权归属于()。
有人说道:读万卷书不如行万里路,行万里路不如阅人无数,阅人无数不如名师指路,名师指路不如自己领悟。除了哪一项,以下各项都能构成对上述观点的质疑?
A、Shepaidhermortgage.B、Shecalledontheman.C、Shemadeabusinessplan.D、Shewenttothebank.D细节推断题。对话一开始男士就问女士早上在银行的情况
最新回复
(
0
)