首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序: Private Sub Command1_Click() Dim x As String, s As String, temp As String
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序: Private Sub Command1_Click() Dim x As String, s As String, temp As String
admin
2015-08-28
35
问题
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序:
Private Sub Command1_Click()
Dim x As String, s As String, temp As String
Dim i As Integer
x = InputBox("输入字符串", "输入")
If x <> "" 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
程序运行后,单击命令按钮Command1,并输入"Happy new year",则在List1中显示的内容为
选项
A、 year
new
Happy
B、Happy
new
year
C、raey
wen
yppaH
D、yppaH
wen
raey
答案
A
解析
List1.AddItem可以为列表框添加列表项。For循环中通过Mid函数从字串中倒序取出字符,碰到空格时添加新列表项。选A)。
转载请注明原文地址:https://kaotiyun.com/show/r1Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括______。
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括
语句DimArr(3To5,-2To2)定义的数组的元素个数是()。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
为了清除列表框中的所有内容,应使用的方法是______。
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行后,单击命令按钮,输出的结果是____
下面叙述中不正确的是______。
若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是______。
设有如下变量声明:DimTestDateAsDate为变量TestDate正确赋值的表达方式是______。
随机试题
系统额定工作压力为10MPa的细水雾灭火系统,属于()系统。
中暑病人腓肠肌痉挛的原因是
患者新产之后头项强痛,发热恶寒,牙关紧闭,口角抽动,呈苦笑面容,继而项背强直,角弓反张,苔薄白,脉浮而弦。治宜
A.按挂号顺序就诊B.送往急诊室就诊C.立即送人抢救室抢救D.做好疫情报告E.安排到隔离门诊就诊张某,男,6岁。因发热、皮疹前来就诊,皮疹呈向心性分布。护士应
合同成立与合同生效的区别具体表现在()。
以下应税消费品中,适用定额税率的有( )。
有以下程序#includevoidswap(char*x,char*y){chart;t=*x;*x=*y;*y=t;}main(){char*s1="abc",*s2="123";swap(s1,s2);prin
人们根据特定的需要,预先为计算机编制的指令序列称为______。
Colorsaresometimescalledhot,cold,orneutral(中性的).Redandyellowaresaidtobehotcolorsbecausetheymakearoomwarmer
说明:假设你是一名导游,请按照下面内容写一段导游词。内容:1.向游客问好,欢迎参加本次旅游;2.时间安排:这次旅游为期两天,旅游路线为从济南出发到泰安再返回济南;3.具体安排:下午到达泰安爬泰山;第二天早上观日出,然后坐索道下山;之后去腊山森林公园
最新回复
(
0
)