更多"设窗体上有一个名为Text1的文本框,并编写如下程序: Privat"的相关试题:
[单项选择]设窗体上有一个名为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程序设计
[填空题]设窗体上有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
[单项选择]窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Command1_Cliek( ) Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus( ) Text1.Text="等级考试" End Sub 运行以上程序,单击命令按钮后()
A. 文本框中显示的是“程序设计”,且焦点在文本框中
B. 文本框中显示的是“等级考试”,且焦点在文本框中
C. 文本框中显示的是“程序设计”,且焦点在命令按钮上
D. 文本框中显示的是“等级考试”,且焦点在命令按钮上
[单项选择]在窗体上有一个文本框,其名称为Text1,编写下列事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=Stririg(2,KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母“a”,则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa
[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时,单击Command1按钮,则显示“打开”文件对话框,操作者从中选择一个文本文件,并单击对话框上的“打开”按钮后,则可打开该文本文件,并读入一行文本,显示在Text1中。下面是实现此功能的事件过程,请填空。
Private Sub Command1_Click( )
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName<>""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
[单项选择]
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程:
Private Sub Command1_Click( )
x!=Val(Text1. Text)
Select Case x
Case Is<-10, Is>=20
Print "输入错误"
Case Is<0
Print 20-x
Case Is<10
Print 20
Case Is<=20
Print x+10
End Select
End Sub
程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是()。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]设在窗体上有一个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)
Const Alt=4
Const Key_f2=&H71
altdown%=(Shift And Alt) > 0
f2down% And f2down% Then
If altdown% And f2down% Then
Text ="abl"
End If
Ead Sub
程序运行后,清除文本框中原有内容,如果按Shift+F2键,则在文本框中显示的是( )。
A. add()
B. requestFocus()
C. repaint()
D. paint()