在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAseii As Integer) If

admin2020-06-30 28

问题在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAseii As Integer)
If Chr(KeyAseii)<>""Then ss=ss+Chr(KeyAscii)
End Sub
Prirate Sub Command1_Click()
Dim m As string，i As Integer
For i=Len(ss)To 1 Step—1
m=m+Mid(ss，i，1)
Next
Text1．Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是( )。

选项 A、NUMBER 100
B、REBlVIUN
C、REBMUN 100
D、001 REBMUN

答案D

解析题目中程序是将ss字符串进行反向排列，并放到m中去。其中．Number空格后的100被当成字符串来处理，最后结果是将“Number 100”反向排列，并通过ucase()函数将所有字母转换成大写，得到001 REBMuN。

转载请注明原文地址:https://kaotiyun.com/show/7mHp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAseii As Integer) If

二级VB

NCRE全国计算机二级

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：PrivateSubCommand1_Click()　　Counter＝0　　Fori＝1To4　　　　Forj＝6To1S

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：PrivateTypexaAsIntegerbAsIntegerEndTypePrivateS

设有如下一段程序：PrivateSubCommand1_Click()　　StaticaAsVariant　　a＝Array("one"，"two"，"three"，"four"，"five")　　Printa(3)EndS

使用()方法，可清除列表框中所有的列表项。

如图所示，在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1______________TextTime．Text=TimeEndSu

以下关于窗体的叙述中，错误的是(　　)。

设x为一整型变量，且语句的开始为：SelectCasex，则不符合语法规则的Case子句是

窗体上有一个名称为VSeroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是()。

患者男性，67岁，既往有糖尿病和COPD病史，3天前受凉后出现咳嗽、咳黄痰，伴有低热，最高体温为37．8℃，人院后查体：双肺均可闻及细湿啰音，胸部X线示双肺点片状阴影，血常规示WBC6．5×109／L，N76％该患者可能的诊断为

实验效果的主要评价指标包括，除了

A．溶解B．软化C．变脆D．气化E．结晶药物的稀醇溶液能使胶囊壁()。

事业法人必须经过工商部门的年检，才能保证法人资格的合法性。()

下列法的形式中，属于国家的根本大法、具有最高法律效力的是()。

教学技能的运用要取得良好的效果必须()

当代资本主义国家在政治制度上的变化表现在

[A]Loveyourself[B]Don’tgiveup[C]Forgiveandforget[D]Thinkofthepresent[E]Don’tbemeantoyourself

Interruption,moresurelythananythingelse,killsconversation.Thebestoftalkersinterrupt【C1】______inconversation.Howe

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAseii As Integer) If

二级VB

NCRE全国计算机二级

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：PrivateSubCommand1_Click() Counter＝0 Fori＝1To4 Forj＝6To1S

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：PrivateTypexaAsIntegerbAsIntegerEndTypePrivateS

设有如下一段程序：PrivateSubCommand1_Click() StaticaAsVariant a＝Array("one"，"two"，"three"，"four"，"five") Printa(3)EndS

使用()方法，可清除列表框中所有的列表项。

如图所示，在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1______________TextTime．Text=TimeEndSu

以下关于窗体的叙述中，错误的是( )。

设x为一整型变量，且语句的开始为：SelectCasex，则不符合语法规则的Case子句是

窗体上有一个名称为VSeroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是()。

患者男性，67岁，既往有糖尿病和COPD病史，3天前受凉后出现咳嗽、咳黄痰，伴有低热，最高体温为37．8℃，人院后查体：双肺均可闻及细湿啰音，胸部X线示双肺点片状阴影，血常规示WBC6．5×109／L，N76％该患者可能的诊断为

实验效果的主要评价指标包括，除了

A．溶解B．软化C．变脆D．气化E．结晶药物的稀醇溶液能使胶囊壁()。

事业法人必须经过工商部门的年检，才能保证法人资格的合法性。()

下列法的形式中，属于国家的根本大法、具有最高法律效力的是()。

教学技能的运用要取得良好的效果必须()

当代资本主义国家在政治制度上的变化表现在

[A]Loveyourself[B]Don’tgiveup[C]Forgiveandforget[D]Thinkofthepresent[E]Don’tbemeantoyourself

Interruption,moresurelythananythingelse,killsconversation.Thebestoftalkersinterrupt【C1】______inconversation.Howe

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：PrivateSubCommand1_Click()　　Counter＝0　　Fori＝1To4　　　　Forj＝6To1S

设有如下一段程序：PrivateSubCommand1_Click()　　StaticaAsVariant　　a＝Array("one"，"two"，"three"，"four"，"five")　　Printa(3)EndS

以下关于窗体的叙述中，错误的是(　　)。