niusouti.com

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和Command1，然后编写如下两个事件过程：Private Sub Commandl_Click()S$=InputBox(”请输入一个字符串”)Textl．Text=S$End SubPrivate Sub Textl Change()Label1．Caption=UCase(Mid(Text1．Text，7))End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasi

题目

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和Command1，然后编写如下两个事件过程：

Private Sub Commandl_Click()

S$=InputBox(”请输入一个字符串”)

Textl．Text=S$

End Sub

Private Sub Textl Change()

Label1．Caption=UCase(Mid(Text1．Text，7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。

相似考题

1.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30

2.在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。A．11B．12C．16D．20

3.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程： Prirate SUb Command1 Click() strText = InputBox(“请输入”) Textl.Text = strText End Sub Private Sub Text1 Change() Labell.Caption = Right(Trim(Text1.Text)， 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A．空B．abcdefC．abcD．def

4.在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：Sub S(x As Integer，Y As Integer)Static z As Integery=x*x+zz=yEnd SubPrivate Sub Command1_Click()Dim i As Integer，z As Integerm=0z=0For i=1 To 3S i，zm=m+zNext iLabel1．Caption=Str(m)End Sub程序运行后，单击命令按钮，在标签中显示的内容是A．50B．20C．14D．7

更多“在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Textl、Labell和Command1,然后编写如 ”相关问题

  • 第1题：

    在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

    程序运行后，单击命令按钮，在文本框中显示的值是__________。


    正确答案：
    30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。

  • 第2题：

    若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框，且文本框的内容光焕发为空，然后编写如下事件代码： Private Function fx As Long． As Boolean If x Mod 2 =0 Then f =True Else f =False End If End Function Privare Sub Commandl_Click． Dim n As Ling n =ValMeltextl． p=Iiffn．,”Even number”,”Odd number’ Me!Labell.Caption=n＆“is” ＆p End Sub 窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为 【12】


    正确答案：
    21 is odd number

  • 第3题：

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

    程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。


    正确答案：
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为： 其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。

  • 第4题：

    在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。

    A．27

    B．28

    C．29

    D．30


    正确答案：C
    解析：程序中各部分值的运算过程为：Text1.Text="28.653"Val(Text1.Text)=28.653Val(Text1.Text)+0.5=29.153Int(Val(Text1.Text)+0.5)=29x=29str(x)="29"

  • 第5题：

    在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入Visual，则在标签中显示的内容是

    A．空

    B．Visual

    C．Vis

    D．ual


    正确答案：D
    解析：当用户向文本框中输入新信息或当程序将Text属性设置为新值从而改变文本框的Text属性时，将触发Change事件，即执行“Text1.Text=strText”语句时，就触发了Change事件。Trim(字符串)将返回的是去掉“字符串”两边的空白字符，Right(字符串，n)将返回“字符串”的最后n个字符。字符串Visual最右边的3个字符为ual。

相关内容