单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 1=1+3 n=n+1 If i>10 Then Exit For Next Textl.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是【】

A．5
B．4
C．3
D．2

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程：Private Sub Commandl_Click()CommonDialogl，Flags=vbOFNHideReadOnlyCommontDialogl．Filter= All Files(*．*)|*．*|Text Files (*.*)|*．txt| _& Batch Files (*．bat) |*．bat CommonDialogl．Filterlndex=1CommonDialogl．ShowopenMsgBox CommonDialogl．FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是( )。

A．All Fries(*.*)
B．Text Files(*.*)
C．Batch Files(*．bat)
D．All Files (*．*)|Text Files(*．*)

单项选择题

窗体上有1个名称为List1的列表框,其中已经输入了若干个项目(如图所示)；还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序Private Sub Command1_Click()Dim sl r As String,S As String,k As IntegerS=Text1lstr= For k=List1.List Count-1 To 0 Step-1If InStr (List1.List(k),s)>0 Thenstr=str&List1.List(k)＆ End IfNext kIf str= ThenText2= 没有匹配的项目 ElseText2=strEnd IfEnd Sub程序运行时,在Text1中输入京 ,单击命令按钮,则在Text2中显示的内容是【】

A．京
B．北京南京
C．南京北京
D．没有匹配的项目

相关试题