更多"假定一个表单里有一个文本框Textl和一个命令按钮组CommandGr"的相关试题:
[单项选择]假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1,命令按钮组是一个容器对象,其中包含Cbmmand1和Command2两个命令按钮,如果要在Command1命令按钮的某个方法中访问文本框的Value属性值,下面表达式中正确的是( )。
A. This.ThisForm.Text1.Value
B. This.ParentParent.Text1.Value
C. ParentParent.Text1.Value
D. ThisParent.Text1.Value
[单项选择]假定一个表单里有一个文本框Text l和一个命令按钮组CommandGroup1。命令按钮组是一个容器对象,其中包含Command1和Command2两个命令按钮。如果要在Command1命令按钮的某个方法中访问文本框的Value属性值,正确的表达式是( )。
A. This.ThisForm.Text1.alue
B. This.Parent.Parent.Text1.Value
C. Parent.Parent.Text1.Value
D. This.Parent.Text1.Value
[单项选择]假设在一个表单里有一个文本框Text1和一个命令按钮组CommamdGroup1。命令按钮组是一个容器对象,其中包含Command1和Commsnd2两个命令按钮。如果要在Command1命令按钮的某个方法中访问文本框的Value属性值,正确的语句是( )。
A. This.ThisForm.Text1.Value
B. ThisParent.Parent.Text1.Value
C. ParentParent.Text1.Value
D. ThisParent.Text1.Value
[单项选择]设窗体上有一个文本框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,编写命令按钮Com-mand1 的 Click事件代码;
Private Sub Command1_Click( )
Dim S As String*20
S=Text1. Text
End Sub
该程序的功能是当单击按钮Command1时,把变量S中内容写入一个顺序文件 datl. dar中,正确的程序段是 ( )
A. Open "datl. dat", For lnput As#1
B. Open"datl. dat" For Output As#1
C. Open"dat", For Binary As #1
D. Open datl. dat"For Random As
[填空题]
在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click( )
Dim str As String,s As String,c As String
str=UCase(Text1)
S=""
C="Z"
While c>="A"
If lnStr(str,C)=0 Then
s= 【1】
End If
c=Chr$(Asc(C) 【2】 )
Wend
If s<>""Then
Text1=S
End If
End Sub
[填空题]在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运 行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未 在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在 Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click( )
Dim str As String, s As String, c As String str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, C)= 0 Then s = _________
End If
c = Chr$(Asc( C)_________ ) Wend
If s <> "" Then
Text1 = s
End If
End Sub
[单项选择]窗体上有一个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