首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
2020-07-22
25
问题
窗体上有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=Lea(x)To 1 Step-1
s=Mid(x,i,1)
If s<>""Then
temp=s+temp
Else
List1.Addhem temp
s = ""
tem=""
End If
Next
List1.AddItem temp
Else
MsgBox"输入内容为空!"
End If
End Sub
程序运行后,单击命令按钮Comd1,并输入“Happy new year”,则在List1中显示的内容为( )。
选项
A、year
new
Happy
B、Happy
new
year
C、raey
wen
yppaH
D、yppaH
wen
raey
答案
A
解析
List1.Addltem可以为列表框添加列表项。For循环中通过Mid函数从字串中倒序取出字符,碰到空格时添加新列表项。选A。
转载请注明原文地址:https://kaotiyun.com/show/pWHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下不能输出“Program”的语句是
下面关于直线控件的叙述中正确的是()。
对于含有多个窗体的工程而言,以下叙述中正确的是
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load()PrivateSubFormClick()Text1.Text="":Text1.SetFocus
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:OptionBase1PrivateSubCommand1Click()Dimaa:Array(1,2,3,4)J=1Fori=4To1St
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于()。
设Labell、Commandl、Textl、Checkl分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
文本框的Locked属性被设置为True后产生的效果是
如果要定义一个窗体级变量,定义变量语句的位置应该是()。
以下说法中,正确的是()。
随机试题
固定红利模型是评估人员对被评估股票()
关于催乳素的说法错误的是
某社区年均人口为10万,年内肿瘤患者共400人,年内共死亡200人,其中60岁以上死亡90人;在全部死亡者中,因肿瘤死亡人数为50人,该社区年内共出生120人。该地肿瘤的死亡率为
对大中河流,当预测河段的最大弯曲系数>( )时,就需要视为弯曲河流。
你在执行一项特殊任务,情况紧急,需在短时间内做出决策,否则会贻误时机,造成极大损失。但按照公司的规定,重大决策需请示公司领导集体研究决定,可是你的主管上司偏偏联系不上,这时,你会()。
深入实际了解学生,是班主任做好学生操行评定的基本前提。()
Throughoutthetwentiethcentury,from1900onwards,peoplehavedreamtofthetechnologicaladvancesthattheadventofthenew
比较直接插入排序、起泡排序、简单选择排序、快速排序、堆排序、2一路归并排序和基数排序的算法性能,并填写下表:
Ofallthestudentsinourclass,sheis______.
Lookatthenotesbelow.Someinformationismissing.Youwillhearaphonecallaboutgoodsdelivery.Foreachquestion
最新回复
(
0
)