单选题当执行以下过程时，在名为lblResult的标签框内将显示（） Private Sub cmdIt_Click（） DimI，R R＝0 ForC＝1 to 5 Step l R＝R+C Next C LblResult.Caption＝Str$（R） EndSubA15B14C5D4
单选题
当执行以下过程时，在名为lblResult的标签框内将显示（） Private Sub cmdIt_Click（） DimI，R R＝0 ForC＝1 to 5 Step l R＝R+C Next C LblResult.Caption＝Str$（R） EndSub
A
15
B
14
C
5
D
4
参考解析
解析：
暂无解析
相关考题：
（ 12 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 当单击 “ 测试 ” 按钮时 ， 执行的事件功能是 ： 首先弹出消息框 ， 若单击其中的 “ 确定 ” 按钮 ， 则隐藏窗体上的 “ 显示 ” 按钮：否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub cmdTest Click （ ）Answer= 【 12 】（ “ 隐藏按钮？ ” ， vbOKCancel+vbQuestion, “ Msg ” ）If Answer=vbOK ThenMe{cmdDisplay.Visible= 【 13 】End IfEnd Sub
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干国家的名称，当单击别表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是。A. Private Sub List1_Click() Labell.Caption=List1.ListIndex End SubB. Private Sub List1_Click() Labell.Name=List1.ListIndex End SubC. Private Sub List1_Click() Labell.Name=List1.Text End SubD. Private Sub List1_Click() Labell.Caption=List1.Text End Sub
执行以下语句过程，在窗体上显示的内容是Option Base 0Private Sub Command3_Click（）Dim dd=Array（"a", "b", "c", "d"）Print d（1） ; d（3）End Sub（ ）。A．abB．bdC．acD．出错
在运行程序的过程中，当执行“复制”(mnuEditCopy)命令时，使“粘贴”(munEditPaste)命令变为可用，则应做如下处理( )。A．Private Sub nuEditPaste_Click() …… mun EditPaste.Enable=True End SubB．Private Sub mnuEditCopy click …… muEditPaste.Enable=True End SubC．Privat Sub munEditPaste_Click() …… mnuEditPaste.Visible=Tme End SubD．Private Sub munEditCopy_ClicK() …… munEditPaste.Visible=Tme End Sub
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。A．Private Sub Text1_Change() Labell.Caption=Text1.Text End SubB．Private Sub Text1_Click() Labell.Caption=Text1.Text End SubC．Private Sub Labell_Change() Labell.Caption=Text1.Text End SubD．Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。A．Private Sub List1_Click() Label1. Caption=List1. ListIndex End SubB．Private Sub List1_Click() Label1. Name=List1. ListIndex End SubC．Private Sub List1_Click() Label1. Name=List1. Text End SubD．Private Sub List1_Click() Label1. Caption=List1. Text End Sub
窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private Sub cmdTest_Click（）Answer= （“隐藏按钮”，vbOKCancel）If Answer=vbOK ThencmdDisplay.Visible=ElseDocmd.CloseEnd IfEnd Sub
在窗体上画一个名称为Listl酌列表框，一个名称为Labell的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：______。A． Private Sub Listl_Click() Labell.Caption=Listl.ListIndex End SubB．Private Sub Listl_Click() Labell.Name=Listl.ListIndex End SubC．Private Sub Listl_click() Labell.Name=Listl.Text End SubD．Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是（ ）。A．Private Sub List1_Click（）Label1.Caption = List1.ListIndexEnd SubB．Private Sub List1_Click（）Label1.Name=List1.ListIndexEnd SubC．Private Sub List1_Click（）Label1.Name=List1.TextEnd SubD．Private Sub List1_Click（）Label1.Caption =List1.TextEnd Sub
在窗体上画一个名称为List1的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 ______。A．Private Sub List1_Click() Label1.Caption=List1.ListIndex End SubB．Private Sub List1_click() Label1.Name=List1.ListIndex End SubC．Private Sub List1_click() Label1.Name=List1.Text End SubD．Private Sub List1_Click() Label1.Caption=List1.Text End Sub
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。A． Private Sub Text1 Click() Labell.Caption=Text1.Text End SubB．Private Sub Text1_Change() Labell.Caption=Text1.Text End SubC．Private Sub Labell_Change() Labell.Caption=Text1.Text End SubD．Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
在窗体上绘制一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中的项目的名称。下列能正确实现上述操作的程序是 。A．Private Sub List1_Click()Labell.Caption=List.ListIndex End SubB．Private Sub List1_Click()Labell.Name=List1.ListIndex End SubC．Private Sub List1_Click()Labell.Name=List1.Text End SubD．Private Sub List1_Click()Labell.Caption=List.Text End Sub
在窗体上画两个滚动条，名称分别为Hscro111、Hscro112；六个标签，名称分别为Labell、 Labe12、Labe13、Labe14、Labe15、Labe16，其中标签Labe14～Labe16分别显示“A”、“B”、 “A*B”等文字信息，标签Labe11、Labe12分别显示其右侧的滚动条的数值， Labe显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Labe11、Labe12中显示的两个值求积，并将结果显示在Labe13中。以下不能实现上述功能的事件过程是______。A．Private Sub Commandl_Click() Labe13.Caption=Str(Val(Labell.Caption)*Val(Labe12.Capfion)) End SubB．Private Sub Commandl_Click() Labe13.Caption=HScro111.Value*HScro112.Value End SubC．Private Sub Commandl_Cliek() Labe13.Caption=HScrolll*HScro112 End SubD．Private Sub Commandl_Click() Labe13.Caption=HScro111.Text*HScro112.Text End Sub
当执行以下过程时，在名为lblResult的标签框内将显示______。Private Sub Command1_ Click() Dim I, R R = 0 for I = 1 To 5 step 1 R= R+ I Next I lblResult. Caption = Str＄(R)End SubA．字符串15B．整数15C．字符串5D．整数5
在窗体上绘制一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是A．PriVate Sub List1_Click() Labell.CaptiOn=List.ListIndex End SubB．PriVate Sub List1_Click() Labell.Name=listl.ListIndex End SubC．Private Sub List1_Click() Labell.Name=Listl.Text End SubD．Private Sub List1_Click() Labell.Caption=List1.Text End Sub
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A．Private Sub List1 Click() Label1.Caption＝List1.List- Index End SubB．Private Sub List1_Click() Label1.Name＝List1. ListIn- dex End SubC．Private Sub List1 Click() Label1.Name＝List1.Text End SubD．Private Sub List1_Click() Label1.Caption=List1.Text End Sub
在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End SubB．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End SubC．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End SubD．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub
在窗体上画—个文本框(名称为Text1)和—个标签(名称为Label1)，程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。A．Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Text))End SubB．Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Text))End SubC．Private Sub Text1_ Change() Labell.Caption =Text1.TextEnd SubD．Private Sub Label1_ Change() Labell.Caption=Str(Len(Text 1. Text))End Sub
在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。A．Private Sub Command1_Click() Label3. Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End SubB．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End SubC．Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End SubD．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub
当执行以下过程时，在名为1blResult的标签框内将显示______。 Private Sub cmdlt_ click() Dim I，R R=0 For I=1 To 5 Step 1 R=R+I Next i 1blResult．Caption=Str＄(R) End SubA． 字符串15B．整数15C．字符串5D．整数5
在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。Private Sub Form. load()Listl.AddItem “北京”List1.AddItem “上海”List1.AddItem “河北”End SubPrivate Sub ______()Labell.Caption=______End Sub
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下： Private Sub Commandl Click（ ）Lablel．Caption=”标签” End Sub Private Sub Form—Load（ ）Form．Caption=”举例” Commandl．Caption=”移动”End Sub 打开窗体后，单击命令按钮，屏幕显示（ ）。A.B.C.D.
在窗体上画一个名称为List1的列表框，一个名称为Labell的标签，在列表框中显示若干项内容。当单击列表框中的某项内容时，该项内容能在标签中显示出来。下列能够正确实现上述功能的程序是A．Private Sub List1_Click() Labell．Caption=List1．ListIndex End SubB．Private Sub List1_Click() Labell．Name=List1．ListIndex End SubC．PrivateSubListl click() Labell．Name=List1．Text End SubD．Private Sub List1_Click() Labell．Caption=List1．Text End Sub
当执行以下过程时，在窗体上将显示( )。Private Sub Command1_Click( )Print "VB";Print "Hello! ";Print "VB"End SubA、 VBHello!VBB、 VBHello!VBC、 VBD、 VBHello! VB Hello!VB
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。A．abodefgB．不显示任何信息C．ABCDEFGD．出错
（ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。Private Sub cmdTest_Click()Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）If Answer=vbOK ThencmdDisplay.Visible= 【 15 】ElseDocmd.CloseEnd IfEnd Sub
当执行以下过程时，在名为lblResult的标签框内将显示（） Private Sub cmdIt_Click（） DimI，R R＝0 ForC＝1 to 5 Step l R＝R+C Next C LblResult.Caption＝Str$（R） EndSubA、15B、14C、5D、4