首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Commandl的命令按钮;1个名称为Listl、没有列表项的列表框。编写如下程序: Private Sub Command1 Click() Dim X As String,s As String,temp As String Dim
窗体上有1个名称为Commandl的命令按钮;1个名称为Listl、没有列表项的列表框。编写如下程序: Private Sub Command1 Click() Dim X As String,s As String,temp As String Dim
admin
2020-01-02
33
问题
窗体上有1个名称为Commandl的命令按钮;1个名称为Listl、没有列表项的列表框。编写如下程序:
Private Sub Command1 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
List 1-AddI
选项
A、year new Happy
B、Happy new year
C、raey wen yppaaH
D、yppaH wen raey
答案
A
解析
本题的循环中倒序从字符串s中依次取出每一个字符,只要该字符不是空格就将其连接到temp的前面,见到空格就把连接好的temp加入到列表框中,即先加入year,然后是new,最后是Happy。
转载请注明原文地址:https://kaotiyun.com/show/UbTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()Dima(10)AsInterger,p(3)AsIntergerK=5F
如图所示,在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1TextTime.Text=TimeEndSub在下划线上应填入
为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为()。
下列不一定是传值的虚实结合方式的选项是()。
不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是()。
下列叙述中有错误的是()。
(1)在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应
(1)在名称为Form1的窗体上画1个名称为Label1的标签数组,含3个标签控件,下标从0开始,标签上的内容(按下标顺序)分别是:“等级考试”,“程序设计”,“VB程序”。运行后的窗体如图3.1所示。注意:存盘时,将文件保存至考生文件夹下,且
以下关于过程的叙述中,错误的是
以下VisualBasic不支持的循环结构是
随机试题
氧解离曲线的上段
根据适应模式,人作为一个适应系统,下列说法错误的是
患者女性,30岁。不明原因发热十多天,检查发现肝脾肿大,外周血WBC数量明显增多,且出现幼稚细胞,则应进一步做
肝硬化腹水病人每日钠盐应限制在
下列要求不符合国家防规范的是()。
在企业的预算体系中,( )是整个预算管理体系的前提。
资料一上世纪90年代,亚洲H国有近百家自行车企业转移到亚洲C国。留在H国的自行车企业采用多种路径实现了整体产业升级,这些路径主要有:(1)产业重新定位,形成产业分工模式。H国排名前三位的自行车厂商均在C国设厂。基于对自行车商品在“后工业社会
甲公司打算采购一批货物,供应商给出如下报价情况:(1)立即付款,价格为9750元;(2)20天内付款,价格为9860元;(3)21至30天付款,价格为9910元;(4)31至50天付款,价格为10000元。
Itwasoncethoughtthatairpollutionaffectedonlytheareaimmediatelyaroundlargecitieswithfactoriesandheavyautomobil
A、Watchthefilmtwomoretimes.B、Memorizethescenesandstories.C、Listentothefilminsteadofwatchingit.D、Repeatwhatt
最新回复
(
0
)