更多"在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1"的相关试题:
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框,并把窗体的 KeyPreview 属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_ Load ( ) Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click( ) Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后,在键盘上输入ABCDEFG,单击命令按钮,则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click( )
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程:
Dim str As String, strl As String
Private Sub form_load( )
Text1. Text = " "
Text2. Text = " "
Text1. Enabled = False
Text2. Enabled = False
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
str= str&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
str1 = strl&Chr(KeyCode)
End Sub
Private Sub Command1_Click( )
Text1. Text =str
Text2. Text = str1
str= " "
str1= " "
End Sub
当在设计阶段把窗体KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为 ______ 。
A. abc
B. 不显示任何信息
C. ABC
D. 出错
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:
Microsoft Visual Basic Programming
然后编写如下事件过程:
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)
Ifc>=“A”And c<=“Z”Then
Print#1,LCase(c)
End lf
Next i
Close
End Sub
程序运行后,单击命令按钮,文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M
D. m
[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load( )
Show
Text1. Text = " "
Text1. SetFocus
End Sub
Private Sub Command1_Click( )
Text1. Text = LCase(SaveAll) + SaveAll
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll = SaveAll + Chr(KeyAscii)
End Sub
程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为( )。
A. vbVB
B. 不显示任何信息
C. VB
D. 出错
[填空题]在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下代码:
Private Sub Command1_Click( )
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is>=10,Is<=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后,在文本框中输入3,然后单击命令按钮,则y的值变为______。
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写下列程序:
Private Sub Command1 click( )
A=InputBox("请输入日期(1~31)")
t="旅游景点:"_
&Ⅱf(A>0 And A<=10,"长城","")_
&Ⅱf(A>10 And A<=20,"故宫","")_
&Ⅱf(A>20 And A<=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘输入5,则在文本框中显示的内容是( )。
A. 旅游景点:长城
B. 旅游景点:长城颐和园
C. 旅游景点:颐和园
D. 旅游景点:故宫
[填空题]在窗体上画 1 个命令按钮和 1 个文本框,其名称分别为 Command1 和 Text1,然后编 写如下代码:
Dim SaveAll As String
Private Sub Command1_Click( ) Text1.Text = Left(UCase(SaveAll), 4) End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是 _________。
( 10 )在窗 体上画 1 个命令按钮 和 1 个通用对话框, 其名称分别 为 Command1 和CommonDialog1,然后编写如下事件过程:
Private Sub Command1_Click( )
CommonDialog1. _________ = "打开文件"" CommonDialog1.Filter = "All Files(*.*)|*.*" CommonDialog1.InitDir = "C:/" CommonDialog1.ShowOpen
End Sub 该程序的功能是,程序运行后,单击命令按钮,将显示"打开"文件对话框,其标题是" 打开文件",在"文件类型"栏内显示"All Files(*.*)",并显示C盘根目录下的所有文件, 请填空。
[填空题]在名称为Form1的窗体上画一个名称为Text1的文本框,画一个名称为Command1的命令按钮。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。
请在空白处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open "c:/test.dat" For Output As#1
For I=1 To Len(Text1.text)
(15) Next I
Ciose#1
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、Text2的文本框和一个名称为 Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim x As Integer, n As Integer
x = 1
n = 0
DoW hilex < 20
x = x * 3
n = n + 1
Loop
Text1.Text = Str(x)
Text2.Text = Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是________。
A. 15和 1
B. 27和 3
C. 195和 3
D. 600和 4
[单项选择]在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2),新建一个窗体Form2。然后编写如下程序: Private Sub Command1_ Click( ) msg$ = "Retry" Title$ = "Error!" If Text1. Text = "a" And Text2. Text = "1" Then Unload Me Form 2. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序,要实现单击Command1命令按钮后卸载当前窗体,再弹出名为Form 2的窗体,则在两个文本框中应分别输入______ 。
A. a 1
B. a a
C. 1 a
D. 1 1