更多"设窗体上有Text1文本框和Command命令按钮，并有以下程序：
"的相关试题:
[填空题]设窗体上有Text1文本框和Command命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& （ 13 ）
End if
Next k
Text1= （ 14 ）
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= （ 15 ）
Exit Function
End If
Next k
Found=False
End Function
运 行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命 令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请 填空。
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String, ch As String
s=""
For k=1 To Len(Text1)
ch=Mid(Text1,k,1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入Basic，然后单击命令按钮，则Text1中显示的是
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click（ ） Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]
设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String，ch As String
s=""
For k=1 To Len(Text1)
ch=Mid(Text1，k，1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是（）。
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]
设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程：
Private Sub Command1_Click（ ）
Dim s As String，Ch As String
s=""
For k=1 To Len(Text1)
ch=Mid(Text1，k，1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是（）。
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Dim n
If Text1.Text＜＞"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )
A. 在Dim n语句的下面添加一句：n=0
B. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)＆"次"
D. 把Dim n改为Static n
[单项选择]在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer，n As Integer
For i=0 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
单击命令按钮，程序运行后，在文本框中显示的值是( )。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
单击命令按钮，程序运行后，在文本框中显示的值是( )。
A. 2
B. 3
C. 4
D. 5
[单项选择]窗体上有名称为Command1的命令按钮和名称为Text1的文本框（）。Private Sub Command1_Click（ ）Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus（ ）Text1.Text="等级考试"End Sub 运行以上程序，单击命令按钮后（）。
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load（ ） Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As Integer，X As Single，Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print"Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
[单项选择]窗体上有名称为Command1的命令按钮和名称为Texl1的文本框
Private Sub Command1_Click（ ）
Text1.Text="程序设计"
Text.1.SeFocus
End Sub
Private Sub Text1_GotFocus（ ）
Text1.Text="等级考试"
End Sub
运行以下程序，单击命令按钮后( )
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[单项选择]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim i，j，x
For i=1 To 20 Step 2
x=0
For j-i To 20 Step 3
x=x+1
Next j
Next i
Text1.Value=Str(x)
End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是
A. 1
B. 7
C. 17
D. 400
