更多"以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3"的相关试题:
[填空题]以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。
Private Sub Command1_Click（ ）
x＝Val(Text1.Text)
If 【9】 Then
Print x
Else
Text1.SetFoeus
Text1.SetStart＝0
End If
End Sub
[单项选择]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于
500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。
Private Sub Text1_LostFocus（ ） Call CheckInput(Text1,500) End Sub
Private Sub Text2_LostFocus（ ） Call CheckInput(Text2,1000) End Sub
Sub CheckInput(t As ,x As Integer) If Val(t.Text)>x Then
MsgBox "请重新输入！"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[填空题]以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。
请将空白处补充完整。
Private Sub Command1_Click（ ）
Dim N As String,C As String,D As String
N=Text1.Text
M=______
For i=M To 1 Step-1
C=Mid(N,i,1)
D=D &______
Next i
Text2.Text=D
End Sub
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_CIick（ ）
Open"d:/temp/outf. txt" For Output As #1
For i=1 To Len(Text1. Text)
c=Mid(Text1. Text, i, 1)
If c＞="A" And c＜="Z" Then
Print #1, LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf. txt中的内容是______。
A. MVBP
B. mvbp
C. M
D. m
[单项选择]在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串： Microsoft Sub Command1_Click（ ） 然后编写如下事件过程： Private Sub Command1_Click（ ） Open "d：/temp/outf.txt" For Output As #1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) If c＞="A" And c＜="Z" Then Print #1，LCase(c) End If Next i Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M V B P
D. m v b p
[单项选择]
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming 然后编写如下事件过程：
Private Sub Commandl_Click（ ）
Open"d:/temp/outf,txt"For Ouput As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c＞="A"And C＜="Z"Then
Print #1,LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是（）。
A. MVBP
B. mvbp
C. M
D. m V V B b P p
[填空题]设窗体上有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，执行下列程序后在文本框输入123abc，单击按钮后输出结果为
Private Sub From_Load（ ）
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
Eud Sub
Private Sub Command1_Click（ ）
Print Text1.Text
End Sub
A. 123ABC
B. ABC
C. !@#ABC
D. 123abc
[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
[填空题]下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。
Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)
If [14] Then
Text2. [15]
End If
End Sub
