更多"设窗体上有—个名称为Combo1的组合框,并有以下程序: "的相关试题:
[填空题]设窗体上有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的文本框,并编写如下程序: 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程序设计
[单项选择]窗体上有一个组合框,编写下列程序:
Private Sub Command1_ Click ( )
Combo1. RemoveItem 2
End sub
Private Sub form Load( )
Combo1. AddItem “上海”
Combo1. AddItem “北京”
Combo1. AddItem “天津”
Combo1. AddItem “重庆”
End Sub
程序执行时,单击Command1,则在组合框中将不再出现______。
A. 上海
B. 北京
C. 天津
D. 重庆
[单项选择]
设窗体上有一个名为List1的列表框,并编写下面的事件过程:
Private Sub List1_Click( )
Dim ch As String
ch=List1. List(List1. ListIndex)
List1. RemoveItem List 1. ListIndex
List1. AddItem ch
End Sub
程序运行时,单击一个列表项,则产生的结果是()。
A. 该列表项被移到列表的最前面
B. 该列表项被删除
C. 该列表项被移到列表的最后面
D. 该列表项被删除后又在原位置插入
[单项选择]设窗体文件中有下面的事件过程:
Private sub Command1_Click( )
Dim S
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是( )
A. 整型,整型
B. 变体型,变体型
C. 整型,变体型
D. 变体型,整型
[单项选择]设窗体文件中有下面的事件过程:
Private Sub Command1_Click( )
Dim a
b $="Visual Basic"
Print b
End Sub
其中变量a和b的数据类型分别是______。
A. 字符串型,字符串型
B. 变体型,变体型
C. 字符串型,变体型
D. 变体型,字符串型
[填空题]组合框有3种不同的类型,这3种类型是下拉式组合框、简单组合框、下拉式列表框,分别通过将 【11】 属性设置为0、1、2宋实现。
[填空题]组合框有3种不同的类型,这3种类型是下拉式列表框、简单组合框和 [12] 。在这3种不同类型的组合框中,只能选择而不能输入数据的是 [13] 。
[单项选择]设窗体上有一个文本框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