更多"窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程"的相关试题:
[单项选择]窗体上有名称为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和命令按钮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( )
Dim i,j,x
For i=1 To 20 Step 2
x=0
For i=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
[单项选择]设窗体上有一个文本框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
[单项选择]窗体上有名称为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( )
Text1.Text="程序设计"
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus( )
Text1.Text="等级考试"
End Sub
运行以上程序,单击命令按钮后______。
A. 文本框中显示的是"程序设计",且焦点在文本框中
B. 文本框中显示的是"等级考试",且焦点在文本框中
C. 文本框中显示的是"程序设计",且焦点在命令按钮上
D. 文本框中显示的是"等级考试",且焦点在命令按钮上
[单项选择]窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Command1_Cliek( ) Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus( ) Text1.Text="等级考试" End Sub 运行以上程序,单击命令按钮后()
A. 文本框中显示的是“程序设计”,且焦点在文本框中
B. 文本框中显示的是“等级考试”,且焦点在文本框中
C. 文本框中显示的是“程序设计”,且焦点在命令按钮上
D. 文本框中显示的是“等级考试”,且焦点在命令按钮上
[填空题]在窗体中添加一个命令按钮Command1和一个文本框Text1,编写如下代码:
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
a=5,b=10,c=0
Me!Text1=" "
Call p1(a,b,c)
Me!Text1=12
End Sub
Sub pl(XxAs Integer,y As Integer,z As Integer)
z=x+y
End Sub
程序运行后,文本框中应显示的内容为______。
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序:
Private Sub Command1_Click( )
A=InputBox("请输入日期(1~31)")
t="旅游景点:"
& IIf(A>0 And A<=10,"长城","")_
& IIf(A>10 And A<=20,"故宫","")_
& IIf(A>20 And A<=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘输入5,则在文本框中显示的内容是( )。
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程序设计
[单项选择]在窗体上有一个文本框,其名称为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
[填空题]窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Label1、Caption属性为“Sum”的标签,一个名称为Command1、标题为“计算”的命令按钮。程序运行后,将把1~100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮,则对 List1中的数进行累加求和,并在文本框中显示计算结果,如图所示。以下是实现上述功能的程序,请填空。[*]Private Sub Form_Load( )
For i=1 To 100
If i Mod 7=0 Then
【3】
End Ibf
Next End Sub Private Sub Command1_Click( )
Sum=0
For i=0 To 【4】
Sum=Sum+ 【5】
Next
Text1.Text=Sum
End Sub